Bạn ơi cho mình hỏi 1 chút:
- Câu hỏi 1:
If Sheet1.Range("A2").Value = 0 Then
MsgBox "Chua co du lieu de cap nhat"
=> Nếu sheet1 mình có các cột A, B, C, D, H, L cần nhập dữ liệu thì mình sẽ phải chỉnh đoạn code trên như thế nào?
- Câu hỏi 2:
I = Sheet2.Range("A65000").End(xlUp).Row
Sheet2.Range("A" & I + 1).Value = Sheet1.Range("A2").Value
Sheet2.Range("B" & I + 1).Value = Sheet1.Range("B2").Value
Sheet2.Range("C" & I + 1).Value = Sheet1.Range("C2").Value
Sheet1.Range("A2").ClearContents
=>Vì Sheet1 mình có nhiều cột từ cột A đến cột L nên mình có thể thay đổi "I = Sheet2..." và "I + 1" bằng ký tự khác được không vd ký tự Z,
- Câu hỏi 3:
Sheet2.Range("A" & I + 1).Value = Sheet1.Range("A2").Value
Sheet2.Range("B" & I + 1).Value = Sheet1.Range("B2").Value
Sheet2.Range("C" & I + 1).Value = Sheet1.Range("C2").Value
Tại sheet1 mình có cột A đến cột L thì mình sẽ phải viết 12 dòng giống như trên chỉ phải thay ký tự các cột có phải không?
Bạn thông cảm mình mới biết VBA nên chưa biết viết code như thế nào, hi vọng bạn và cả nhà trả lời giúp mình 3 câu hỏi trên, bạn và cả nhà trả lời càng tỉ mỉ càng tốt. Mình cảm ơn bạn và cả nhà.
