listboxta yaptığımı comboboxta yapmak

[Fuat Şirin]

Private Sub Listbox1_Change()
On Error Resume Next
Set sh = Sheets("MÜŞTERİLER")
satir = sh.Columns(1).Find(ListBox1.Text).Row
For i = 1 To 46
UserForm1.Controls("textbox" & i).Text = sh.Cells(satir, i)
Next
Cells(ListBox1.ListIndex + 2, 1).Select
End Sub
-------------------------------------------
Private Sub CommandButton8_Click()
On Error Resume Next
a = ListBox1.ListIndex + 2
satir = Sheets("MÜŞTERİLER").Columns(1).Find(ListBox1.Text).Row
For i = 1 To 46
Sheets("MÜŞTERİLER").Cells(satir, i) = UserForm1.Controls("textbox" & i).Text
Next
End Sub

yukardaki kodlarda
listboxta listelediğim satırı tıklayıp textlere alıyorum
ve bunu textlerde düzeltip aynı yerine alıyorum

benim istediğim aynı forma birde combobox ekleyip
aynı işlemi ondada yapmak
yani seçtiğim ismin satırı textlere alınacak
ve değiştirip kaydeceğim

yardım edecek arkadaşa şimdiden çok teşekkür

 

[Fuat Şirin]

dosya ekte

dosyayı eklemeyi unutmuşum
dosya ektedir

 

[Fuat Şirin]

hocalarımdan yardım bekliyorum çok rica

 

[Ferhat Pazarçevirdi]

Ama güzel kardeşim, VBA şifresi olmadan nasıl yapacağız bu dediklerini ?

 

[Fuat Şirin]

çok özür dilerim gerçekten parola koyduğumu unutmuşum
şifre
000004
beş sıfır bir dört

 

[Ferhat Pazarçevirdi]

Peki, bahsettiğiniz bu Combobox'a ne yüklenecek, neler değiştirilecek ? Şu an Userform1'de bir adet combobox'ınız zaten var.

Biraz daha açar mısınız konuyu?

 

[Fuat Şirin]

tamam bu comboboxtan isim seçebiliyorum
ve textler doluyor
ama textlerde değişiklik yapıp değiştir butonuna(commanbutton8) tıkladığımda
hata veriyor

 

[Ferhat Pazarçevirdi]

Sanırım, ben olayın mantığını çözemedim.

Commandbutton8, listbox'ın değerine göre MÜŞTERİLER sayfasındaki kayıtları değiştiriyor. Ama listbox'ta nelerin yüklü olduğunu bilemiyorum.

Üstelik,Listbox'a tıkladığınızda combobox'ın yüklediği şeyler de siliniyor. Combo'ya tıkladığınızda, listbox'ın yüklediği text değerleri siliniyor.

Belki biraz veri olsaydı dosyanızda, daha anlaşılır olurdu.

Kısacası, kodların ne iş yaptığını çözemedim. Kusura bakmayın.

 

[Fuat Şirin]

hocam haklısınız
size şöle sölesem belki yardımcı olmanızda daha etkli olur
listboxta "sipariş" sayfasındaki veriler listeleniyor
ben burda sipariş verenin ismine tıkladığımda
"müşteriler" sayfasındaki o sipariş verenin bilgilerini textlere alıyor
bende burdan mesela cübbe ölçülerini yada adres vs değiştirip
command buttton8 i tıkladığımda yaptığım değişiklikleri işliyor
benim istediğim comboboxtada aynısını yapmak
comboboxta listelediğim
isimlerden seçtiğimi
aynı isim satırındaki textlere almak ve düzenlemek

yani kısaca comboda ismi yazan kişi bilgilerini düzenleyebilmek

 

[Fuat Şirin]

hocam bana sadece comboboxta seçili ismin yazılı olduğu satırı değiştirecek
kodları ayarlamanız mümkün mü

 

[Fuat Şirin]

yardım edecek arkadaş yok mu
lütfen çok acil yardım

 

[Fuat Şirin]

lütfen hocalarımdan yardım bekliyorum