bir hücredeki değerin textbox içinde gösterilmesi

[mustafa155]

sevgili arkadaşlar ve hocalarım. Şuan yazdığım bilgisayarda openoffice bulunduğu için dosya ekleyemedim.
Bir userform üzerine textbox nesnesi ekleyip, sayfa üzerinde istediğim bir hücrede yazılı değerin bu textbox içerisinde gözükmesini istiyorum, yani bir hücreyi daima textbox a eşitlemek istiyorum.
Örneğin A3 hücresindeki değer sayfadaki bir butona bastığım zaman açılan userform üzerindeki textbox ta gözükmesini istiyorum.
saygılarımla

 

[Halit TÜRK]

Private Sub UserForm_Initialize()
TextBox1 = Worksheets("Sayfa1").Range("A3")
End Sub

 

[mustafa155]

sayın htrk cevabınız için teşekkür ederim ancak olmadı. Dosyayı ekledim. Dosyada da görüleceği gibi A sütunundaki durumların toplamını eğersay formülü ile D8 ve D9 hücrelerinde görünmesini sağladım. Sayfadaki göster butonuna bastığım zaman çıkan userform üzerindeki textbox1 de D8 hücresindeki textbox2 de ise D9 hücresindeki değerin görünmesini istiyorum. Yani D8 daima textbox1 e D9 ise daima textbox2 ye eşit olmalı
saygılarımla

 

[Korhan Ayhan]

Selamlar,

Aşağıdai kodu formunuzun kod bölümüne uygulayıp denermisiniz.

Private Sub UserForm_Initialize()
    TextBox1 = WorksheetFunction.CountIf(Sheets("Sayfa1").[A:A], "AÇIK")
    TextBox2 = WorksheetFunction.CountIf(Sheets("Sayfa1").[A:A], "DAİMİ ARAMA")
End Sub