Các Anh chị giúp Code nhâp liệu

[LeHang.93]

Cho em hỏi làm cách nào để code sao cho mỗi khi điền vào cột đỏ thì cột xanh tự động nhảy theo ạ

 

[qtm1987]

Sheet8.Range("Q4:Q8876") bạn sửa lại
Sheet8.Range("Q4:Q" & xR) với xR là biến xác định hàng cuối cùng có dữ liệu tại cột B (đoán đại cột số chứng từ là B) là xR = sheet8 .Cells(.Rows.Count, "B").End(xlUp).Row

 

[LeHang.93]

Sheet8.Range("Q4:Q8876") bạn sửa lại
Sheet8.Range("Q4:Q" & xR) với xR là biến xác định hàng cuối cùng có dữ liệu tại cột B (đoán đại cột số chứng từ là B) là xR = sheet8 .Cells(.Rows.Count, "B").End(xlUp).Row

Em sửa vào rồi không được ạ, e giờ chỉ cần code xanh bằng đỏ thôi ạ

 

[befaint]

Cái code ở bài #1 đâu mất tiêu rồi. Lúc trước còn thấy mà.

 

[LeHang.93]

Cái code ở bài #1 đâu mất tiêu rồi. Lúc trước còn thấy mà.

dạ em sửa từ đầu rồi, giờ nó mới update ạ

 

[qtm1987]

Chịu. Không có file thì mình chỉ giúp đoán đại code vậy thôi.... Tốt nhất hỏi gì bên nên gửi file để được nhiều người giúp.

 

[LeHang.93]

Chịu. Không có file thì mình chỉ giúp đoán đại code vậy thôi.... Tốt nhất hỏi gì bên nên gửi file để được nhiều người giúp.

dạ vâng em cảm ơn ạ

 

[LeHang.93]

Sheet8.Range("Q4:Q8876") bạn sửa lại
Sheet8.Range("Q4:Q" & xR) với xR là biến xác định hàng cuối cùng có dữ liệu tại cột B (đoán đại cột số chứng từ là B) là xR = sheet8 .Cells(.Rows.Count, "B").End(xlUp).Row

Sub Lenh_Xoa()
Application.EnableEvents = False
xR = Sheet8.Cells(Rows.Count, "D").End(xlUp).Row

Sheet8.Range("A4:V" & xR).ClearContents
Sheet8.Range("Q4:Q" & xR).FormulaR1C1 = "=RC[-13]"
Application.EnableEvents = True
End Sub

Em đã làm được rồi ạ, tuy nhiên khi trống dòng D thì nó bị lỗi, có cách nào tắt lỗi này ko ạ

 

[Phuocam]

Em đã làm được rồi ạ, tuy nhiên khi trống dòng D thì nó bị lỗi, có cách nào tắt lỗi này ko ạ

Thêm bẫy lỗi:

Sub Lenh_Xoa()
Dim xR as Long
xR = Sheet8.Cells(Rows.Count, "D").End(xlUp).Row
If xR < 4 Then Exit Sub ' Thêm bẫy lỗi

Application.EnableEvents = False
Sheet8.Range("A4:V" & xR).ClearContents
Sheet8.Range("Q4:Q" & xR).FormulaR1C1 = "=RC[-13]"
Application.EnableEvents = True
End Sub

 

[LeHang.93]

Thêm bẫy lỗi:

Sub Lenh_Xoa()
Dim xR as Long
xR = Sheet8.Cells(Rows.Count, "D").End(xlUp).Row
If xR < 4 Then Exit Sub ' Thêm bẫy lỗi

Application.EnableEvents = False
Sheet8.Range("A4:V" & xR).ClearContents
Sheet8.Range("Q4:Q" & xR).FormulaR1C1 = "=RC[-13]"
Application.EnableEvents = True
End Sub

Dạ e cảm ơn Anh ạ

 

[hoangtuaotrang_hp_vn]

dạ em sửa từ đầu rồi, giờ nó mới update ạ

Xấu tính ghê, code thì xóa, file thì khóa VBA

 

[LeHang.93]

Xấu tính ghê, code thì xóa, file thì khóa VBA

khổ quá anh ơi em xin code, e quên ko bỏ đi. Cái cũ e làm nhưng ko được e chuyển hướng khác nên xóa