Nhờ cả nhà xem giúp code (1 người xem)

[ketoan100]

Mình có viết 1 đoạn code theo ý tưởng của mình nhưng còn nhiều vướng mắc chưa hoàn thiện được.
Nhờ cả nhà chung tay góp sức cho code mình chạy tốt hơn.
Xin cảm ơn cả nhà.

 

[haonlh]

1. Thay
If Cells(i, 6) = "1111" Then
j = Cells(i, 9) + j
End If
bằng
If Cells(i, 6) = "1111" Then j = Cells(i, 9) + j

Mà có lẽ phải là j = Cells(i, 8) + j (cột 8 chứ). Lỗi là ở chỗ này
2. Thay
With Sheet2
Range("E8") = j
End With
bằng
Sheet2.Range("E8") = j

Cho nó ngắn gọn thôi. Chú ý nên thụt để thể hiện các câu lệnh con. Có thể kg cần code , mà dùng công thức

 

[ketoan100]

1. Thay
If Cells(i, 6) = "1111" Then
j = Cells(i, 9) + j
End If
bằng
If Cells(i, 6) = "1111" Then j = Cells(i, 9) + j

Mà có lẽ phải là j = Cells(i, 8) + j (cột 8 chứ). Lỗi là ở chỗ này
2. Thay
With Sheet2
Range("E8") = j
End With
bằng
Sheet2.Range("E8") = j

Cho nó ngắn gọn thôi. Chú ý nên thụt để thể hiện các câu lệnh con. Có thể kg cần code , mà dùng công thức

Cảm ơn bạn rất nhiều !