form kayıt güncelleme ?

[igultekin2000]

http://s4.dosya.tc/server3/witp1q/Kitap1.rar.html

iyi günler;
amatörce de olsa formdan öğrendiğim kadarıyla işimi görecek kadar formlar hazırlıyorum. güncelleme mantığını anlayamadım. 4 textBox' luk bir örnek
hazırladım burada güncellemeyi öğrenebilirsem kendi hazırladığım formda kullanacağım. yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
********
konuyla alakalı olarak, sayfayı makro olarak kaydetmeden formları saklayamıyorum. indirdiğim örneklerde normal excell sayfası olarak indiği halde form butonunu tıkladığımda form açılıyor, bunu da çözemedim.

 

[TEGCreative]

Merhaba sayın igultekin2000 ; formunuza bir adet listbox ekledim. Gerekli kodlar yazıldı çalışıyor. Kendinize göre uyarlayabilirsiniz

Buradan indirebilirsiniz.

 

[igultekin2000]

hızlı bulma

Merhaba sayın igultekin2000 ; formunuza bir adet listbox ekledim. Gerekli kodlar yazıldı çalışıyor. Kendinize göre uyarlayabilirsiniz

Buradan indirebilirsiniz.

Teşekkürler bu şekilde işimi görüyor, ancak ayrıca satır sayısı fazla olan verileri güncellemek için aşağıda listeleme yapmadan veya listeden isim yazarak veriye hızlı ulaşmak gibi şansımız olabilir mi?.

 

[TEGCreative]

Listbox filtreleme olarak forumda arama yapabilirsiniz. Bir textbox ile veri girişi yaparak o veriyi aratacağınız sütun bilgisi ile birlikte filtreleme yapılabilir.

 

[igultekin2000]

sorun çözüldü

Listbox filtreleme olarak forumda arama yapabilirsiniz. Bir textbox ile veri girişi yaparak o veriyi aratacağınız sütun bilgisi ile birlikte filtreleme yapılabilir.

Yönlendirmenizle bu sorunu da halletmiş olduk. **** BUL_MAKROSU *****

Private Sub ComboBox1_Change()
Set S = Sheets("DATA")
    ADI = Trim(ComboBox1.Text)   ‘aranan isim aramadaki comboBox
    On Error Resume Next
    Satir = S.Range("A:A").Find(ADI).Row
    If Satir = 0 Then
    Exit Sub
    End If
    TextBox1 = S.Cells(Satir, "A")
    TextBox2 = S.Cells(Satir, "B")
    TextBox3 = S.Cells(Satir, "c")
    ComboBox3 = S.Cells(Satir, "D")
    ComboBox2 = S.Cells(Satir, "E")
End Sub

**** DEĞİŞTİR_MAKROSU *******

Private Sub CommandButton4_Click()
aranan = ComboBox1.Text  ‘ girişte kullanılan comboBox
Set ara = Sheets("KAYIT").Range("B:B").Find(aranan, , xlValues, xlWhole)
Sheets("KAYIT").Cells(ara.Row, "C") = TextBox2.Text
Sheets("KAYIT").Cells(ara.Row, "D") = TextBox3.Text
Sheets("KAYIT").Cells(ara.Row, "B") = ComboBox1.Text
Sheets("KAYIT").Cells(ara.Row, "A") = TextBox1.Text
End Sub

ilgili formun üzerinde bir ComboBox ve bir TextBox açarak sorun çözüldü.