For döngüsü içinde macro çağırma

[nickella]

Aşağıdaki kodu çaıştırdıkrtan sonra bir sayac daha devreye sokmam gerekiyor. Diğer sayacı ayrı bir butonla çalıştırabiliyorum yanlız aynı anda her ikisi birden çalışmıyor.


Birinci döngü;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [P3:P7]) Is Nothing Then Exit Sub
Call dowhileloop
End Sub
Sub dowhileloop()
    
If WorksheetFunction.CountBlank(Range("P3:P7")) > 0 Then Exit Sub
'End If
[P8] = ""
       For i = 1 To 10000
        If [J73] > [J72] Then Exit Sub
        [P8] = [P8] + 1
        
               
  Next

10

End Sub

ikinci döngü;

Sub sayac()

[D122] = ""

For i = 1 To 10000
If [F150] < [D121] Then Exit Sub
[D122] = [D122] + 10
Next

10
End Sub

bu iki ayrı sub ' ın aynı tuş komutu ile çalışmasını istiyorum. Yalnız birinci döngü önceliklidir. O tamamlanınca ikinci döngü çalışmalı.

Teşekkürler.

 

[ÖmerBey]

Şu şekilde denediniz mi?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [P3:P7]) Is Nothing Then Exit Sub
Call dowhileloop
[COLOR="Red"]Call sayac[/COLOR]
End Sub

 

[nickella]

call sayac değil de dowhileloop çağırdım ben o esnada. dowhileloop yapıldıktan sonra sayac çalışsın istiyorum.

 

[nickella]

Şu şekilde denediniz mi?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [P3:P7]) Is Nothing Then Exit Sub
Call dowhileloop
[COLOR="Red"]Call sayac[/COLOR]
End Sub

o kontrol aşamasında birinci döngüyü çağırdım zaten. bunu da denedim olmadı.

 

[Erdem Akdemir]

o kontrol aşamasında birinci döngüyü çağırdım zaten. bunu da denedim olmadı.

Biz niye göremiyoruz.