benzersiz hücrelerin altına boş satır açmak.

[hikmet]

merhaba sn.hocalarım ve arkadaşlarım;
ekteki dosyada f sütunundaki benzersiz olanlan ünvanların altına bir boş satır nasıl açtırabiliriz. ilginiz için şimdiden teşekkür ederim.

 

[Ali]

Sub aralıkver()
topsatir = Range("F65536").End(xlUp).Row
For Row = topsatir To 4 Step -1
If Cells(Row, 6).Value <> Cells(Row - 1, 6).Value Then Rows(Row).Insert
Next Row
End Sub

 

[Kemal Demir]

İyi akşamlar,

Ali Bey Cevaplamıs ama bende Cevap eklemek istedim.

İyi Akşamlar.

 

[hikmet]

ali hocam eline sağlık teşekkür ederim ilgin için.
oldu olacak "I","J" ve "K" hücrelerine de toplam aldırsaydınız

 

[hikmet]

sn.rakkas hocam size de ilginiz için teşekkür ederim. sağolun yardımseverliğiniz için.

 

[Ali]

Sn hikmet makro ile birkaç deneme yaptım ama sağlıklı sonuç alamadım. Ama başka bir pratik çözüm aklıma geldi.

Sabit satır yazısı yazan satırdaki birleştir hücreleri kaldırın çünkü o birleştirilmiş hücre varken hata veriyor yada o satırı silinmesi sorun olmayacaksa o satırı silin illa o satır kalacaksan bu sefer ilk satırdaki birleştirilmiş hücreleri kaldırın. I1,J1,K1 kısmına Shift+2 ile bir kesme işareti koyunki dolu gözüksün. Daha sonra aşağıdaki işlemleri yapın.

I,J,K sütun başlıklarından üç sütunu seçin. CTRL+G yapın özeli seçin oradan boşluklar yazan kısımı seçin otomatik toplam simgesini (∑ ) tıklayın boş olan kısımlara alttoplam alacaktır.

 

[hikmet]

sn.ali hocam ilginiz için çok teşekkür ederim. enteresan bir yöntem. bunu ilk defa gördüm. sayenizde birşey daha öğrenmiş oldum. gayet güzel de işlem yaptı teşekkürler.

 

[Levent Menteşoğlu]

......... CTRL+G yapın özeli seçin oradan boşluklar yazan kısımı seçin otomatik toplam simgesini (∑ ) tıklayın boş olan kısımlara alttoplam alacaktır.

Gerçekten güzel bir yöntem bende ilk defa görmüş oldum. Teşekkürler Ali bey.

 

[Kemal Demir]

denemedim ama benimde aklıma iki yol geldi.
1.Pivot alınarak cozum olabilir diye dusundum.
2.Alt Toplamlarlada cozulebilir mi.

Mantıklı geldi.Paylaşmak istedim.