Nhờ Tác giả: Lê Văn Duyệt hay cao thu code giúp đỡ (1 người xem)

[SirChung87]

Link
Mở rộng vùng đã được đặt tên
code này mình làm theo cách của tác giả nhưng bị báo lỗi
Sub AddNewData()
Dim lRows As Long
'Sao chép dữ liệu và mở rộng DanhSach them 1 hàng
With Range("DanhSach")
lRows = .Rows.Count + 1
Range("TenThemVao").Copy Destination:=.Cells(lRows, 1)
.Resize(lRows).Name = "DanhSach"
End With
End Sub

 

[vu_tuan_manh_linh]

Đã test code, hoàn toàn bình thường!!! Code bạn chạy báo lỗi dòng nào thế!

 

[SirChung87]

File đây ạ nhờ các cao thủ giúp đỡ em với ạ

 

[SirChung87]

lỗi của mình bị như thế này ạ

 

[vu_tuan_manh_linh]

File đây ạ nhờ các cao thủ giúp đỡ em với ạ

Code của bạn bị lỗi là đúng rồi. Việc thụt dòng code vào cần thực hiện bằng phím Tab, đằng này bạn cho nó 1 dãy các ký tự space thì lỗi là đúng rồi.

 

[SirChung87]

Thanks kiu bạn nhé mình làm được rồi cám ơn bạn nhiều nhé

 

[SirChung87]

Nhờ bạn kiểm tra giúp mình chuyển sang hàng dọc bị lỗi ạ. bạn kiểm tra minh sửa code bị lọi gì hộ minh với

 

[SirChung87]

File này mình save sang cột mà báo lỗi

 

[vu_tuan_manh_linh]

File này mình save sang cột mà báo lỗiView attachment 158040

Bạn kiểm tra lại trước khi post bài nhé! File của bạn có sao đâu, chạy ầm ầm!