combobox seçimine göre textboksa veri kendi gelsin

[ayemenici]

merhaba arkadaşlar,
hazırlamış olduğum user form da bulunan combobox firma isimlerini sıralayıp seçebiliyorum hemen yanına hazırladığım textbox hücresindede seçmiş olduğum bu isimlere ait adresleri nasıl getirebilirim,

 

[osmanfenerli1907]

Sayın arkadaşım konuyu biraz araştırsan bu konuyla ilgili örnekler mevcut.
saygılarımla

 

[ayemenici]

sayın osmanfenerli arkadaş,
makro altındaki bütün soruları inceledim aradığıma cevap bulamadım,
bir adres koyarsan sevinirim

 

[class37]

Merhaba
A Sütununa Firma isimleri B sütununda email adresleri olacak biçimdeki kodlar aşağıda.Yalnız ComboBoxa veri alışıda ınitalize ile.

Private Sub ComboBox1_Change()
Dim sira As Long
sira = ComboBox1.ListIndex + 1
TextBox1 = Range("B" & sira)
End Sub

Private Sub UserForm_Initialize()
Dim SONHÜCRE
SONHÜCRE = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("A1:A65536"))
ComboBox1.ListRows = 10
ComboBox1.RowSource = "Sayfa1!A1:A" & SONHÜCRE
End Sub

 

[zafer]

Merhaba

Sayın Class37'in kodları işinizi görecektir.
Sizin sonradan bunları silmek değiştirmek te isteyeceğinizi zannediyorum.