Özet tabloda çözüm

[konace]

eklediğim örnek dosyada anlatmaya çalıştığım sorunum hakkında yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Bu tarz verilerde özet tablo oluşturabilmeniz için düzenleme yapmanız gerekmektedir.

Örnek verinize göre aşağıdaki işlemi yaparak biraz düzenleme yapabilirsiniz.

A8:B8 hücrelerini seçin.
Seçimi yaptıktan sonra CTRL+SHIFT+AŞAĞI OK tuşlarına beraber basıp alanın sonuna kadar seçimi genişletin.

Yani A8:B8000 gibi bir aralık seçmiş olacaksınız.

Daha sonra F5 tuşuna basın. ÖZEL sekmesini tıklayın. Açılan ekranda BOŞLUKLAR seçeneğini seçin.

Seçtiğiniz alandaki boş hücrelerin tümü seçili hale gelecektir.

Alan seçili iken =A8 yazıp CTRL+ENTER tuşlarına basın. Formüllerden kurtulmak için tüm A:B sütunlarını seçip kopyala-özel yapıştır-değerleri adımlarını izleyebilirsiniz.

Böylece HESAP KODU ve ÜNVANI bilgilerini her satıra yazdırmış olacaksınız.

Bundan sonra filtre uygulayarak gereksiz satırları silerek verilerinizi düzgün hale getirdikten sonra özet tablo oluşturup kullanabilirsiniz.

 

[konace]

Sn korhan ayhan ço00k çok teşekkür ederim..
Tüm hafta sonumu bunu düşünerek geçirdim desem yeridir. öğrenmenin yaşı sonu yok.sağolun.. Saygılarımla..

 

[veyselemre]

Aşağıdaki kodla düzenleyebilirsiniz.

Sub duzenle()
    Application.ScreenUpdating = False
    Sheets("sayfa1").Copy after:=Sheets("sayfa1")
    While Cells(1, 4) = ""
        Rows(1).Delete shift:=xlUp
    Wend
    For i = Cells(Rows.Count, 1).End(3).Row To 2 Step -1
        If Cells(i, 3) = "" _
           Or Cells(i, 1) Like "HESAP*" _
           Or Cells(i, 1) Like "--*" _
           Or Cells(i, 1) Like "KASA*" _
           Then Rows(i).Delete shift:=xlUp
    Next i
    Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).Formula = "=R[-1]C"
    With Range("A1").CurrentRegion
        .Copy
        .PasteSpecial Paste:=xlPasteValues
    End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub