Makro kodunu İstenilen sayıda tekrar ettirmek

[messi43]

Merhaba

elimde böyle bir makro kodum var ve ben bunu istediğim sayıda tekrar etsin istiyorum.

Bu formül exelde bir veriyi arttırarak pdf olarak kaydetmemi sağlıyor ben bunu 95 defa yapsın istiyorum mesela bunu nasıl yapabilirim.

Sub kaydet()
'
'  Makro
'

'
    Range("AI1").Select
    Selection.Copy
    Range("AJ1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("O7:Q7").Select
    ActiveCell.FormulaR1C1 = "=R[-6]C[21]"
    Range("O8").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\yeni\" & [o7] & ".pdf"
End Sub

 

[Emir Hüseyin Çoban]

. . .

Sub kaydet()
'
'  Makro
'

'
    
For i = 1 To 95
    Range("AI1").Select
    Selection.Copy
    Range("AJ1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("O7:Q7").Select
    ActiveCell.FormulaR1C1 = "=R[-6]C[21]"
    Range("O8").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\yeni\" & [o7] & ".pdf"

Next i
End Sub

. . .

 

[myefsane]

Hocam merhaba şunu nasıl yaparız.

95 kez değilde h22 hücresinde Elma yazmıyorsa kodu çalıştır ve bu sefer h23 hücresine bak orada da yoksa tekrar kodu çalıştır.

 

[RBozkurt]

Hocam merhaba şunu nasıl yaparız.

95 kez değilde h22 hücresinde Elma yazmıyorsa kodu çalıştır ve bu sefer h23 hücresine bak orada da yoksa tekrar kodu çalıştır.

Sub Elma()
    If Sheets("ABC").Range("H22").Value <> "elma" Then
        Call Makro1
    End If
    If Sheets("ABC").Range("H23").Value <> "elma" Then
        Call Makro1
    End If
End Sub

 

[volkan5454]

For i = 1 To 5
    
Next i

Hocam bu kodu 1 ve 5 yazan değerleri değiştirmek için makroya girmek gerekiyor bunları bir hücreye değer atayacak şekilde nasıl yazarız.

 

[Cengiz Demir]

a= Range("A5") : b= Range("B5")
For i = a To b
........
(A5 ve B5 hücrelerindeki değerlere göre işlem yapar )

Bu şekilde ayarlayabilirsiniz. 1 sabitse tek değişken yaparsınız . ( 1 To a )

 

[volkan5454]

a= Range("A5") : b= Range("B5")
For i = a To b
........
(A5 ve B5 hücrelerindeki değerlere göre işlem yapar )

Bu şekilde ayarlayabilirsiniz. 1 sabitse tek değişken yaparsınız . ( 1 To a )

TEŞEKKÜR EDERİM HOCAM