Tìm hộ phần sai câu lệnh trong phương thức PasteSpecial

[bjboyn00b]

Gửi các bác, các bác xem giúp mình câu lệnh này mình sai như nào nhỉ, cảm ơn mọi người

Private Sub CommandButton6_Click()
Application.ScreenUpdating = False
Dim rg1 As Range
Dim rg2 As Range
Dim srg As Range
Dim lastrow1 As Long
Dim lastrow2 As Long
lastrow1 = Sheet1.Range("C" & Rows.Count).End(xlUp).Row
lastrow2 = Sheet3.Range("B" & Rows.Count).End(xlUp).Row + 1
Set rg1 = Sheet1.Range("A3:M" & lastrow1)
Set rg2 = Sheet1.Range("A4:M" & lastrow1)
rg1.AutoFilter Field:=13, Criteria1:="<>"
rg1.AutoFilter Field:=10, Criteria1:="<>"
rg2.SpecialCells(xlVisible).Copy
Sheet3.Range("A" & lastrow2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Application.CutCopyMode = False
rg1.AutoFilter
MsgBox ("Chuyen Nhat Ky thanh cong")
Application.ScreenUpdating = True
End Sub

 

[befaint]

Sheet3.select
Sheet3.Range("A" & lastrow2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone

 

[bjboyn00b]

Sheet3.select
Sheet3.Range("A" & lastrow2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone

Mình thêm vào vẫn bị b à, mình có 1 code khác tương tự phía dưới nhưng vẫn chạy tốt, ko hiểu sao cái này lại bị

Private Sub CommandButton12_Click()
Application.ScreenUpdating = False
Sheet4.Range("A1:M500").ClearContents
Dim rg As Range
Dim srg As Range
Dim lastrow1 As Long
lastrow1 = Sheet1.Range("C" & Rows.Count).End(xlUp).Row
Set rg = Sheet1.Range("A1:M" & lastrow1)
rg.AutoFilter Field:=13, Criteria1:="="
rg.AutoFilter Field:=10, Criteria1:="<>"
rg.SpecialCells(xlVisible).Copy
Sheet4.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Dim lastrow2 As Long
lastrow2 = Sheet4.Range("C" & Rows.Count).End(xlUp).Row
ListBox1.ColumnCount = 10
ListBox1.ColumnWidths = "0;40;230;0;0;0;0;40;60;50"
ListBox1.List = Sheet4.Range("A2:M" & lastrow2).Value
Application.CutCopyMode = False
rg.AutoFilter
MsgBox "so luong chua tra la:" & ListBox1.ListCount

Application.ScreenUpdating = True
End Sub

Bài đã được tự động gộp: 20/7/22

À rồi các bác ạ, em merge mấy ô với nhau, haizzz, nhiều lúc cứ lẩn thẩn )

 

[bjboyn00b]

Sợ lập topic mới làm loãng diễn đàn, bác nào cho hỏi câu lệnh quay trở về trong userform với ạ.
Ví dụ mình có 10 textbox, sau khi gõ 10 textbox thì đã chuyển hết dữ liệu, giờ cần về lại textbox1 để điền tiếp mà không biết câu lệnh là gì (không phải ấn tab mà ấn enter)
Cảm ơn mọi người

 

[Hoàng Tuấn 868]

câu lệnh quay trở về trong userform.

Chẳng liên quan gì đến Chủ đề này cả.

 

[bjboyn00b]

Chẳng liên quan gì đến Chủ đề này cả.

Phía trên mình có nói rồi mà, đã giải quyết xong do merge ô, còn phía dưới vì không muốn lập theard vì câu hỏi nhỏ nên viết luôn vào theard này

 

[Hoàng Tuấn 868]

Phía trên mình có nói rồi mà, đã giải quyết xong do merge ô, còn phía dưới vì không muốn lập theard vì câu hỏi nhỏ nên viết luôn vào theard này

Vậy bạn nào đó muốn tham khảo về Userform thì làm sao biết mà gõ từ "Tìm hộ phần sai" để tìm kiếm.

 

[SA_DQ]

. . . . . .
Ví dụ mình có 10 textbox, sau khi gõ 10 textbox thì đã chuyển hết dữ liệu (DL), giờ cần về lại textbox1 để điền tiếp mà không biết câu lệnh là gì (không phải ấn tab mà ấn enter) . . . . .

Bạn có thể cho biết là bạn chuyển hết DL bằng cách nào được không?
Đừng nói là bạn chuyển bằng cách nhấn {ENTER} khi nhập xong DL vô TextBox 10 thân thương của bạn đó nha(!)