Veri Tablosuna kayıt ve silme

[lmuser]

Örnek dosyamdaki işlemleri yapmamda yardımcı olursanız sevinirim teşekkürler..

 

[Ömer]

Merhaba,

Sub Kaydet_Sil()
On Error GoTo Son
If Range("B6") = "" Then Exit Sub
d = WorksheetFunction.Match(Range("B6"), Range("B26:B6500"), 0) + 25
Range("B6:S6").Copy Cells(d, "B")
Range("B6:S6").ClearContents
Exit Sub
Son:
MsgBox "Listede Olmayan Veri Girdiniz"
End Sub

Eğer B6 hücresine veri girdekten sonra yan hücrelere veri girmeden butona basarsanız istediğiniz satır silinir.


.