So sánh dữ liệu từ 2 sheet và copy dữ liệu đúng về sheet hiện tại (1 người xem)

[kijuto3128]

Mình đang làm 1 file Excel kế toán có 2 sheet, số liệu ở sheet 1 có ô ký hiệu Khách hàng bị sai, mục đích của mình là đối chiếu số hóa đơn, số tiền, số ngày từ shéet 1 với sheet 2 nếu giống nhau hết thì copy ô Ký hiệu KH đúng về lại sheet 1 (có nhiều số hóa đơn giống nhau nhưng ngày tháng khác nhau). Mình đã viết thử cái hàm từ VBA nhưng không đúng, bác nào giúp mình sửa lại với.Ở đây mình chỉ viết cho 1 ô của sheet 1, bác nào biết viết luôn cho nhiều ô thì giúp mình sửa luôn...thanks nhiều...

Sub Macro1()
Dim j As Integer,
Application.ScreenUpdating = 0
/so sánh ô D3038 , F3038, H3038 của sheet1 với từng ô tương ứng trong cột B*,D*,L* của sheet 2. Nếu đúng thì ô E3038 của sheet1= ô C* của sheet2
For j = 1 To 4000
If Sh1.Cells(3038, 4) = Sh4.Cells(j, 2) And Sh1.Cells(3038, 6) = Sh4.Cells(j, 4) And Sh1.Cells(3038, 8) = Sh4.Cells(j, 12) Then
Sh1.Cells(3038, 5) = Sh4.Cells(j, 3)
Exit For
End If
Next j
End Sub

 

[thang314]

thiếu khai báo Sh1, Sh4. dim cho nó một phát.

 

[kijuto3128]

khai báo sheet như thế nào bạn....mình cũng gà mờ về VBA trong excel lắm....nếu có thể bạn viết lại câu lệnh hoàn chỉnh cho mình được không....mình cảm ơn rất nhiều.

 

[thang314]

sh là cái gì. tốt hơn hết bạn làm luôn thế này có phải đỡ hơn không
ví dụ.
For j = 1 To 4000
If Sheet1.range("d3038") = Sheet4.range("b"&j)... Then
sheet1.range("e3038")=sheet4.range("c"&j)
Exit For
End If
Next j