Xin giúp đỡ code ghi dữ liệu sang sheet khác (1 người xem)

longhuynhka · 2/2/16

Nhờ các bác giúp mình làm 1 nút (button) trong sheet DATA để khi click vào nút này, nếu các ô từ cột L đến cột R ở sheet LICH_TC có dữ liệu là "X" thì các ô tương ứng ở sheet DATA sẽ được ghi dữ liệu kiểu ngày được lấy ở ô A1 (thuộc sheet LICH_TC).
Xin cám ơn các bác trước ạ. @$@!^%

dhn46 · 2/2/16

Bạn sử dụng Sub sau, cách đưa Code vào file chắc bạn cũng đã tìm hiểu rồi bạn nhỉ

Mã:

Sub LichTC()


Dim Arr, ArrLichTC
Dim Dic As Object
Dim i As Long
Dim NgayTc As Date


Set Dic = CreateObject("Scripting.Dictionary")
Arr = Sheets("Data").Range("A3:R" & Sheets("Data").Range("A65536").End(3).Row)
ArrLichTC = Sheets("Lich_TC").Range("A3:R" & Sheets("Lich_TC").Range("A65536").End(3).Row)
NgayTc = Sheets("Lich_TC").[A1]


For i = 1 To UBound(Arr, 1)
    If Not Dic.Exists(Arr(i, 3)) Then
        k = k + 1
        Dic.Add Arr(i, 3), k
    End If
Next


For i = 1 To UBound(ArrLichTC, 1)
    For j = 12 To 18
        If UCase(ArrLichTC(i, j)) = "X" Then
            Arr(Dic.Item(ArrLichTC(i, 3)), j) = NgayTc
        End If
    Next
Next


Sheets("Data").[L3:R1000].ClearContents
Sheets("Data").Range("A3").Resize(UBound(Arr, 1), 18) = Arr


End Sub