Soru alt satıra yazdırma buton ile

[alpmehoz]

Kayıt sayfasında bilgileri girdiğim oradaki bilgileri butona basınca zimmet sayfasına kaydetsin istiyorum. Ben yapıyorum 2. işlem yapınca hep aynı satır üzerine yazıyor. ben her bilgi girdiğimde i altına yazsın istiyorum. Kayıt sayfasına sadece 1 kere veri girmek istiyorum alt alta değil. 1 kere girip kayıt butonuna basınca zimmet sayfasına kaydetsin 1 no diye. sonra kayıt sayfasında verileri silip yeni ismi girince zimmet sayfasına 2 no ya kaydetsin.

 

[alpmehoz]

dosya bu

 

[Ömer]

Merhaba,

Deneyiniz.

Sub DikdörtgenKöşeleriYuvarlatılmış1_Tıkla()

    Dim Sz As Worksheet, son As Long
   
    Set Sz = Sheets("zimmet ")
   
    son = Sz.Cells(Rows.Count, "B").End(xlUp).Row + 1
   
    Sz.Cells(son, "A") = son - 1
    Range("A2:L2").Copy Sz.Cells(son, "B")
   
End Sub

 

[alpmehoz]

AYNEN BENDE YAPIYORM BÖYLE OLUYOR AMA 1.SATIRA YAZIYOR. BİR DAHA VERİ GİRDİĞİM ZAMAN ALT SATIRA YAZMIYOR. BEN VERİ GİRDİKÇE ZİMMET DOSYALARI ALT ALTA YAZILSIN İSTİYORUM.

MESALA KAYITA AHMET YÜCEL YAZDIM. BUTONA BASTIM
ZİMMET DOSYASINA 1. SIRA AHMET YÜCEL DİYE GEÇTİ
SONRA KAYIT KISMINI SİLDİM MEHMET ÖZTAŞÇI YAZDIM BUTONA BASTIM
ZİMMET DOSYASI
1 AHMET YÜCEL
2 MEHMET ÖZTAŞÇİ
OLARAK OLSUN İSTİYORUM

 

[Ömer]

Kodları denediniz mi?

 

[alpmehoz]

denedim olmadı.

 

[alpmehoz]

Kodları denediniz mi?

üstüne yazıyor.

 

[Ömer]

Denedim alt alt yazıyor. Üstüne yazma olmuyor.
Ektedir.

 

[alpmehoz]

Denedim alt alt yazıyor. Üstüne yazma olmuyor.
Ektedir.

kardeşim harikasın çok süpersin Allah razı olsun senden.