Userform

[Bekci_32]

Arkadaşlar bir uygulamamda kullandığım Userform uygulamamı açtığımda ekrana geç geliyor ayrıca Userform üzerinde kullandığım textbox lara yazı yazdığım zaman yazılar bekletmeli yazılıyor bunun için uygulamamda kullanmam gereken bir kod varmı.Teşekkürler

 

[fedeal]

formun üzerinde döngü(loop) yapan kod varsa bence onlardan kurtul (saniyeli saat gibi) çünkü hiç durmadan arkada çalışıyor. varmı bilmiyorum ilk aklıma gelen bu oldu.

 

[Bekci_32]

SAYIN Fedeal UYGULAMAMDAKİ KODLARI İNCELEDİM "Loop" kodu mevcut ekliyorum.[a2:a65536] = Empty
deg = WorksheetFunction.CountA(Range("b2:b65536"))
s = 1
Do While [b2] <> ""
Cells(s + 1, "a") = s
s = s + 1
If s > deg Then Exit Do
Loop
'***** listboxu yenile
TextBox3 = ".": TextBox3 = ""
End Sub
ancak bunu sildiğimde otomatik sıralamayı yapmıyor.Bu koda altarnatif bir kod varsa yazarsanız sevinirim.

 

[Bekci_32]

arkadaşlar yukarıda izah ettiğim gibi userform geç açılıyor textbox lara yazı yazdığım zaman harfler geç görünüyor lütfen bu konuya çözüm bulan biri varsa veya bir kod lütfen yazabilirmi.Teşekkürler

 

[fedeal]

SAYIN Fedeal UYGULAMAMDAKİ KODLARI İNCELEDİM "Loop" kodu mevcut ekliyorum.[a2:a65536] = Empty
deg = WorksheetFunction.CountA(Range("b2:b65536"))
s = 1
Do While [b2] <> ""
Cells(s + 1, "a") = s
s = s + 1
If s > deg Then Exit Do
Loop
'***** listboxu yenile
TextBox3 = ".": TextBox3 = ""
End Sub
ancak bunu sildiğimde otomatik sıralamayı yapmıyor.Bu koda altarnatif bir kod varsa yazarsanız sevinirim.

sayın Bekçi_32 Kodlarınızı bu şekilde görüpte altarnetif kod yazacak kadar iyi degilim henüz ancak örnek bir dosya eklerseniz bir şeyler yapmaya çalışırım.Uzman arkadaşlarımız bu kodlara alternatif kod yazabilir belki. saygılar.