boş satırları gizle

[polis-53]

merhaba arkadaşlar excel de bir tablom var bu tabloya başka bir dosyadan veri getrtiyotum tablomda boş kalan satırları nasıl gizleye bilirim yardımlarınız için teşekkür ederim

 

[Necdet]

Merhaba,

A sütununa bakarak boş olan satırları gizler.

Sub Makro1()
    Dim hücre As Range
    For Each hücre In Columns("A:A").SpecialCells(xlCellTypeBlanks)
        Rows(hücre.Row).Hidden = True
    Next hücre
End Sub

 

[polis-53]

merhaba necdet bey gönderdiğiniz makro tablo içindeki boş satırları değilde tablo dişinda kalan tüm satırları gizliyor ben oysa tablo içindeki a sutunundaki boş satırları gizlecin istiyorum

 

[Korhan Ayhan]

Selamlar,

Başka dosyadan veri aldığınızı belirtmişsiniz. Bu durumda hücreler formül sonucu boş görünüyordur. Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub BOŞ_OLAN_SATIRLARI_GİZLE()
    Dim X As Long
    
    Cells.EntireRow.Hidden = False
    
    For X = 1 To Range("A65536").End(3).Row
        If Cells(X, "A") = "" Then Rows(X).Hidden = True
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Necdet]

merhaba necdet bey gönderdiğiniz makro tablo içindeki boş satırları değilde tablo dişinda kalan tüm satırları gizliyor ben oysa tablo içindeki a sutunundaki boş satırları gizlecin istiyorum

Örnek dosyayı görmeyince kendim 3-5 kayıtlık bir dosya hazırlayıp onun üzerinde deneyip gönderdim.

Daha ne yapabilirim

Korhan beyin kodlarını kullanınız.

 

[polis-53]

arkadaşım dosyayı gönderiyorum icmal sayfasında c4 hucresine 25,26 27 gibi rakamlar yazdığımda veri getir butonuna tıkladığım zaman veriler tabloya geliyor benim istediğim veriler tabloya gelirken tablodaki satır sayısıda gelen veri kadar olsun yani 3 tane veri geldiyse 3 tane satır gözüksün 7 tane geldiyse 7 tane gözüksün ben bunu istiyorum dosya ektedir teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Satırlar filtreleme yöntemi ile gizlenmiştir.

Sub YuvarlatılmışDikdörtgen_Tıklat()
    Dim i As Long, sat As Long
    
    Application.ScreenUpdating = False
    Sheets("Sayfa1").Select
    Range("d2:e49").Select
    Selection.ClearContents
    Sheets("icmal").Select
    With Sheets("Sayfa1")
        If ActiveSheet.AutoFilterMode Then Range("A9:J9").AutoFilter
        sat = .Cells(65536, "n").End(xlUp).Row + 1
        For i = 8 To Cells(65536, "o").End(xlUp).Row
            If Cells(i, "o").Value > 0 Then
                    If sat >= 65533 Then
                        MsgBox "Dolu sayfasında satır doldu işlem iptal oldu." & vbLf _
                        & i & "Satırı ve sonraki satırlar kaydedilmedi", vbCritical, "UYARI"
                        Exit Sub
                    End If
                .Range("d" & sat & ":e" & sat).Value = Range("m" & i & ":n" & i).Value
                sat = sat + 1
            End If
        Next i
        Range("A9:J9").AutoFilter
        Range("A9:J9").AutoFilter Field:=1, Criteria1:="<>"
        Application.ScreenUpdating = True
    End With

MsgBox "Seçilen Hesap Gurubu = " & Range("d4").Value & vbLf & vbLf & "[EMAIL="a.gumustas@caykur.gov.tr"]a.gumustas@caykur.gov.tr[/EMAIL]", vbInformation, "Ahmet Ali GÜMÜŞTAŞ"
End Sub

 

[polis-53]

çök teşekkür ederim arkadaşlar işimi gördünüz

 

[ural66]

Selam Arkadaşlar aynı konuya bencez hücre gizleme açmayla ilgili benim de yardımınıza ihtiyacım var. Yukardaki gizleme formülü çalıştı sıkıntı olmadı. ancak geri otomatik açılmadı. Benim de ekteki gibi bi formum var. "giriş sayfasından bilgileri giriyorum exel formülüyle "Peşin Yazdır" sayfasında 1 den 200 e kadar satırlar eğer boş kalırsa gizlensin veri gelirse açılsın. Şimdiden yardımlarınız için teşekkürler.