Userformda bul,değiştir,kaydet

[rekkezum]

Kolay gelsin,

Ekteki dosyada usrform ile yapmaya çalıştığımız bir örnek mevcut.Bul,değiştir ve kaydet il ilgili bir sıkıntı mevcut. Yardımlarınız için teşekkürler...

 

[rekkezum]

Kolay gelsin,

Ekteki dosyada usrform ile yapmaya çalıştığımız bir örnek mevcut.Bul,değiştir ve kaydet il ilgili bir sıkıntı mevcut. Yardımlarınız için teşekkürler...

Bul seçeneğine ufaktan bir çözüm buldum gibi. Userform a BUL düğmesi ile
görüntülenen verilerin bazıları değiştirilip aynı hücrelere güncellenmiş verilerin KAYDET düğmesi ile nasıl kayt edebilirim ? Birde BUL ile ilgili bulduğum çözüm olmuşmu, daha düzgün bir çözüm varmıdır ?

 

[rekkezum]

Bul seçeneğine ufaktan bir çözüm buldum gibi. Userform a BUL düğmesi ile
görüntülenen verilerin bazıları değiştirilip aynı hücrelere güncellenmiş verilerin KAYDET düğmesi ile nasıl kayt edebilirim ? Birde BUL ile ilgili bulduğum çözüm olmuşmu, daha düzgün bir çözüm varmıdır ?

Yardımcı olacak yokmu ?

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
Set bul = Range("f1:f65536").Find(ComboBox4, lookat:=xlWhole)
If Not bul Is Nothing Then
TextBox1 = Cells(bul.Row, "b")
TextBox2 = Cells(bul.Row, "e")
TextBox3 = Cells(bul.Row, "d")
TextBox4 = Cells(bul.Row, "g")
TextBox5 = Cells(bul.Row, "h")
TextBox6 = Cells(bul.Row, "j")
TextBox7 = Cells(bul.Row, "m")
TextBox8 = Cells(bul.Row, "n")
TextBox9 = Cells(bul.Row, "o")
TextBox10 = Cells(bul.Row, "p")
ComboBox2 = Cells(bul.Row, "l")
ComboBox3 = Cells(bul.Row, "k")
[COLOR="Blue"]Cells(bul.Row, "f").Activate 'bulunan veri hücresini seç[/COLOR]
Else

MsgBox "aradığınız kayıt bulunamadı."
End If
End Sub

Private Sub CommandButton2_Click()
son = Cells(65536, "f").End(xlUp).Row + 1
[COLOR="blue"]Cells(son, "f") = ComboBox4 'yeni veri kaydet[/COLOR]
End Sub

Private Sub CommandButton4_Click()
[COLOR="blue"]Cells(ActiveCell.Row, "f") = ComboBox4 'güncelle[/COLOR]
End Sub

 

[rekkezum]

İlginiz için teşekkür ederim. Acaba dosyayı inceleme şansınız oldumu. Kusura bakmayın bu kodların hangisini hangi düğmeye yapıştıracağım ?

 

[aliihsanuckan]

userform da bul, değiştir

arkadaşlar userformda bul, temizle ve değiştir makrosu nasıl oluyor biri detaylı anlatabilirmi? ben yapamadım. yardımlarınızı bekliyorum.