Basit bir Çekiliş Çalışması

[karizmax]

 

[karizmax]

Basit bir Çekiliş Çalışması ??

..................

 

[karizmax]

Yardımcı olabilecek kimse yokmu

 

[karizmax]

bilen kimse yok mu

 

[serqet]

Dosyayı açtığınızda CTRL+Q ya basılı tutun siz basılı tuttukça sürekli değişecektir. Umarım böyle işinizi görür.

 

[bmutlu966]

Dosyayı açtığınızda CTRL+Q ya basılı tutun siz basılı tuttukça sürekli değişecektir. Umarım böyle işinizi görür.

Küçük bir ilave... Kaç kere dönüp durmasını isterseniz. Ekli dosyayı kullanabilirsiniz.

 

[leumruk]

Merhaba,
Ekli dosyayı inceleyiniz.

Dim knt As Boolean
Private Sub CommandButton1_Click()
knt = False
Do
For x = 1 To [a65536].End(3).Row
If knt = True Then Exit Sub
basla = Timer
Do While Timer < basla + 0.08
DoEvents
Loop
If knt = True Then Exit Sub
TextBox1 = Cells(x, "a")
Next
Loop
End Sub
Private Sub CommandButton2_Click()
knt = True
End Sub

 

[karizmax]

İlgilenen Tüm arkadaşlara çok çok tşk ederim.
leumruk
üstadım tam istediğim gibi olmuş Ellerine sağlık