tạo code vòng lặp khi coppy sheet

[vn8690]

Xin chào mọi người
Mình muốn coppy 1 sheet mẫu ra sau đó gán 1 mã số nhân viên vào sheet mẫu đó
sau đó lại coppy sheet mẫu , điền mã số nhân viên tiếp theo
nhưng không biết viết mấy cái vòng lặp
mình ghi record ra đoạn code sau :

Sub coppysheet()
'
' coppysheet Macro
'

'
Sheets("Form").Select
Sheets("Form").Copy After:=Sheets(2)
Sheets("ma so nv").Select
Range("A4").Select
Selection.Copy
Sheets("Form (2)").Select
Range("F6").Select
ActiveSheet.Paste
End Sub
liệu có thể tạo vòng lặp cho đoạn code này không ?
rất mong nhận được sự giúp đỡ của mọi người
thanks

 

[snow25]

Xin chào mọi người
Mình muốn coppy 1 sheet mẫu ra sau đó gán 1 mã số nhân viên vào sheet mẫu đó
sau đó lại coppy sheet mẫu , điền mã số nhân viên tiếp theo
nhưng không biết viết mấy cái vòng lặp
mình ghi record ra đoạn code sau :

Sub coppysheet()
'
' coppysheet Macro
'

'
Sheets("Form").Select
Sheets("Form").Copy After:=Sheets(2)
Sheets("ma so nv").Select
Range("A4").Select
Selection.Copy
Sheets("Form (2)").Select
Range("F6").Select
ActiveSheet.Paste
End Sub
liệu có thể tạo vòng lặp cho đoạn code này không ?
rất mong nhận được sự giúp đỡ của mọi người
Cảm ơn

File bạn đưa lên không có dữ liệu giống code nhé.Bạn cần đưa danh sách cần tạo,Form mẫu.

 

[vn8690]

File bạn đưa lên không có dữ liệu giống code nhé.Bạn cần đưa danh sách cần tạo,Form mẫu.

mình xin lỗi
up nhầm file
mình vẫn đang loay hoay nãy giờ
mình up lại file đang làm nhé
rất mong bạn giúp đỡ
Sub coppysheet()
'
' coppysheet Macro
'

'
Application.Run "mau2.xlsm!HienForm"
Sheets("ma so nhan vien").Select
Range("A5").Select
Selection.Copy
Sheets("1").Select
Range("K8:M8").Select
ActiveSheet.Paste
Application.Run "mau2.xlsm!HienForm"
Sheets("ma so nhan vien").Select
Range("A6").Select
Selection.Copy
Sheets("2").Select
Range("K8:M8").Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

Bài đã được tự động gộp: 9/9/19

File bạn đưa lên không có dữ liệu giống code nhé.Bạn cần đưa danh sách cần tạo,Form mẫu.

ấn Ctrl Shift H sẽ hiện lên cái form để coppy sheet ( cái này mình coppy trên này luôn )