Cập nhật vài dòng qua sheet khác (1 người xem)

[MinhK]

record macro
Sub Macro101()
'
Rows("425:425").Select
Selection.Copy
Sheets("Sheet1").Select
Range("A425").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Câu hỏi:
muốn dung variable thế cho "425"
chạy loop for / next i

Cám ơn các bạn trước


----------------
Lần sau bạn nhớ gõ tên tiêu đề với tiếng Việt đầy đủ nha (tôi đã sửa lại cho bạn rồi).

 

[cadafi]

record macro
Sub Macro101()
'
Rows("425:425").Select
Selection.Copy
Sheets("Sheet1").Select
Range("A425").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Câu hỏi:
muốn dung variable thế cho "425"
chạy loop for / next i

Bạn thử đoạn code sau:

Sub Macro101()
For i=1 to 425        "Cái này tùy theo tham số truyền vào biến i không nhất thiết là i phải chạy từ 1 đến 425
    Sheets("Sheets Nguồn").select
    Rows(i).Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("A"& i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
Next i

End Sub

 

[MinhK]

Hi anh ca_dafi
Chay thử , rât tốt
tuy nhiên vì câu hỏi tôi đặt thiếu sót là không trên cùng 1 workbook., mà hai workbook khác nhau

tôi thừ copy code anh và sửa lại như sau thi không copy duoc gi hết.

Sub Macro1011()
For i = 1 To 4
Sheets("Sheet1").Select
Rows(i).Select '<--- không thấy rows(i) được select gì hết như minh manually select / copy
Selection.Copy
Windows("Book2").Activate
Sheets("Sheet1").Select
Range("A" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Next i
End Sub

Mong anh ca_dafii giúp thêm một chút xíu nữa.

minhk

 

[Po_Pikachu]

À, thì ra bạn thiếu dòng lấy dữ liệu nguồn thôi!

Sub Macro1011() For i = 1 To 10 [COLOR=red]Windows("Book1").Activate[/COLOR] Sheets("Sheet1").Select Rows(i).Select Selection.Copy Windows("Book2").Activate Sheets("Sheet1").Select Range("A" & i).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Next i End Sub

 

[cadafi]

Bạn phải thêm tên workbook nguồn vào giống như bạn Po_Pikachu:

Sub Macro1011()
For i = 1 To 4
Sheets("Sheet1").Select "==>Kiet: Bạn phải thêm địa chỉ workbook vào chỗ này!
Rows(i).Select '<--- không thấy rows(i) được select gì hết như minh manually select / copy
Selection.Copy
Windows("Book2").Activate
Sheets("Sheet1").Select
Range("A" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Next i
End Sub

 

[MinhK]

To anh Po_PiKachu
Ui cha chạy được rối
code 1
Sub Macro1011()
For i = 1 To 10
Windows("Book1").Activate ' <--- runtime error "9" . Subcrỉpt out of range
Sheets("Sheet1").Select
Rows(i).Select

sữa lại

code

Sub Mácro101()
For i = 1 To 10
Windows("Book1.xls").Activate
Sheets("Sheet1").Select
Rows(i).Select
Selection.Copy
Windows("Book2.xls").Activate
Sheets("Sheet1").Select
Rows(i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Next i
End Sub
Râ cảm ơn hai anh Ca_dafi va Po_Pikachu trả lới sớm .

Minhk