Bir Sonraki Kolona Geçme

[Ömer2134]

Arkadaşlar merhaba

Aşağıdaki şekilde bir kod yazdım. Belirlerdiğim hücreler arasında çalışacak. Fakat bir sonraki kolona geçtiğinde Range("ı2:ı" bu kısımda belirttğim ı harfi sırasıyla Range("j2:j"
Range("k2:k"

Bu sekilde gitmesini istiyorum..

Sub kolon()

For i = 2 To sonsatir

saybir = WorksheetFunction.CountIfs(Range("A2:A" & sonsatir), Range("a" & i), Range("ı2:ı" & sonsatir), """")

Next i


End Sub

Teşekkürler.

 

[PLİNT]

Merhaba
Yukarıdaki kodlarınızda yanlışlık yoksa aşağıdaki gibi "x" döngüsü ile diğer sütunlarda devam ettirebilirsiniz.
Range(Cells(2, x), Cells(sonsatir, x))

sonsatir = Cells(Rows.Count, "A").End(3).Row
For x = 9 To 11        '<----------------- 9. SÜTUNDAN 11.SÜTUNA KADAR

For i = 2 To sonsatir
saybir = WorksheetFunction.CountIfs(Range("A2:A" & sonsatir), Range("a" & i), Range(Cells(2, x), Cells(sonsatir, x)), """")
Next i

Next x

 

[Ömer2134]

Teşekkür ederim. Çalıştı.

 

[endmüh16]

3 tane makinam var a sütunundaki işleri alıp her makinada her sıra için durumlarını göstermek istiyorum excel dosyamda el ile yaptım ama for döngüleriyle otomatik yazılımını sağlayamadım yardımcı olursanız çok sevinirim iş sayısı ve sıra sayısı eşit ve iş sayısı sabit değil dinamik olarak değişebilmektedir.