Excel' den TextBox' a veri alma

[btanju]

İyi Günler,

Excel dosyamda UserFormu çalıştırdığımda "Mayıs" Sayfasında açılıyor. Userform çalışırdığımda "Haziran" Sayfasında bulunan D3 hücresindeki verinin TextBox1' e getirmesini istiyorum. Aşağıda bir kod yazdım ama Mayıs Sayfasında olduğumdan dolayı ver gelmiyor.

Private Sub UserForm_Activate()
Application.ScreenUpdating = False
On Error Resume Next
TextBox1.Value = Sheets("Haziran").Range("D3").Value
End Sub

 

[hamitcan]

Kodunuzda bir eksiklik görünmüyor. Dosya eklerseniz daha çabuk cevap bulabilirsiniz.

 

[btanju]

Kodunuzda bir eksiklik görünmüyor. Dosya eklerseniz daha çabuk cevap bulabilirsiniz.

Altın üye olmadığımdan dosya eklemesi yapamıyorum Kod eksik değil evet ama o sayfada olmadan veri gelmiyor başka sayfada Userform çalışırsa veri textboxa gelmiyor hangi sayfada olursam olayım userform çalıştığında texboxa belirtmiş olduğum sayfadan veri gelmesini istiyorum

 

[btanju]

Yardımı olur diye bu şekilde hallettim teşekkür ederim.

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = Sheets("Rapor")
TextBox56.text = s1.Range("B4").Value
End Sub