Verileri Combobox 1 de tanımladığım sayfadan alsın

[mahmutbeyli]

Verileri Combobox 1 de tanımladığım sayfadan alsın

UserForm'da 7 CBox 11 TBx ile çalışıyorum...
Verileri 6 Ayrı Sayfadan Alıyorum...Formda ilk CBx'ta (Markalar) ı seçerek
verileri seçili sayfadan almak istiyorum..

 

[Orion1]

Textbox1'e Combobox1'de seçili olan sayfanın a1 hücresini alır.
textbox1.text=sheets(combobox1.value).Range("A1").value

 

[Orion1]

Textbox1'e Combobox1'de seçili olan sayfanın a1 hücresini alır.

textbox1.text=sheets(combobox1.value).Range("A1").value

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub ComboBox1_Change()
Sheets(ComboBox1.Text).Select
TextBox1 = [A1]: TextBox2 = [B1]: TextBox3 = [C1]
End Sub
Private Sub UserForm_Initialize()
Dim I As Integer
For I = 1 To Sheets.Count
ComboBox1.AddItem Sheets(I).Name
Next
End Sub

 

[mahmutbeyli]

Sayın Hocalarım;
çok teşekkür'ler istediğim gibi oldu...