satır ac makro nasıl yapılır

[senerozun]

ekte gönderdigim örnekte oldugu gibi A sutunundaki aynı işletmeye sahip satırları ayırarak K sutununda toplatmak ve etrafına kenarlık oluşturmak istiyorum. Bu işlemi makroları kullanarak nasıl yapabilirim. yardımcı olabilirseniz sevinirim.

 

[Levent Menteşoğlu]

Aşağıdaki kodun kullanıldığı ekli dosyayı inceleyin.

Sub duzenle()
Application.ScreenUpdating = False
For b = [c65536].End(3).Row To 1 Step -1
If Cells(b + 1, "a") <> "" And Cells(b, "a") <> Cells(b + 1, "a") Then
Rows(b + 1).Insert
Rows(b + 1).Insert
Cells(b + 1, "I") = "Toplam"
Cells(b + 1, "k") = WorksheetFunction.SumIf([a:a], Cells(b, "a"), [k:k])
Range("I" & b + 1 & ":K" & b + 1).Font.Bold = True
Range("A" & b + 1 & ":M" & b + 1).Borders(xlEdgeBottom).LineStyle = xlContinuous
End If
Next
End Sub