verileri alt alta sıralama

[DeathMoment]

arkadaşlar çalışmamda kayıt programı butonu ile açılan formda verileri girip kaydet dediğimde verileri data sayfasına kaydediyor birde TC kimlik noya göre sayfa ekliyor benim istediğim aynı TC kimlik no girildiğinde yeni sayfa eklemeden daha önce var olan sayfanın 12. satırından itibaren aşağıya doğru sıralaması

 

[suleyman242]

Kodunuzdaki şu kısmı siliniz
dediğiniz gibi çalışacaktır.

        i = Empty
        
        Kontrol = True
        Sheets("Şablon").Visible = True
        Sheets("Şablon").Copy After:=Sheets(ThisWorkbook.Worksheets.Count)
        Sheets("Şablon").Visible = False
        
        With ActiveSheet
            .Name = TextBox1
            .Range("A12").Value = TextBox1.Text
            .Range("B5").Value = TextBox2.Text
            .Range("B6").Value = TextBox7.Text
            .Range("B7").Value = TextBox8.Text
            .Range("B8").Value = TextBox9.Text
            .Range("B9").Value = TextBox15.Text
            .Range("B12").Value = ComboBox2.Text
            .Range("C12").Value = CDbl(TextBox4)
            .Range("D12").Value = CDbl(TextBox5)
            .Range("E12").Value = CDate(TextBox10.Text)
            .Range("F12").Value = CDate(TextBox6.Text)
        End With

 

[DeathMoment]

Kodunuzdaki şu kısmı siliniz
dediğiniz gibi çalışacaktır.

        i = Empty
        
        Kontrol = True
        Sheets("Şablon").Visible = True
        Sheets("Şablon").Copy After:=Sheets(ThisWorkbook.Worksheets.Count)
        Sheets("Şablon").Visible = False
        
        With ActiveSheet
            .Name = TextBox1
            .Range("A12").Value = TextBox1.Text
            .Range("B5").Value = TextBox2.Text
            .Range("B6").Value = TextBox7.Text
            .Range("B7").Value = TextBox8.Text
            .Range("B8").Value = TextBox9.Text
            .Range("B9").Value = TextBox15.Text
            .Range("B12").Value = ComboBox2.Text
            .Range("C12").Value = CDbl(TextBox4)
            .Range("D12").Value = CDbl(TextBox5)
            .Range("E12").Value = CDate(TextBox10.Text)
            .Range("F12").Value = CDate(TextBox6.Text)
        End With

dediğinizi yaptım ancak bu sefer hiç sayfa açmıyor sanırım yanlış anlaşıldı daha ayrıntılı anlatmaya çalışayım şimdi ben ilk kaydı yaptığımda 12345678900 tc nolu bir sayfa açacak ve bilgileri şablona göre sıralayacak ancak ben aynı tc no ile bir daha kayıt yaptığımda bu sefer sayfa açmadan öncekinde açılan sayfanın üzerine yazıcak yani yeni eklenen veriler sürekli 12.satırdan itibaren yazılacak

 

[DeathMoment]

yardımcı olabilecek kimse yok mu?

 

[Muzaffer Ali]

Dosyanız Ekte

 

[DeathMoment]

Dosyanız Ekte

hata alıyorum sürekli