Userform un sürekli güncellenmesi

[gbaldogan]

Sevgili uzmanlarımız bir konuda sıkıntı yaşıyorum..Bir excel tablosu yaptım bir de userform var userform sürekli açık kalacak şekilde ayarladım ben excelde çalışırken o yukarda açık kalıyor. sorunum şu userformda textboxta bir hücrenin değeri yazıyor bu da bir alttoplam ancak excelde alttoplam değiştiği anda textboxtaki değişmiyor kapatıp tekrar açmam gerekiyor. bu sorunu nasıl halledebilirim? yardımcı olursanız sevinirim..

 

[Seyit Tiken]

Private Sub Worksheet_Change(ByVal Target As Range)
UserForm1.TextBox1 = [a1]
End Sub

Şeklinde deneyiniz.

 

[Recep İpek]

Aşağıdaki kodları sayfanın kod bölümüne kopyalayabilirsiniz.

Burada herhangi bir hücrede değişiklik yaptığınız anda userform kapanıp, tekardan açılmaktadır.İsterseniz hücre aralığınıda kısıtlayabilirsiniz.Örneğin sadece A kolonunda değişiklik yapıldığı zaman gibi..

Private Sub Worksheet_Change(ByVal Target As Range)
Unload UserForm1
UserForm1.Show
End Sub

 

[gbaldogan]

teşekkürler seyit bey ama olmadı dosyam ekte bakabilir misiniz

 

[gbaldogan]

sağolun ripek ama yine başaramadım ben süzme yaptığım zaman userformda değerler değişmiyor bakarsanız sevinirim

 

[gbaldogan]

yardım edebilecek bir uzmanımız yok mu?

 

[gbaldogan]

bunun çözümü mü yok acaba

 

[Recep İpek]

Ekli dosyanızı inceleyiniz.

B15 ile N500 hücrelerinden bir tanesini seçtiğinizde userform güncellenecektir.

Süzme işleminde sonra mutlaka bu alandaki bir hücreyi seçmeniz gerekmektedir.

Ancak bu şekilde devamlı güncelleme olabilir.

 

[Korhan Ayhan]

Selamlar,

GENEL LİSTE isimli sayfanızın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Private Sub Worksheet_Calculate()
    UserForm1.TextBox1.Text = Range("e2").Text
    UserForm1.TextBox2.Text = Range("e3").Text
    UserForm1.TextBox3.Text = Range("f3").Text
    UserForm1.TextBox4.Text = Range("f2").Text
    UserForm1.TextBox6.Text = Range("g2").Text
    UserForm1.TextBox7.Text = Range("g3").Text
    UserForm1.TextBox14.Text = Range("c5").Text
    UserForm1.TextBox18.Text = Range("e5").Text
    UserForm1.TextBox22.Text = Range("g5").Text
    UserForm1.TextBox15.Text = Range("c6").Text
    UserForm1.TextBox26.Text = Range("c7").Text
    UserForm1.TextBox27.Text = Range("c8").Text
    UserForm1.TextBox13.Text = Range("d6").Text
    UserForm1.TextBox29.Text = Range("d7").Text
    UserForm1.TextBox28.Text = Range("d8").Text
    UserForm1.TextBox19.Text = Range("e6").Text
    UserForm1.TextBox31.Text = Range("e7").Text
    UserForm1.TextBox32.Text = Range("e8").Text
    UserForm1.TextBox17.Text = Range("f6").Text
    UserForm1.TextBox33.Text = Range("f7").Text
    UserForm1.TextBox30.Text = Range("f8").Text
    UserForm1.TextBox23.Text = Range("g6").Text
    UserForm1.TextBox35.Text = Range("h7").Text
    UserForm1.TextBox36.Text = Range("i8").Text
    UserForm1.TextBox21.Text = Range("j6").Text
    UserForm1.TextBox37.Text = Range("j7").Text
    UserForm1.TextBox34.Text = Range("j8").Text
End Sub

 

[gbaldogan]

Sayın Cost_Control

Süpersiniz yaa tam istediğim gibi olmuş sağolun

 

[gbaldogan]

sayın ripek
çok çok teşekkür ederim sizinkini de açtım . vakit ayırdığınız için sağolun..tam istediğim gibi olmuş..

 

[gbaldogan]

eğer vakit ayırabilirseniz faaliyet içi ve faaliyet dışı borçların exceldeki formülünü başaramadım bakabilirseniz çok sevinirim