Xin được giúp em sửa code Paste dữ liệu bỏ qua vùng ẩn

[QuangMinhtb]

Chào các anh,chị!
Em có sưu tầm được đoạn code Paste dữ liệu bỏ qua những vùng ẩn nơi cần Paste đến.
Khi nhấn thao tác "Cancel" để hủy hay tắt giao diện code chạy lên thì báo lỗi "như hình đăng"
Xin giúp em sửa đoạn code để khi nhấn "Cancel" không thông báo lỗi vậy nữa!
Em xin trân trọng cảm ơn!

Sub Paste_Bo_Qua_Vung_an()
'Bo qua vung an noi paste den, gom an thuong va an bang loc
Dim Nguon As Range, Dich As Range
Dim i As Long, r As Long
Set Nguon = Application.InputBox(prompt:="Ch" & ChrW$(7885) & "n v" & ChrW$(249) & "ng Copy", Type:=8)
Set Dich = Application.InputBox(prompt:="Paste " & ChrW$(273) & ChrW$(7871) & "n", Type:=8)
For i = 1 To Nguon.Rows.Count
Do Until Not Dich.Offset(r).Rows.Hidden
r = r + 1
Loop
Nguon.Rows(i).Copy Destination:=Dich.Offset(r)
r = r + 1
Next i

End Sub

 

[thuyyeu99]

Sub Paste_Bo_Qua_Vung_an()
'Bo qua vung an noi paste den, gom an thuong va an bang loc
Dim Nguon As Range, Dich As Range
Dim i As Long, r As Long
On Error Resume Next'
Set Nguon = Application.InputBox(prompt:="Ch" & ChrW$(7885) & "n v" & ChrW$(249) & "ng Copy", Type:=8)
If Err.Number <> 0 Then Exit Sub
Set Dich = Application.InputBox(prompt:="Paste " & ChrW$(273) & ChrW$(7871) & "n", Type:=8)
If Err.Number <> 0 Then Exit Sub
For i = 1 To Nguon.Rows.Count
Do Until Not Dich.Offset(r).Rows.Hidden
r = r + 1
Loop
Nguon.Rows(i).Copy Destination:=Dich.Offset(r)
r = r + 1
Next i
End Sub

 

[QuangMinhtb]

Sub Paste_Bo_Qua_Vung_an()
'Bo qua vung an noi paste den, gom an thuong va an bang loc
Dim Nguon As Range, Dich As Range
Dim i As Long, r As Long
On Error Resume Next'
Set Nguon = Application.InputBox(prompt:="Ch" & ChrW$(7885) & "n v" & ChrW$(249) & "ng Copy", Type:=8)
If Err.Number <> 0 Then Exit Sub
Set Dich = Application.InputBox(prompt:="Paste " & ChrW$(273) & ChrW$(7871) & "n", Type:=8)
If Err.Number <> 0 Then Exit Sub
For i = 1 To Nguon.Rows.Count
Do Until Not Dich.Offset(r).Rows.Hidden
r = r + 1
Loop
Nguon.Rows(i).Copy Destination:=Dich.Offset(r)
r = r + 1
Next i
End Sub

Em cám ơn anh/chị

 

[be_09]

Chào các anh,chị!
Em có sưu tầm được đoạn code Paste dữ liệu bỏ qua những vùng ẩn nơi cần Paste đến.
Khi nhấn thao tác "Cancel" để hủy hay tắt giao diện code chạy lên thì báo lỗi "như hình đăng"
Xin giúp em sửa đoạn code để khi nhấn "Cancel" không thông báo lỗi vậy nữa!
Em xin trân trọng cảm ơn!

Không cần dài dòng thế đâu, thử sử dụng code sau (Dữ liệu thêm hay bớt là tùy ý):

Sub CopyBoAn_Sangsheetkhac()
    Sheet1.Range("A3").CurrentRegion.Offset(1) _
    .SpecialCells(xlCellTypeVisible).Copy _
    Sheet2.Range("A50000").End(xlUp).Offset(1)
End Sub

 

[Hau151978]

Không cần dài dòng thế đâu, thử sử dụng code sau (Dữ liệu thêm hay bớt là tùy ý):

Sub CopyBoAn_Sangsheetkhac()
    Sheet1.Range("A3").CurrentRegion.Offset(1) _
    .SpecialCells(xlCellTypeVisible).Copy _
    Sheet2.Range("A50000").End(xlUp).Offset(1)
End Sub

Bác ơi đây là paste vào vùng có dòng ẩn mà.

 

[be_09]

Bác ơi đây là paste vào vùng có dòng ẩn mà.

Bạn đọc lại tiêu đề bài viết "code Paste dữ liệu bỏ qua vùng ẩn".
Không ai làm chuyện ngược đời cả (tiêu đề một đằng, ý muốn một nẻo).

 

[Hau151978]

Thì người ta hỏi paste dữ liệu bỏ qua vùng ẩn chứ có hỏi copy bỏ qua vùng ẩn đâu. Copy thì đương nhiên rồi.