her kopyalamayı bir alt satıra yapıştırma

[ahmetcirali]

arkadaşlar basit bişi belkide ama henüz excele okadar hakim olamadığım için yardımınıza ihtiyacım var ekte verdiğim dosyada her kaydet butonuna basıldığında liste sheetinde bir alt satıra kopyalama yapmasını istiyorum yardımcı olabilirmisiniz

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub kayıt()
Dim sat As Long, i As Byte
Sheets("Kayıt").Select
If Cells(5, "C").Value = "" Then
    MsgBox "Sıra numarası boş olamaz..!!", vbCritical, "DİKKAT"
    Range("C5").Select
    Exit Sub
End If
sat = Sheets("liste").Cells(65536, "A").End(xlUp).Row + 1
If sat >= 65536 Then
    MsgBox "Sayfa Doldu,başka kayıt yapamazsınız..!!", vbCritical, "DİKKAT"
    Exit Sub
End If
For i = 5 To 15 Step 2
    Sheets("liste").Cells(sat, i - 4).Value = Cells(i, "C").Value
Next
MsgBox "Kayıt Yapıldı..!!", vbOKOnly + vbInformation, "KAYIT"
End Sub

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

 

[ahmetcirali]

ilginiz için teşekkürler arkadaşlar. Orion2 senden öğreneceğim çok şeyler var sanırım eline sağlık tam istediğim şeydi bu

 

[Orion1]

ilginiz için teşekkürler arkadaşlar. Orion2 senden öğreneceğim çok şeyler var sanırım eline sağlık tam istediğim şeydi bu

Rica ederim.
İyi çalışmalar.