Tạo from dữ liệu (1 người xem)

[lephongctbghg]

Xin giúp em đoạn cos sau đây sai chỗ nào vậy cám ơn các anh chị nhiều!

Private Sub btnCat_Click()
Dim EndR As Long
With Sheets("PhongBan")
EndR ".Range(*A* & Rows.count).End(xlup).Row"
.Range("A" & EndR + 1) = txtMaphong.Text
.Range("B" & EndR + 1) = txtTenphong.Text
.Range("C" & EndR + 1) = txtDiengiai.Text
End With
Unload Me
End Sub

 

[doveandrose]

mình không biết from nhập liệu là cái gì
cứ chạy code trên nó tô màu vàng dòng nào thì sẽ biết là sai ở dòng đó

 

[lephongctbghg]

Báo lỗi sau như sau:

 

[giaiphap]

Xin giúp em đoạn cos sau đây sai chỗ nào vậy cám ơn các anh chị nhiều!

Private Sub btnCat_Click()
Dim EndR As Long
With Sheets("PhongBan")
EndR ".Range(*A* & Rows.count).End(xlup).Row"
.Range("A" & EndR + 1) = txtMaphong.Text
.Range("B" & EndR + 1) = txtTenphong.Text
.Range("C" & EndR + 1) = txtDiengiai.Text
End With
Unload Me
End Sub

Chắc bị lỗi dòng này quá.
EndR ".Range(*A* & Rows.count).End(xlup).Row"

 

[lephongctbghg]

Vâng đúng vậy!Xin khắc phục lỗi dùm.Em cám ơn nhiều!

 

[giaiphap]

Vâng đúng vậy!Xin khắc phục lỗi dùm.Em cám ơn nhiều!

Theo mình đoán chắc như vầy mới đúng
EndR =.Range("A" & Rows.count).End(xlup).Row
Muốn sửa đúng phải có file mới biết được, bạn gửi file lên đây mọi người giúp cho.

 

[lephongctbghg]

Theo mình đoán chắc như vầy mới đúng
EndR =.Range("A" & Rows.count).End(xlup).Row
Muốn sửa đúng phải có file mới biết được, bạn gửi file lên đây mọi người giúp cho.

Đúng rồi cám ơn anh giaiphap nhiều. Bửa nào gặp minh mời nhậu nhe!