hücreye veri girip ekle tuşu ile belirli sütun aralığında listelettirme

[m.alt]

tablomda isim soyisim ve borç kısmı var birde ekle butonu yaptım bu hücrelere yazılan veri liste adı altında eklenmesi gerekiyor fakat aktif ettiremedim.
yardımlarınız için şimdiden teşekkür ederim.

Ornek Dosya Ektedir.

 

[Muzaffer Ali]

Aşağıdaki kodu kullanabilirsiniz.

Sub VeriGirisi()
    Dim BosHucre As Long
    If Range("A4").Value = "" Then
        MsgBox "Lütfen 'İsim Soyisim' alanını doldurunuz."
        Exit Sub
    ElseIf Range("B4").Value = "" Then
        MsgBox "Lütfen 'Borç' alanını doldurunuz."
        Exit Sub
    End If
    BosHucre = Cells(Rows.Count, "F").End(3).Row + 1
    Range("E" & BosHucre).Value = Range("A4").Value
    Range("F" & BosHucre).Value = Range("B4").Value
    Range("A4").Value = ""
    Range("B4").Value = ""
End Sub

 

[yanginci34]

Buyrun denermisiniz.

Ekli dosyayı görüntüle FORUMA SORU düzenli.xlsm

 

[yanginci34]

Sayın üstadım özür dilerim sizin cevabınızı görmemiştim.

 

[m.alt]

Her ikiside işimi ziyadesiyle gördü. Teşekkür ederim

 

[m.alt]

diyelim ki en son veriyi yanlış girdim geri alma butonu ekleyebilirmiyiz.?

 

[Muzaffer Ali]

Son kaydı geri almak için aşağıdaki kodu kullanabilirsiniz.

Sub GeriAl()
    Dim SonHucre As Long
    SonHucre = Cells(Rows.Count, "F").End(3).Row

    Range("A4").Value = Range("E" & SonHucre).Value
    Range("B4").Value = Range("F" & SonHucre).Value
    Range("E" & SonHucre).Value = ""
    Range("F" & SonHucre).Value = ""
End Sub

 

[m.alt]

Teşekkür ettim..