Satır eklemek

[delkan32]

örnekteki dosyamdanda anlaşılacağı üzere verilerimi satır numarasına göre satır eklemek istiyorum. Yardımcı olursanız çok sevinirim

 

[hamitcan]

Sub dagit()
    For i = 1 To [a65536].End(3).Row
        Cells(Cells(i, 1), "i") = Cells(i, 1)
        Cells(Cells(i, 1), "j") = Cells(i, 2)
        Cells(Cells(i, 1), "k") = Cells(i, 3)
        Cells(Cells(i, 1), "l") = Cells(i, 4)
    Next
End Sub

 

[delkan32]

çok teşk ederim çok işime yaradı

 

[muratozmenler]

Sub SatirEkle()
Dim i As Double
Dim Adet As Integer
For i = [A65536].End(3).Row To 2 Step -1
Adet = Cells(i, "A") - Cells(i - 1, "A")
If Adet <> 1 Then
Adet = Adet - 2
Rows(i & ":" & i + Adet).Insert Shift:=xlDown
End If
Next i
End Sub

 

[Ayhan Ercan]

Alternatif..

Ek dosyayı inceleyiniz...

Private Sub CommandButton1_Click()
For i = 1 To [a65536].End(3).Value
    If Cells(i, 1).Value <> "" Then
        If Cells(i, 1).Row = Cells(i, 1).Value Then GoTo 10
        Rows(i).Insert Shift:=xlDown
    End If
10 Next
End Sub