userform textbox döngüsel ilişkisi

[bilisim2010]

merhaba 1 userforma 2. sayfanın o kapandıktan sonra 3. sayfanın o kapandıktan sonra 4. sayfanın sabit olan F1 hücresindeki veriyi çekmek istiyorum. hangi sayfa açıksa textbox4 ün controlcourcesine tanımladıgım f1 hücresindeki veriyi çeksin değişken olarak tabiki.

 

[Cengizhantr06]

Private Sub UserForm_Activate()
Dim activeSheet As Worksheet
Dim f1Value As String

' Aktif olan çalışma sayfasını al
Set activeSheet = ThisWorkbook.ActiveSheet

' F1 hücresindeki değeri al
f1Value = activeSheet.Range("F1").Value

' TextBox4'ün kontrol kaynağına değeri atama
TextBox4.Value = f1Value
End Sub

 

[bilisim2010]

Private Sub UserForm_Activate()
Dim activeSheet As Worksheet
Dim f1Value As String

' Aktif olan çalışma sayfasını al
Set activeSheet = ThisWorkbook.ActiveSheet

' F1 hücresindeki değeri al
f1Value = activeSheet.Range("F1").Value

' TextBox4'ün kontrol kaynağına değeri atama
TextBox4.Value = f1Value
End Sub

hocam ilginiz için teşekkürler yanlız userform açıkken f1 e veri gittiği için textbox4 ün bu veriyi anlık çekmesi göstermesi gerekiyor. bu şekilde kapatıp açınca veri geliyor bir buton ile yapabilirim ama ben butonsuz getirmek istiyorum mükünse onun için bir kod varsa hocam.