Excel içerisinde birleştirilmiş bir hücredeki değeri Texbox'a Atama

[V.B.A. Cengizz]

Merhabalar;
Excel içerisinde birleştirilmiş bir hücre grubu içerisindeki bir değeri TexBox içerisine yazdırırken hata ile karşılaşıyorum.
Bu değeri excelde başka bir boş sayfadaki tek bir hücreye atayarak yapabiliyorum ama bu yolu kullanmadan nasıl yapabilirim? Yardımcı olur musunuz?
Herkese hayırlı bayramlar dilerim.
User Formun ismi P1_PROJE_KAYIT_EKRANI
Text Box'ın ismi PROJE_KODU
GECICI_DEGER_ATAMALARI ise birleştirilmiş hücredeki değeri aktardığım boş bir sayfadır.

P1_PROJE_KAYIT_EKRANI.Controls("PROJE_KODU") = wsGECICI_DEGER_ATAMALARI.Range("B2").Text

 

[Korhan Ayhan]

Boş bir sayfada B1:D5 hücrelerini birleştirdim. Hücreye DENEME yazdım. Aşağıdaki kod ile form üzerindeki TextBox nesnesinde hücredeki değeri görüntüledim.

Private Sub UserForm_Initialize()
    TextBox1 = Sheets("Sayfa1").Range("B1").Text
End Sub

 

[V.B.A. Cengizz]

Korhan Bey;
Öncelikle bayram günü vakit ayırıp problemi cevapladığınız için çok teşekkür ederim.
Söylediğiniz yöntemi uyguladım ve sorun çözüldü.
Aslında soruyu sormadan önce formda bu konu daha önce işlenmiş mi diye arama yaptırdım ama bulamamıştım.
Foruma yeni kaydoldum. Muhtemelen benim acemiliğimdir.
Bir sorum daha olacak. Cevaplayabilirseniz sevinirim.

TexBox içerisine klavyeden girilen bir değerin formatını tarih olarak girilmesini ve text olmamasını nasıl sağlayabilirim? Bununla ilgili bir örnek var mıdır?

Saygılar.

 

[Korhan Ayhan]

Forumda bolca örnek var. Arama kutusunu kullandığınızda ulaşabilirsiniz.

https://www.excel.web.tr/threads/textboxa-giriste-karakter-kontrolue-rakam-harf.15837/