Döngü sorusu

[nickokey]

Aşağıdaki işlemi döngü kullanarak nasıl yapabilirim? Hatta kaç kere döneceğini de kullanıcıya sorabilir mi? Yardımınız için şimdiden Teşekkürler.



Sheets("1").Select
Sheets("1").Copy After:=Sheets(2)
Sheets("1 (2)").Select
Sheets("1 (2)").Name = "2"
Range("A5").Select
ActiveCell.FormulaR1C1 = "2"
Sheets("1").Select
Sheets("1").Copy After:=Sheets(3)
Sheets("1 (2)").Select
Sheets("1 (2)").Name = "3"
Range("A5").Select
ActiveCell.FormulaR1C1 = "3"
Sheets("1").Select
Sheets("1").Copy After:=Sheets(4)
Sheets("1 (2)").Select
Sheets("1 (2)").Name = "4"
Range("A5").Select
ActiveCell.FormulaR1C1 = "4"
Sheets("1").Select
Sheets("1").Copy After:=Sheets(5)
Sheets("1 (2)").Select
Sheets("1 (2)").Name = "5"
Range("A5").Select
ActiveCell.FormulaR1C1 = "5"

 

[Baggwell]

Forumda döngüleri araştırırmısınız For Each