değiştirme sorunu

[korhan86119]

Merhaba Üstadlar,
Benim sorunum,userform4 te oluşturduğum combobox ile listboxtan texboxlara veri çağırmak ve çağırdığım veriler üzerinde değişiklik yapmak.kaydet sil ve temizle işlemlerini yapabiliyorum ancak değiştirme işlemini bir türlü beceremedim.Acil yardımlarınızı bekliyorum.Şimdiden teşekkür ederim.

 

[korhan86119]

Değiştirme sorunu

Yardım etcek arkadaş yokmu.

 

[Emir Hüseyin Çoban]

. . .

Aşağıdaki kodlar ile değiştirerek deneyiniz.
. . .

Private Sub CommandButton2_Click()
'Değiştir butonuna basıldığında yapılacak işlemler.
sor = MsgBox("Değiştirmek istediğinizden eminmisiniz?", vbYesNo)
'mesaj kutusu devreye giriyor.
If sor = vbNo Then Exit Sub
'evet veya hayır cevaplarından Hayır ise kodlar sonlandırılıyor.
SonSat = ListBox1.ListIndex + 2
'son satır numarası alınıyor.
Cells(SonSat, 2) = TextBox1
'ikinci sutununun en son satırına textbox2 deki açıklama yazılıyor.

Cells(SonSat, 3) = TextBox2
Cells(SonSat, 4) = TextBox3
Cells(SonSat, 5) = TextBox4
Cells(SonSat, 6) = TextBox5

ListBox1.RowSource = "B2:f" & [A65536].End(3).Row

[B]'YENİ KODLAR
For h = 2 To Sheets("veri").[B65536].End(3).Row
If Sheets("veri").Cells(h, "B") = t1 And Sheets("veri").Cells(h, "C") = t2 And _
Sheets("veri").Cells(h, "D") = t1 And Sheets("veri").Cells(h, "E") = t1 And _
Sheets("veri").Cells(h, "F") = t1 Then

Sheets("veri").Cells(h, "B") = TextBox1.Value
Sheets("veri").Cells(h, "C") = TextBox2.Value
Sheets("veri").Cells(h, "D") = TextBox3.Value
Sheets("veri").Cells(h, "E") = TextBox4.Value
Sheets("veri").Cells(h, "F") = TextBox5.Value
Else: End If
Next h
'***[/B]

'liste kutusunun satır kaynagının hangi hücreler olduğu belirtiliyor.
MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
End Sub

. . .

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'listbox kutusuna çit tıklattığınızda

For a = 0 To 4
'textboxlar için döngü kuruluyor
Controls("textbox" & a + 1) = ListBox1.Column(a)
'textboxlara sıara ile liste kutusundaki veriler yazılıyor.
Next

sat = ListBox1.ListIndex + 2

[B]'YENİ KODLAR
t1 = TextBox1.Value
t2 = TextBox2.Value
t3 = TextBox3.Value
t4 = TextBox4.Value
t5 = TextBox5.Value
'***[/B]

CommandButton1.Enabled = False
CommandButton2.Enabled = True
CommandButton3.Enabled = True
End Sub

. . .

 

[korhan86119]

Değiştirme sorunu

Merhaba Hüseyin Bey,ilginiz için teşekkürler.Ancak benim istedim combobox ile listboxtaki verileri bulsun ve texboxlara aktarsın.Normal şartlarda listbox üzerine çift tıkladığım tüm işlemlerimi yapabiliyorum.Sıkıntı combox ile çağrıldığında değiştirme işlemini yapmaması.

 

[korhan86119]

combobox ile texboxlara veri çağırma

Merhaba arkadaşlar derdime çağre yokmu?