TextBox1 yardımı

[ozuberk]

Merhaba

ComboBox1 ile seçtiğim Sayfadaki A1 hücresinde bulunan veriyi TextBox1 nasıl yazdırabilirim. Sayfayı seçtiğim zaman TextBox1 yenile yapması lazım.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub ComboBox1_Click()
    Sheets(ComboBox1.Value).Select
    TextBox1.Text = Range("A1").Value
End Sub

 

[ozuberk]

Hocam teşekkür ederim

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil deneyiniz

Private Sub ComboBox1_Click()
    Sheets(ComboBox1.Value).Select
    Unload Me
    UserForm1.Show
End Sub

 

[Orion1]

Hocam teşekkür ederim

Rica ederim.
İyi çalışmalar.