Sil-Değiştir özelliği yapma

[seddur]

For sut = 1 To WorksheetFunction.Max(Sheets("Sayfa1").Cells(17, Columns.Count).End(xlToLeft).Column + 1, 4) Step 2
For sut2 = 2 To WorksheetFunction.Max(Sheets("Sayfa1").Cells(17, Columns.Count).End(xlToLeft).Column + 1, 4) Step 2

For sat = 1 To 15
If Sheets("Sayfa1").Cells(sat, sut) = "" Then Sheets("Sayfa1").Cells(sat, sut) = TextBox1: TextBox1 = ""
If Sheets("Sayfa1").Cells(sat, sut2) = "" Then Sheets("Sayfa1").Cells(sat, sut2) = TextBox2: TextBox2 = ""
Next
Next
Next

Yukarıdaki kod ile textbox1 ve 2 den sayfaya veri girişi yapıyorum.Yapılacak olan ise bir userform üzerinde girilen bu verileri gerektiğinde silme veya değiştirme özelliği ile birlikte çalıştırmak.Yani textboxdan veri çağrılacak sil veya değiştir komutlarıyla silme veya değiştirme işlemi yapılacak.İlgilenecek arkadaşa şimdiden teşekkürler.

 

[seddur]

Bu kodlar sayfada alt alta değil belli bir sayıya ulaştıktan sonra yan yana kayıt yapıyor.O yüzden internetdeki kodlar işe yaramıyor.Özel yapılması gerekiyor.Userform olamadanda si-değiştir yapılabilir.

 

[Korhan Ayhan]

Burada güzel bir örnek var. İnceleyip kendinize uyarlayınız.

https://www.excel.web.tr/threads/veri-yoenetimi-uygulamasi-veri-kaydetme-degistirme-ve-silme.15160/