kayıt sil ya da güncelle

[MOONROSE]

Tekrar merhaba,ekteki dosyanın sayfa2'sine sorumu anlattım.Hangi butona basarsam o işlemi yapsın.Çok teşekkürler

 

[Levent Menteşoğlu]

Kayıt sil butonuna aşağıdaki kodu;

[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]

 

[tuarek]

arkadaş daha bilgisayarı açmadı galiba..
ama ben ben denedim istediği gibi olmuş sanırım.

 

[MOONROSE]

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.