ducmagic88
Thành viên chính thức
- Tham gia
- 14/4/20
- Bài viết
- 65
- Được thích
- 4
Em chào các bác! các bác cho em hỏi code của em sai ở đâu, tại sao e muốn lấy dữ liệu từ sheet data sang sheet CHI_TIET_131 lại không chạy ạ. Em đang muốn khi gõ tên khách hàng ở sheet CHI_TIET_131 thì code tự động lấy bên sheet Data sang ạ, e đang học viết nên không biết mình sai chỗ nào, các bác giúp em với nhé! Em cảm ơn!
Sub Locdulieu()
Dim lr As Long, arr As Variant, i As Long, k As Long, kq()
With Sheet2
lr = .Range("E65000").End(xlUp).Row
arr = .Range("B2:K" & lr).Value
End With
With Sheet3
ReDim kq(1 To UBound(arr), 1 To 6)
For i = 1 To UBound(arr)
If Not arr(i, 4) = .Range("C1").Value Then
Exit Sub
Else
k = k + 1
kq(k, 1) = arr(i, 1)
kq(k, 2) = arr(i, 3)
kq(k, 3) = arr(i, 10)
kq(k, 4) = arr(i, 8)
kq(k, 5) = arr(i, 7)
kq(k, 6) = arr(i, 9)
End If
Next i
.Range("A6:F100000").ClearContents
.Range("A6").Resize(k, 6).Value = kq
End With
End Sub
Sub Locdulieu()
Dim lr As Long, arr As Variant, i As Long, k As Long, kq()
With Sheet2
lr = .Range("E65000").End(xlUp).Row
arr = .Range("B2:K" & lr).Value
End With
With Sheet3
ReDim kq(1 To UBound(arr), 1 To 6)
For i = 1 To UBound(arr)
If Not arr(i, 4) = .Range("C1").Value Then
Exit Sub
Else
k = k + 1
kq(k, 1) = arr(i, 1)
kq(k, 2) = arr(i, 3)
kq(k, 3) = arr(i, 10)
kq(k, 4) = arr(i, 8)
kq(k, 5) = arr(i, 7)
kq(k, 6) = arr(i, 9)
End If
Next i
.Range("A6:F100000").ClearContents
.Range("A6").Resize(k, 6).Value = kq
End With
End Sub
