ForNext döngüsü hk.

[Mdemir63]

Selamlar
Ekteki dosyada kaydet işlemini ForNext döngüsü ile nasıl yapabilirim?
Saygılar

 

[Orion1]

Buyurun.

Sub Kayıtyap()
    Dim i As Byte
    Set s1 = Sheets("KAYDET")
    Set s2 = Sheets("GİRİS")
    SonSatır = WorksheetFunction.CountA(Worksheets("KAYDET").Range("B:B")) + 1
    For i = 2 To 7
        s1.Cells(SonSatır, i) = s2.Cells(i + 2, "D").Value
    Next i
End Sub

 

[Mdemir63]

Buyurun.

Sub Kayıtyap()
    Dim i As Byte
    Set s1 = Sheets("KAYDET")
    Set s2 = Sheets("GİRİS")
    SonSatır = WorksheetFunction.CountA(Worksheets("KAYDET").Range("B:B")) + 1
    For i = 2 To 7
        s1.Cells(SonSatır, i) = s2.Cells(i + 2, "D").Value
    Next i
End Sub

Evren hocam
çok teşekkür ederim.

Saygılar

 

[Orion1]

Rica ederim.
İyi çalışmalar.