Hỏi về việc Refresh dữ liệu cũ khi dùng button command (1 người xem)

[tigerhumanhp]

Dear all!
Mình chưa dùng VBA bao giờ, gần đây có việc phải dùng nên mò mẫm code.
Mình có 2 sheet: sheet1 và sheet2.
Khi đánh dấu "X" ở sheet1 và kích button thì dữ liệu cần lấy hiện ra ở sheet2
Cái này thì mình làm được rồi (file đính kèm)
Tuy nhiên, mình chưa biết cách refresh lại dữ liệu ở sheet 2 khi tích lại "X" ở sheet1 (chỉ đè dữ liệu lên sheet2 chứ không xóa)
Các bạn chỉ giúp mình nhé
Chân thành cảm ơn!

 

[phucbugis]

bạn thử dùng đoạn code sau:

Private Sub CommandButton1_Click()
Dim rng As Range, vung As Range, n As Long
Set vung = ActiveSheet.Range("B2:B100")
    
    Sheets("Sheet2").Range("A2:A100").ClearContents 'neu xoa' luon format thi dung` .Clear
    
    For Each rng In vung
        If UCase(rng) = "X" Then
            Sheets("Sheet2").Cells(2 + n, 1) = rng.Offset(, -1).Value
            n = n + 1
        End If
    Next
    
    Set vung = Nothing
End Sub

 

[tigerhumanhp]

Code chạy tốt quá, cảm ơn bạn nhiều!

 

[tigerhumanhp]

Dear Phucbugis!
Mình hỏi thêm 1 chút. Nếu giờ mình có thêm 1 sheet (sheet 3), dữ liệu ở sheet 3 tương tự như ở sheet 1. Mình cũng muốn lựa chọn những nội dung đã đánh dấu ở sheet 3 để nối tiếp vào sheet 2 thì mình có thể làm như thế nào.
Bạn giúp mình nhé
Chân thành cảm ơn

 

[phucbugis]

Dear Phucbugis!
Mình hỏi thêm 1 chút....

bạn tải file đính kèm về xem,

sau khi click Commandbutton1 tại sheet1 xong thì vào sheet3 click cmd_sheet3 -> kết quả !

Link: https://www.mediafire.com/?et4t11k71390t3n

 

[tigerhumanhp]

Dear!
Cảm ơn phucbugis
Nhưng nếu vậy thì mình không dùng lệnh xóa dữ liệu ở sheet 3
"Sheets("Sheet2").Range("A2:A100").ClearContents 'neu xoa' luon format thi dung` .Clear"
để thay đổi nội dung sheet3 --> update sang sheet2 được (giống câu hỏi đầu tiên mình hỏi ấy)
Cảm ơn bạn!