Sırayla otomatik sayı çağırma

[farisakboga]

[B4] = WorksheetFunction.RandBetween(10001, 11000)

üstteki kod ile 10001 ile 11000 arasındaki sayıları makro atadığım düğme ile rastgele çağırabiliyorum. Rastgele değil de sırayla çağırmak mümkün mü?
yani 10001 gelsin sonra 10002, 10003, 10004........ 11000'e kadar devam etsin.

 

[toprak2349]

Aynı kod ile sırasıyla B4 hücresine yazılacaksa eğer

for i=10001 to 11000
range("b4")=i
next

veya şöyle birşey mi istiyorsunuz ?

Sub ornek()

If Sheets("Sayfa1").Cells(4, 2) = "" Or Sheets("Sayfa1").Cells(4, 2) < 10001 Then
Sheets("Sayfa1").Cells(4, 2) = 10001
Else
Sheets("Sayfa1").Cells(4, 2) = Sheets("Sayfa1").Cells(4, 2) + 1
End If

End Sub

 

[farisakboga]

Aynı kod ile sırasıyla B4 hücresine yazılacaksa eğer

for i=10001 to 11000
range("b4")=i
next

veya şöyle birşey mi istiyorsunuz ?

Sub ornek()

If Sheets("Sayfa1").Cells(4, 2) = "" Or Sheets("Sayfa1").Cells(4, 2) < 10001 Then
Sheets("Sayfa1").Cells(4, 2) = 10001
Else
Sheets("Sayfa1").Cells(4, 2) = Sheets("Sayfa1").Cells(4, 2) + 1
End If

End Sub

teşekkür ederim.

ilk kodu denedim ancak her düğmeye bastığımda imleç birkaç saniye dönüyor ve hücreye aynı sayıyı çağırıyor. benim istediğim her düğmeye bastığımda 1 sayı arttırsın. yani hücrede 10001 yazıyorsa sonraki basışımda 10002 gelsin, yine bastığımda 10003 gelsin.

 

[toprak2349]

2. kodu deneyin !

 

[farisakboga]

2. kodu deneyin !

ikinci kodda boğuldum. sonra yapmam olası değişiklikler için kodun mümkün olduğunca kısa ve benim gibi bir acemi için basit olmasını ummuştum. onun için tercihim 1. kod oldu. ilginiz için yine de çok teşekkür ederim.

 

[toprak2349]

Bunu deneyin.

 

[farisakboga]

Bunu deneyin.

ÇOK TEŞEKKÜR EDERİM. İŞİMİ GÖRDÜ.