ĐOạn code Copy của mình bị lỗi ở đâu mà k chạy vậy các bác (1 người xem)

[pro8x]

Mình có viết đoạn code để copy như sau.Không hiểu lỗi ở đâu mà nó k chạy.Các bạn chỉ dùm với

sub saochep_currentregion()
sheets("sheet3").select
range("B1").select
if activecell = "ABC" then
sheets("Link").select
range("J4").currentregion.copy
sheets("sheet3").select
range("B1").select
activecell.pasteSpecial Paste:=xlPasteValue, Operation:=xlnone,_
SkipBlanks:=True, Transpose:=True
End If
End Sub

 

[viehoai]

Mình có viết đoạn code để copy như sau.Không hiểu lỗi ở đâu mà nó k chạy.Các bạn chỉ dùm với

sub saochep_currentregion()
sheets("sheet3").select
range("B1").select
if activecell = "ABC" then
sheets("Link").select
range("J4").currentregion.copy
sheets("sheet3").select
range("B1").select
activecell.pasteSpecial Paste:=xlPasteValue, Operation:=xlnone,[COLOR=#ff0000]_[/COLOR]
SkipBlanks:=True, Transpose:=True
End If
End Sub

Trước dấu "_" phải có ký tự trống
activecell.pasteSpecial Paste:=xlPasteValue, Operation:=xlnone, _
SkipBlanks:=True, Transpose:=True

 

[pro8x]

Trước dấu "_" phải có ký tự trống
activecell.pasteSpecial Paste:=xlPasteValue, Operation:=xlnone, _
SkipBlanks:=True, Transpose:=True

Mình sủa như vậy rồi nhưng vẫn không được hic hic.Bạn nào chỉ dùm với

 

[nhapmon]

Mình sủa như vậy rồi nhưng vẫn không được hic hic.Bạn nào chỉ dùm với

Mình thấy nó chạy mà, chắc ko fải lỗi code đâu coi chừng lỗi data đó, mấy cái lệnh

currentregion ghê lắm, nhiều khi nó chọn lung tung

mình đã thử đoạn code này, và cả đoạn code mình sửa lại điều chạy được, nếu vẫn ko được, bài up file bạn lên xem

Sub saochep_currentregion()
Sheets("sheet3").Select
Range("B1").Select
If ActiveCell = "ABC" Then
Sheets("Link").Select
Range("J4").CurrentRegion.Copy
Sheets("sheet3").Select
Range("B1").Select
ActiveCell.PasteSpecial Paste:=xlPasteValue, Operation:=xlNone, _
SkipBlanks:=True, Transpose:=True
End If
End Sub

Sub saochep()
Sheet3.Activate
If Sheet3.[B1] = "ABC" Then
Sheets("Link").[J4].CurrentRegion.Copy Sheet3.[B1]
End If
End Sub

NẾU dùng paste valua thì xài cái này
Sub saochep()
Sheet3.Activate
If [B1] = "ABC" Then
Sheet3.[B1].Resize(Sheet4.[J65536].End(xlUp).Row - 3, Sheet4.[iv4].End(xlToLeft).Column - 9) = Sheet4.[J4].CurrentRegion.Value
End If
End Sub
note: sheet4 là sheet("Link")