Useformda sayac

[chakistes]

merhaba arkadaşlar useformda textbox kutusu ekledikten sonra excel sayfa1 de 10 adet saydıktan sonra textbox kutusuna geliyor benim istediğim her sayı artıkça textbox kutusunda görünsün

For sayac = 1 To 10
Application.Wait (Now + TimeValue("0:00:01"))
Cells(sayac, "a") = "deneme" = UserForm1.TextBox1
Next sayac


Dim i As Integer
i = Sheets("sayfa1").Range("A1500").End(xlUp).Row
TextBox1 = i - 1

 

[Ömer BARAN]

Merhaba.

Sorunuzu; gerçek belgenizin, özel bilgi içermeyen kopyası şeklinde hazırlayacağınız örnek belge üzerinden sorarsanız
daha hızlı sonuca ulaşabilir, alternatif cevaplar alabilirsiniz.
Kullanılan userform ve kodların örnek belge içerisinde ve çalışır durumda olmasına özen gösteriniz.

Örnek belge yükleme yöntemine ilişkin kısı açıklama cevabımın altındaki İMZA bölümünde var.
.

 

[chakistes]

örnek bir dosya hazırladım benim istediğim her sayı arttıkça texboxta güncelleme yapsın istiyorum daha sonra kendi programıma uyarlama yapacağım.

 

[Orion1]

Buyurun.

Private Sub UserForm_Activate()
For sayac = 1 To 10
Application.Wait (Now + TimeValue("0:00:01"))
Cells(sayac, "a") = "deneme"
TextBox1.Value = sayac
DoEvents
Next sayac
End Sub

 

[Ömer BARAN]

Aşağıdaki gibi olabilir.

Private Sub UserForm_Activate()
Dim sayacilk, sayacson, sayac As Integer

sayacilk = 1: sayacson = 10

For sayac = sayacilk To sayacson
    Application.Wait (Now + TimeValue("0:00:01"))
    Cells(sayac, "a") = "deneme"
    TextBox1 = sayac
Next sayac

MsgBox "Sayma işlemi bitti"

End Sub

 

[chakistes]

teşekkür ederim