Hücre Değeri Kadar Makroyu Çalıştır

[Emir Hüseyin Çoban]

Merhaba Arkadaşlar,

A1 hücresinde yazan değer kadar, makroyu çalıştırmak istiyorum.

Ekteki örnekte; artıbir makrosu var. A1 hücresine 20 değerini girip çalıştırdığımda. 20 kez durmadanartıbir makrosunu çalıştırmalı.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub CommandButton1_Click()
For i = 1 To [a1]
Call artıbir
Next
End Sub

 

[İhsan Tank]

Merhaba Arkadaşlar,

A1 hücresinde yazan değer kadar, makroyu çalıştırmak istiyorum.

Ekteki örnekte; artıbir makrosu var. A1 hücresine 20 değerini girip çalıştırdığımda. 20 kez durmadanartıbir makrosunu çalıştırmalı.

module'deki kodu bununla değişin

Sub kısıtlamalı()
If Sheets("Sayfa1").Range("A1") + 1 = Sheets("Sayfa1").Range("B1") Then
Sheets("Sayfa1").Range("B1") = Sheets("Sayfa1").Range("A1") + 1
Else
Sheets("sayfa1").Range("b1") = Sheets("sayfa1").Range("b1") + 1
End If
End Sub

 

[Emir Hüseyin Çoban]

Merhaba Sy Seyit Tiken, tam istediğim gibi olmuş çok teşekkür ederim. Sorunsuz çalışıyor. :bravo:

Merhaba Sy İhsan Tank, ilginiz ve paylaşımınız için teşekkür ederim. Sanırım yanlış anlaşıldı. Yapmaya çalıştığım işlem bir makroyu durmadan belirttiğim değer arka arkaya çalıştırmaktı.

Kodlarınızda ismindende anlaşılacağı gibi, bir kısıtlama işlemi mevcut. Belirttiğim değerin 1 fazlasına kadar çıkmasına izin veriyor. :bravo:

Zahmetler verdim Arkadaşlar, çok teşekkürler. İyi akşamlar.