Makronun koşula bağlı olarak çalışması. Nasıl ?

[desıgner1]

Merhaba arkadaşlar.

E sütununda, 3. satırdan itibaren başlayan; adetleri farklı mükerrer veriler var.
Bu veriler sort (sıralanmış) edilmiş vaziyette.

Benim amacım makro1 i birbirini takip eden aynı veri gurubu için sadece 1 kez çalıştırmak.

diğer makrolar döngünün her satırında çalışacak.

aşağıda ki örneğimize göre makro1 3 kez çalışacak.
diğer makrolar döngü adedi kadar yani 8 kez çalışacak.

Bu hususta yardımlarınızı bekliyorum. Teşekkür ederim.

E sütunu

satır 3 ali
satır 4 ali
satır 5 ali
satır 6 burhan
satır 7 burhan
satır 8 hülya
satır 9 hülya
satır 10 hülya

Sub Deneme()
 
For i = 3 to 10

[COLOR="Red"]makro1[/COLOR]

makro2
makro3
makro4

End Sub

 

[PLİNT]

Merhaba
Aşağıdaki gibi olabilir.

[SIZE="2"]Sub Deneme()
[COLOR="Blue"]s = WorksheetFunction.CountIf(Range("E3:E10"), Range("E3"))[/COLOR]
For i = 3 To 10

[COLOR="Blue"]If i < s + 3 Then[/COLOR] makro1

makro2
makro3
makro4

End Sub [/SIZE]

 

[desıgner1]

Teşekkür ederim sayın PLİNT.
Elinize sağlık.