Excel de Buton Ekleme Sorunu

[mikailover]

Ekte tablom var bunlara komut tanımlanması lazım ama bilgim yok yardım ederseniz sevinirim.:???:

 

[Korhan Ayhan]

Konu başlığınız forum kurallarına uymuyor.

Profilinizdeki excel versiyon bilgisini de lütfen düzeltiniz.

 

[antonio]

Yeni kayıt ilave etmek için aşağıdaki kodları kullanabilirsiniz. Bul ve Sil için hangi kritere göre kayıt bulunacağını belirtmediğinizden yardımcı olamıyorum.
Yeni kayıt ilave kodlarınız:

Private Sub Kaydet_Click()
Dim ss As Long, bs As Long, kaynak As Range, hedef As Range
With Sayfa1
    ss = .Range("C" & Rows.Count).End(3).Row
    bs = .Range("C" & Rows.Count).End(3).Row + 1
    Set kaynak = .Range("B3:J3")
    Set hedef = .Range(Cells(bs, "B"), Cells(bs, "J"))
End With
hedef.Value = kaynak.Value
kaynak.ClearContents
MsgBox "Yeni kayıt ilave edildi", vbInformation, "YENİ KAYIT"
End Sub