Hücre ve Textbox Bağlantısı

[airborne]

s.a.


ekli dosyada Sayfa 1 de <d5 ile d325 arasını H5 te toplatıyorum. Userform1 de texbox1'e değeri aldırıyorum. Sorun bundan sonra başlıyor, H5'in değeri değişince Textbox1'e anında yansıtamıyorum. Yardımcı olursanız sevinirim.

http://s6.dosya.tc/server6/1vyfxz/GELIR-GIDER-TABLOSU.rar.html

Selametle......

 

[fireman64]

Sayfa1 Kod sayfasına aşağıdaki kodu yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D5:e327]) Is Nothing Then Exit Sub
UserForm1.TextBox1.Value = Sheets("Sayfa1").Range("H5").Value
UserForm1.TextBox2.Value = Sheets("Sayfa1").Range("H6").Value
UserForm1.TextBox3.Value = Sheets("Sayfa1").Range("H7").Value
End Sub

 

[airborne]

s.a.

üstad çok teşekkür ederim

 

[fireman64]

Rica ederim.