combobox ile sayfa bilgilerini textboxa atmak.

[hurkanpisirici]

merhabalar eklediğim dosyada bir userform um var ve aynı formatta 3 sayfam.Benim istediğim formu açıp comboboxtan istediğim sayfayı seçtiğimde o sayfalardaki bilgilerin ilgi textboxlara alınması.yardımcı olacak arkadaşım varmı acaba?

 

[Ayhan Ercan]

Merhaba Sn hrknp

Ek Dosya Yok!!

 

[hurkanpisirici]

merhaba ercan bey şimdi ekledim

 

[Ayhan Ercan]

Tekrar merhaba Sn hrknp

Dosyanız ekte inceleyiniz...

 

[hurkanpisirici]

Sayın ayhan bey Allahrazıolsun harikasınız, hemen yetiştiniz yardımıma yine çok teşekkür edeirm
hemen kodları inceleyeğim

 

[hurkanpisirici]

Controls("textbox" & i).Value = Sheets(ComboBox1.Value).Cells(i, 2).Value

sanıyorumki isteidğimi bu kod gerçekleştiriyor bu kodu anlatabilirmisiniz?

 

[Ayhan Ercan]

Controls("textbox" & i).Value = Sheets(ComboBox1.Value).Cells(i, 2).Value

sanıyorumki isteidğimi bu kod gerçekleştiriyor bu kodu anlatabilirmisiniz?

Tekrar merhaba

Kodu açıklayabilmek için kodun döngüsüz halini inceleyelim..

Textbox1.Value = Sheets(ComboBox1.Value).Cells(1,2).value
Textbox2.Value = Sheets(ComboBox1.Value).Cells(2,2).value
Textbox3.Value = Sheets(ComboBox1.Value).Cells(3,2).value


Textbox1.Value (Textbox1'in değeri)

Sheets(ComboBox1.Value).Cells(1,2).value (Combobox1'te görünen değer isimdeki sayfanın 1.satır 2.sütununun değeri)

....

 

[hurkanpisirici]

bundan daha anlaşılır olamazdı çok teşekkür ederim

 

[Ayhan Ercan]

bundan daha anlaşılır olamazdı çok teşekkür ederim

Rica ederim.
İyi Çalışmalar k::