ComboboxtanListboxa aldığımveriyi Textboxlara aktaramıyo

[mustafakayiran]

aslında faydalıda oldu gerçekten çok teşekkür ederim sayın leventm sayenizde çözdüm hata benden kaynaklanıyormuş ComboBox12 nin Change yordamındaki yatay sayma alanını genişletmediğim için sürekli texbox7 yi ekledigimde hata veriyordu sorunu çözdüm ve şuan mutluyum ve huzurluyum sabahtan buyana kafam şişti o yüzden dikkatsizlik yaptığımın farkını yeni anladım

sizden gerçekten özür dilerim uğraştırdım ve gereksiz yere düşünmenize neden oldum

iyi çalışmalar

ALLAHDA SİZLERİ MUTLU MESUT VE BAHTIYAR ETSİN

 

[mustafakayiran]

yine takıldım bu konuda
bu kezde listboxtan textboxlara ve comboboxlara aldığım bilgiyi sayfaya aktarmada sorun yaşıyorum ya son satıra yazıyor yada ilk satıra yazıyor işaretledigim kişinin bilgilerini olduğu satırda düzeltme yapamıyorum
yine yardım gerekli

 

[mustafakayiran]

bakan yok sanırım

 

[Levent Menteşoğlu]

Son haliyle dosyanızı tekrar eklermisiniz.

 

[mustafakayiran]

doysayayı güncelledim ListBox2 deki isimlere clik yaptığımda okişinin olduğu satırın gelmesini istiyorum ListBox1 sayfayapısına göre sıralı olduğu için ismin üstüne clik yapınca o isimdeki satıra gidiyor ve o satırda değişiklik yapabiliyorum ancak bunu ListBox2 de yapamıyorum Kaydet butonuna bastığımda en alt satıra sıra ve sicil numaraları hariç kayıt ediyor kod yazdım ancak bu kezde ilk satıra kayıt ediyor
teşekkür ederim

 

[Levent Menteşoğlu]

Listbox2 deki kodu aşağıdaki ile değiştirin.

[vb:1:a25b0cec8c]Private Sub ListBox2_Click()
For a = 1 To 7
If a = 4 Then
TextBox5 = ListBox2.List(ListBox2.ListIndex, a - 1)
GoTo 10
End If
If a = 5 Then
ComboBox2 = ListBox2.List(ListBox2.ListIndex, a - 1)
GoTo 10
End If
Controls("textbox" & a) = ListBox2.List(ListBox2.ListIndex, a - 1)
10 Next
sat = [a4:a65536].Find(ListBox2.Value).Row
Cells(sat, 1).Select
TextBox1.Value = Cells(sat, 1).Value
TextBox2.Value = Cells(sat, 2).Value
TextBox3.Value = Cells(sat, 3).Value
ComboBox2.Value = Cells(sat, 5).Value
TextBox5.Value = Cells(sat, 4).Value
TextBox6.Value = Cells(sat, 6).Value
TextBox7.Value = Cells(sat, 7).Value
End Sub[/vb:1:a25b0cec8c]

 

[mustafakayiran]

teşekkür ederim sayın leventm
işlerinizde başarı ve mutluluklar dilerim
iyi çalışmalar