For Döngüsü

[aksoy83]

Merhaba aşağıdaki makro kodunu döngüye nasıl sokarım. 100 kere tekrarlanması gereklidir , teşekkürler.

Sub ddd()

ActiveCell.End(xlDown).Select
ActiveCell.Offset(2, 0).Select
Selection.EntireRow.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.FormulaR1C1 = "İrsaliye Tarihi "
ActiveCell.Offset(0, 1).Value = "İrsaliye No"
ActiveCell.Offset(0, 2).Value = "Stok/Hizmet Ad"
ActiveCell.Offset(0, 3).Value = "Birim"
ActiveCell.Offset(0, 4).Value = "Miktar"
ActiveCell.Offset(0, 5).Value = "Birim Fiyat"
ActiveCell.Offset(0, 6).Value = "HareketTutar"
ActiveCell.Offset(0, 7).Value = "KdvTutar"
ActiveCell.Offset(0, 8).Value = "NetTutar"

End Sub

 

[kulomer46]

Merhaba

Aşağıdaki düzenlenmiş kodlar işinizi görür.

Selamlar...

Sub ddd()

sonsatır = ActiveCell.SpecialCells(xlLastCell).Row

For i = 1 To 100

    ActiveCell.End(xlDown).Select
  
    If ActiveCell.Row > sonsatır - 5 Then
  
        Cells(Cells(Rows.Count, 1).End(3).Row, 1).Select
        MsgBox "Döngü  " & i & "  adet Çalıştı", , "DÖNGÜ"
        Exit Sub
      
    End If
  
    ActiveCell.Offset(2, 0).Select
    Selection.EntireRow.Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveCell.FormulaR1C1 = "İrsaliye Tarihi "
    ActiveCell.Offset(0, 1).Value = "İrsaliye No"
    ActiveCell.Offset(0, 2).Value = "Stok/Hizmet Ad"
    ActiveCell.Offset(0, 3).Value = "Birim"
    ActiveCell.Offset(0, 4).Value = "Miktar"
    ActiveCell.Offset(0, 5).Value = "Birim Fiyat"
    ActiveCell.Offset(0, 6).Value = "HareketTutar"
    ActiveCell.Offset(0, 7).Value = "KdvTutar"
    ActiveCell.Offset(0, 8).Value = "NetTutar"

Next

MsgBox "Döngü  " & i - 1 & "  adet Çalıştı", , "DÖNGÜ"

End Sub