Hücreyi Userform'daki 2 ayrı textbox'a yazdırma sorunu

[cocoa35]

Arkadaşlar; bir sorunum var aşağıda userform'daki vermiş olduğum kod'da bir sorun var ! şöyleki sayfa1 'deki B10 hücresi sadece Textbox277 'de değişiyor textbox286'da değişim olmuyor. Bu konuda yardım lütfen.

Private Sub UserForm_Initialize()
With Application
.WindowState = xlMaximized
Zoom = Int(.Width / Me.Width * 100)
Width = .Width
Height = .Height

TextBox286.Text = Sayfa1.Range("B10").Text

TextBox277.Text = Sayfa1.Range("B10").Text


End With
End Sub

 

[Muzaffer Ali]

Bu kodlara bakılırsa değişim olmaması mümkün değil.
Ancak TextBox286'in change olayı varsa eğer sorun oradan kaynaklanıyor olabilir.
Ya da başka bir sorun da olabilir.
Sorunu tespit edebilmek için dosyanızı ekleyin bakıp kontrol edelim

 

[HsNKgL]

Arkadaşlar; bir sorunum var aşağıda userform'daki vermiş olduğum kod'da bir sorun var ! şöyleki sayfa1 'deki B10 hücresi sadece Textbox277 'de değişiyor textbox286'da değişim olmuyor. Bu konuda yardım lütfen.

Private Sub UserForm_Initialize()
With Application
.WindowState = xlMaximized
Zoom = Int(.Width / Me.Width * 100)
Width = .Width
Height = .Height

TextBox286.Text = Sayfa1.Range("B10").Text

TextBox277.Text = Sayfa1.Range("B10").Text


End With
End Sub

Birebir aynısını kullanıyorsan excelden veriyi almadan halledebilirsin...

TextBox286.Text = Sayfa1.Range("B10").Text

TextBox277.Text = TextBox286.Text