[vb:1:4c578a5d02]Private Sub CommandButton1_Click()
On Error GoTo 10
Sheets("sayfa1").Rows([sayfa1!c1:c65536].Find([e2]).Row).Delete
MsgBox "SİLME İÃLEMİ TAMAMLANDI"
Exit Sub
10 MsgBox "VERİ BULUNAMADI"
End Sub
[/vb:1:4c578a5d02]
Bilgi güncelle butonunada aşağıdaki kodu kopyalayın.
[vb:1:4c578a5d02]Private Sub CommandButton2_Click()
On Error GoTo 10
Set s1 = Sheets("sayfa1")
sat = [sayfa1!c1:c65536].Find([e2]).Row
s1.Cells(sat, "a") = [b2]
s1.Cells(sat, "b") = [b4]
s1.Cells(sat, "d") = [e4]
MsgBox "KAYIT İÃLEMİ TAMAMLANDI"
Exit Sub
10 MsgBox "VERİ BULUNAMADI"
End Sub
[/vb:1:4c578a5d02]
Merhaba,ben bu kodları çoooktan denedim ve tam istediğim gibi olmuş sayın Leventm ye teşekkürler. Ama mesaj kirliliği olmasın diye Sayın Leventm'nin süzme işlemiyle ilgili soruma vermiş olduğu cevapta bu kodların istediğim gibi olduğunu söylemiştim.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.