excel arka planda userform yenileme

[netvolxxx]

merhaba yazdığım uygulamada userform açıldığında excel arka planda iken textbox1 ve textbox2 yenileme yaptıramıyorum formdan textbox üzerinden yazdığım ilgili hücreye gidiyor ve userform kapatıp tekrar açtığımda textbox1 ve textbox2 ye veriler geliyor yada excel arka tarafta açıkkende işlem oluyor.fakat excel arka planda iken sadece userform açık işlemi yaptıramadım bi türlü yardımcı olcak bi arkadaş....

 

[muhasebeciyiz]

Formunuzu açtıktan sonra, UserForm'un her açılışında Excel'in arka planda işlem yapmaya devam etmesini sağlamak için

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Application.EnableEvents = True
End Sub

Form üzerinde kullanıcı bir şey yazdığında Excel'in işlemi kesmeden devam etmesi için

Private Sub TextBox1_Change()
DoEvents
Range("A1").Value = TextBox1.Value
End Sub

Private Sub TextBox2_Change()
DoEvents
Range("A2").Value = TextBox2.Value
End Sub

UserForm kapanırken Excel arka planda işlem yapmaya devam etsin istiyorsanız,

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.ScreenUpdating = True
Application.EnableEvents = False

Bazı durumlarda arka planda Excel’in işlemi yapabilmesi için, veri girildikten sonra küçük bir gecikme eklemek için

Private Sub TextBox1_Change()
DoEvents
Application.Wait (Now + TimeValue("00:00:01")) ' 1 saniye bekleme
Range("A1").Value = TextBox1.Value
End Sub

Bu adımlar ve kodlar, Excel’in arka planda işlemesini sağlarken, kullanıcı formu üzerinden veri girişi yapmanızı sağlayacaktır. Excel arka planda işlem yaparken UserForm’a yazdığınız veriler de hücrelere yansıyacaktır. Önerilerimiz bu kadar

 

[netvolxxx]

Formunuzu açtıktan sonra, UserForm'un her açılışında Excel'in arka planda işlem yapmaya devam etmesini sağlamak için

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Application.EnableEvents = True
End Sub

Form üzerinde kullanıcı bir şey yazdığında Excel'in işlemi kesmeden devam etmesi için

Private Sub TextBox1_Change()
DoEvents
Range("A1").Value = TextBox1.Value
End Sub

Private Sub TextBox2_Change()
DoEvents
Range("A2").Value = TextBox2.Value
End Sub

UserForm kapanırken Excel arka planda işlem yapmaya devam etsin istiyorsanız,

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.ScreenUpdating = True
Application.EnableEvents = False

Bazı durumlarda arka planda Excel’in işlemi yapabilmesi için, veri girildikten sonra küçük bir gecikme eklemek için

Private Sub TextBox1_Change()
DoEvents
Application.Wait (Now + TimeValue("00:00:01")) ' 1 saniye bekleme
Range("A1").Value = TextBox1.Value
End Sub

Bu adımlar ve kodlar, Excel’in arka planda işlemesini sağlarken, kullanıcı formu üzerinden veri girişi yapmanızı sağlayacaktır. Excel arka planda işlem yaparken UserForm’a yazdığınız veriler de hücrelere yansıyacaktır. Önerilerimiz bu kadar

merhaba işimi gördü (
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Application.EnableEvents = True
End Sub

çok teşekürrr ederim sağolasın......