makro tekrarı

[cemilbenek]

kolay gelsin
kullandıgım evrak hazırlama makrosu var
ama bazen 8 bazen 10 defa aynı makroyu çalıştırmak zorunda kalıyorum
benim istediğim K 6 hücresine yazdığım rakam kadar kendini tekrarlasın bu konuda yardımcı olabilirmisiniz

Sub evrakhazırlama()
'
' evrakhazırlama Makro
'

'
Range("A1:Q1").Select
Selection.Copy
Application.Goto Reference:="R19C6"
Selection.End(xlUp).Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Range("D516").Select
Application.CutCopyMode = False
Selection.Copy
Application.Goto Reference:="R19C6"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Sub evrakhazırlama()
'
' evrakhazırlama Makro
'

'
For X = 1 To Range("K6").Value
Range("A1:Q1").Select
Selection.Copy
Application.Goto Reference:="R19C6"
Selection.End(xlUp).Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Range("D5:D16").Select
Application.CutCopyMode = False
Selection.Copy
Application.Goto Reference:="R19C6"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
ActiveCell.Offset(1, 0).Range("A1").Select
Next
End Sub

 

[cemilbenek]

Deneyiniz.

Sub evrakhazırlama()
'
' evrakhazırlama Makro
'

'
For X = 1 To Range("K6").Value
Range("A1:Q1").Select
Selection.Copy
Application.Goto Reference:="R19C6"
Selection.End(xlUp).Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Range("D5:D16").Select
Application.CutCopyMode = False
Selection.Copy
Application.Goto Reference:="R19C6"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
ActiveCell.Offset(1, 0).Range("A1").Select
Next
End Sub

ÇOK TEŞEKÜR EDERİM SORUSUZ ÇALIŞIYOR

 

[Korhan Ayhan]

Hatırlatma Forum Kuralları;

Büyük Harf Kısıtlaması:
- Mesaj yazarken büyük harf kullanmak bağırmak anlamına geleceği için yazılarınızı kesinlikle büyük harf kullanarak yazmayınız.