Satır aç ve son dolu hücreye kadar devam et

[haso_excel]

Merhaba arkadaşlar,

A kolonundan H kolona kadar satır sayısı belli olmayan bir datam var. Aşağıdaki kod ile F kolonunda ay kontrolü yapıp farklı ayı bulunca satır açtırıyorum. Ama ilk farklı aydan sonra tekrar ilk bulduğu boşluğun altına satır açıyor. Ben bulduğu farklı aydan sonrada döngünün son satıra kadar devam etmesini istiyorum. Yani Her farklı ayı bulup bir sonraki ayın başladığı satırdan devam edecek.

Sub boşluk()
Dim b As Integer
For b = 2 To WorksheetFunction.CountA(Range("a:a"))
If Month(Cells(b, 6).Value) <> Month(Cells(b + 1, 6)) Then
 Cells(b + 1, 6).EntireRow.Insert shift:=xlDown
End If
Next b

End Sub

 

[Mehmet Şahin]

Merhaba,
bu şekilde denermisiniz?
İyi çalışmalar.

Sub boşluk()
Dim b As Integer
son = WorksheetFunction.CountA(Range("a:a"))
a = 2
x = 2
For b = 2 To son
If Month(Cells(b, 6).Value) <> Month(Cells(b + 1, 6)) Then
 Cells(b + 1, 6).EntireRow.Insert Shift:=xlDown
 son = son + 1
 Cells(b + 1, "g") = WorksheetFunction.Sum(Range("g" & a & ":" & "g" & b))
 Cells(b + 1, "g").Font.Bold = True
 a = b + 2
 b = b + 1
End If
Next b
 Cells(son + 1, "g") = WorksheetFunction.Sum(Range("g" & a & ":" & "g" & son))
 Cells(son + 1, "g").Font.Bold = True
End Sub

 

[haso_excel]

Süper teşekkürler. Bir ricam daha olabilir mi acaba?
Şimdi bu kod ile her ayı kendi içinde ayırmış olduk. Peki açtığı boşlukların G kolonuna toplamlarınıda aldırabilir miyiz ?

 

[Mehmet Şahin]

Merhaba,
kodu değiştirdim, test edebilirsiniz. İyi akşamlar.

 

[haso_excel]

Teşekkürler elinize sağlık süper olmuş

 

[Mehmet Şahin]

Rica ederim, iyi çalışmalar.

 

[baydeniro]

Sayın dentex ben de çok teşekkür ederim. Harika bir kod. Böylesine çok az rastladım. Sağlıcakla kalın.