Satır Gruplama

[Ramocino]

Üstatlar Ekteki dosyada "Analiz" sayfasının "Gelirler" sayfasında değişiklik olduğunda "Olması-Gereken" sayfasında ki gibi olmasını istiyorum. Biraz uğraştım lakin beceremedim. Teşekkür ederim.

 

[netzone]

Merhaba,

Gruplandırmayı satırları seçerek yapabilirsiniz.

Örnek: Alacaklar [4.Satır] Grubu için Başlık dışında kalan alt satırları [5. 6. 7. Satırlar] seçip Veri > Gruplandır demeniz yeterli olacaktır.
Diğerleri içinde tekrarlayınız.

İyi çalışmalar.

 

[Ramocino]

Üstat siz sanırım meseleyi anlamadınız! Gelirler kısmına veya giderler kısmına yeni veri girişi yapıldığında dikkat ederseniz analiz kısmında veri özeti değişiyor. Bu değişen verilere istinaden grupların yerleri de değişecek.

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Cells.ClearOutline
For Each cell In Sheets("Analiz").Range("c4:c100")
If cell.Value = "'1.1.1" Or cell.Value = "'2.1.1" Or cell.Value = "'3.1.1" Then
cell.Rows.Group
End If
Next cell
ActiveSheet.Outline.ShowLevels RowLevels:=1
End Sub