sayac

[otokoc]

sorunum tek butonla birkaçtane sayac kullanmak istiyorum.
dosyada daha detaylı anlattım.yardımlarınız için simdiden tesekkürler

 

[ceyrek]

For j = 1 To Cells(2, 1)
satırını
For j = 1 To Cells(4, 1)
şeklinde yazmalısınız.
iyi çalışmalar...

 

[otokoc]

For j = 1 To Cells(2, 1)
satırını
For j = 1 To Cells(4, 1)
şeklinde yazmalısınız.
iyi çalışmalar...

syn ceyrek tesekkür ederim cevabınız için ama dediğiniz gibi yapınca yine aynı oluyor.
aynı anda 2 tanesinide saymasını istiyorum

 

[Necdet]

Merhaba,

Tek bir döngüde yapmak olası.

Private Sub CommandButton1_Click()
Range("F1:H4,F5:H10").ClearContents
If [A1] > [A4] Then
    SonDeğer = [A1]
Else
    SonDeğer = [A4]
End If
For k = 1 To SonDeğer
     If Cells(5, "F") < [A1] Then Cells(5, "F") = k
     If Cells(1, "F") < [A4] Then Cells(1, "F") = k
Next k
End Sub

if komutunu değişik yazarak biraz daha kısaltmak olası kodları

Private Sub CommandButton1_Click()
Range("F1:H4,F5:H10").ClearContents
SonDeğer = IIf([A1] > [A4], [A1], [A4])
For k = 1 To SonDeğer
If Cells(5, "F") < [A1] Then Cells(5, "F") = k
If Cells(1, "F") < [A4] Then Cells(1, "F") = k
Next k
End Sub

 

[otokoc]

tesekkür ederim syn necdet bey tam istediğim gibi çalışıyor makronuz.
kolay gelsin

 

[otokoc]

bu döngüyü eğer kullanmadan nasıl yazılabilir peki
mesala tek butonla 4 lu bir sayac macrosu nasıl yazılabilir.

 

[Necdet]

bu döngüyü eğer kullanmadan nasıl yazılabilir peki
mesala tek butonla 4 lu bir sayac macrosu nasıl yazılabilir.

Merhaba,

Koşul varsa koşulsuz bir çözüm olmaz.