chèn row tương ứng

[quochung2005]

mình có 1 file ex mình muốn chèn dòng tương ứng dựa vào counta(), bảng nhập chứng từ có bao nhiêu hàng thì tương ứng bên cập nhật chứng từ có bấy nhiêu hàng
mình kèm file theo các anh chi hướng dẫn

 

[Po_Pikachu]

Bạn dùng code này nha!

Sub Insert()     Rows("5:" & Sheet1.Range("A1").Value).Insert Shift:=xlDown End Sub

Thân.

 

[doilangthang]

Mình chưa hiểu cách làm lắm, bạn có thể cho file hướng dẫn cụ thể hơn được không? THanks

 

[Po_Pikachu]

Vậy bạn xem file nha! Thân.

 

[quochung2005]

mình cám ơn bạn, nhưng file ở đây mình click 1 lần là đúng với sheets, range a1, nhưng click tiếp là nó gấp đôi, nó không dừng lại số hàng như sheets 1 nữa, mong bạn giúp, thanhs

 

[Po_Pikachu]

Bạn có thể nói rõ hơn được không! Mình chưa hiểu?

 

[quochung2005]

trước tiên xin cám ơn bạn, mình muốn nói ở đây là bên sheet 1 có bấy nhiêu hàng thì bên cập nhật cũng tương tự bấy nhiêu hàng như vậy, mình muốn dựa vào counta() để lấy hàng muốn chèn thêm, mình nghỉ muốn chèn thêm là phải xóa cái cũ mới chèn thêm là ok, nếu không xóa cái cũ thì nó lên gấp 2 lần range(a1) của sheets 1

 

[Po_Pikachu]

Khỏi cần Counta luôn. Code sẽ tự lấy số dòng cuối cùng

Sub Insert()
If Sheet1.Range("D60000").End(xlUp).Row - 1 < 5 Then
    MsgBox ("Khong co du lieu")
    Exit Sub
ElseIf Evaluate("luu") = 0 Then
    ActiveWorkbook.Names.Add Name:="luu", RefersToR1C1:="=" & Sheet1.Range("D60000").End(xlUp).Row - 1
    Rows("5:" & Sheet1.Range("D60000").End(xlUp).Row - 1).Insert Shift:=xlDown
Else
    k = Evaluate("luu")
    Rows("5:" & k).Delete
    ActiveWorkbook.Names.Add Name:="luu", RefersToR1C1:="=" & Sheet1.Range("D60000").End(xlUp).Row - 1
    Rows("5:" & Sheet1.Range("D60000").End(xlUp).Row - 1).Insert Shift:=xlDown
End If
End Sub

Bạn thử nhấn Insert vài lần xem! Dòng được Border 189 sẽ luôn là dòng cuối cùng nếu bạn có sửa chữa dữ liệu ở Sheet1 đi nữa!
Bạn xem file nha!
Thân.

 

[quochung2005]

Mình cám ơn bạn nhiều, mình dang làm file kế toán,ki nào xong mình sẽ up lên diễn đàn, cám ơn bạn