đánh dấu "x" lọc dữ liệu qua một sheet khác

[thanhmaximum]

View attachment 14539

nhờ các anh chị giúp em sao đánh dấu x vào cột "đánh dấu x" dữ liệu sắp xếp theo thứ tự từng dòng một trong sheet mới.
cám ơn anh chị

View more random threads:

• Dùng CommandButton trên Form để di chuyển đến các sheet
• Sửa lỗi code giúp mình
• Tạo hàm trong file excel theo dõi hàng tồn kho!!!
• Tạo form nhập dữ liệu là một tập tin và xuất ra là một tập tin khác.
• [Help] Tự động liên kết các file excel lại với nhau
• Bài giảng ứng dụng Solver giải bài toán tối ưu
• Giúp em vấn đề xóa 1 cột trong excel ( em cần rất gấp)
• Nhờ sửa lỗi code VBA trong Sổ cái
• Tự động tăng số row
• Theo dõi sinh viên

[quynhseoenuy]

Ðề: đánh dấu "x" lọc dữ liệu qua một sheet khác

File của bạn sao không thể chạy macro của mình được; Vậy bạn tham khảo macro này:

[COLOR=#000000]
Option ExplicitSub gpeLoc[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]Dim Rng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]sRng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Sh [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet Dim MyAdd [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String  Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Candidate"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Select Set Sh [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]thsworkbook[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"On-board"[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Set Rng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"G1:G" [/COLOR][COLOR=#007700]& [[/COLOR][COLOR=#0000BB]B65400[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Set sRng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Find[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"x"[/COLOR][COLOR=#007700], , [/COLOR][COLOR=#0000BB]xlFormulas[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]xlWhole[/COLOR][COLOR=#007700]) If [/COLOR][COLOR=#0000BB]Not sRng Is Nothing Then    Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]b2[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]CurrentRegion[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]ClearContents    MyAdd [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Address    [/COLOR][COLOR=#007700]Do        [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, -[/COLOR][COLOR=#0000BB]5[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]6[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Copy Destination[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]b65500[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])        [/COLOR][COLOR=#0000BB]Set sRng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]FindNext[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700])    [/COLOR][COLOR=#0000BB]Loop [/COLOR][COLOR=#007700]While [/COLOR][COLOR=#0000BB]Not sRng Is Nothing [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Address [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]MyAdd End [/COLOR][COLOR=#007700]If[/COLOR][COLOR=#0000BB]End Sub[/COLOR] 

[lavendervip]

Ðề: đánh dấu "x" lọc dữ liệu qua một sheet khác

1- Trong Sheet Candidate chỉ là data
2- Sheet On-Board
a- ColB --> =IF(Candidate!G13="x",Candidate!B13,"")
b- ColE --> =IF(Candidate!G13="x",Candidate!C13,"")
c- ColF --> =IF(Candidate!G13="x",Candidate!D13,"")
3- Trong VBA On-Board
Private Sub worksheet_change(ByVal Target As Range)
Sheet2.Range("B1:C100").Value = Sheet1.Range("A1:B100").Value
End Sub

4- ko có Sheet2

Anyway, Sheet On-Board ko hiện gì ra hết , tào lao . Delete cái formula đi thì muốn type gì "x" cột Fcũng được
(ColF --> =IF(Candidate!G13="x",Candidate!D13,""))
Trong cột F thì define điều kiện 1 đằng, VBA viết 1 nẻo

Delete cái 3 trợn code tào lao (XÁC ĐỊNH vùng sheet Candidate )

[TruongTamPhong]

Ðề: đánh dấu "x" lọc dữ liệu qua một sheet khác

:cuoiranuocmat: ac nhầm . SR anh em

[vuongtoan1912]

Ðề: đánh dấu "x" lọc dữ liệu qua một sheet khác

View attachment 14539

nhờ các anh chị giúp em sao đánh dấu x vào cột "đánh dấu x" dữ liệu sắp xếp theo thứ tự từng dòng một trong sheet mới.
cám ơn anh chị

Xóa code đi, rồi thay công thức như sau vào Sheet On-board:

- B2 =IF(Candidate!G2="x",Candidate!B2,"")
- C2 =IF(Candidate!G2="x",Candidate!C2,"")
- D2 =IF(Candidate!G2="x",Candidate!D2,"")
- E2 =IF(Candidate!G2="x",Candidate!E2,"")
- F2 =IF(Candidate!G2="x",Candidate!F2,"")

Chọn B2 đến F2 rồi Fill công thức xuống, sau đó gán code vào Sheet On-board.

Private Sub worksheet_change(ByVal Target As Range)
Sheet3.Range("B1:G100").Value = Sheet1.Range("A1:F100").Value
End Sub

Nhưng cách này dòng nào không đánh dấu nó trống thấy kỳ quá.

[seobookin]

Ðề: đánh dấu "x" lọc dữ liệu qua một sheet khác

Sửa bài trên cho vui thôi, chứ tôi đã thay bằng Code mới.

Hướng dẫn:

- Gõ x vào danh sách sheet Candidate.
- Sang sheet On-board, gõ x vào G2 sẽ được kết quả.

Xem File đính kèm.