Boş Stunları ve Boş Satırları Gizleme

[anemis]

Merhaba,
Ekteki gibi bir excel im var. Makro ile boş satırları gizleyebiliyorum. boş stunları da gizlemek istiyorum. Ancak N2 ve N77 hücresi birleşmiş olduğundan gizlenmiyor. makroyu ben yazmadım. Yine sitelerden bulup kendime göre uyarlayabildim boş satırları gizleyip tüm satırları gösterme şeklinde. Aynısını sutunlar için de yaptırtmak istiyorum (N stunu N2 ve N77 haricinde boşsa onu da gizleyecek ancak toplam boy ve genel ağırlık yazıları kalacak şekilde ( yani N2 satırı ve N77 satırı ya gizlenmeyecek ya da dolu olan stunlar kadarki bölümünü (satır olarak) birleştirip ortalanmış olacak.

Biraz karışık gibi görünüyor galiba=) anlatırken bile çok zorlandım.

Şimdiden çook teşekkür ederim harika olur yapılabilirse. Emekleriniz ve ilginiz için minnettarım.

 

[dellerlim]

Merhaba, bu kodlar işinizi görür mü?

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Dim a As String

For i = 14 To 52
     
          
    Cells(3, i).Select
    If Trim(ActiveCell.Formula) = 0 Then
    Exit For
    ElseIf ActiveCell.Value = "" Then
    Selection.EntireRow.Hidden = True
    End If

Next i
    
   Range("A1").Select
   Application.ScreenUpdating = True
End Sub

 

[anemis]

İlginize çok teşekkür ederim sayın dellerlim
Malesef kodu çalıştırmayı başaramadım.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kodları kullanabilirsiniz.
Makro isimleri hangisinin ne olduğunu belli ediyor.
Kriterler ise şöyle:
-- Sütun gizleme kriteri 3'üncü satırdaki boy türlerini gösteren başlık hücrelerinin boş olması,
-- Satır gizleme kriteri ise 4'üncü satırdan itibaren A sütununun boş olmasıdır.
(Satırlarda boş hücre başladığında 73'üncü satıra kadar aralıksız boş olduğu varsayıldı.)
.

[B][COLOR="Red"]Sub SUTUN_GIZLE()[/COLOR][/B]
For sut = 14 To 50 Step 3
    If Cells(3, sut) = "" Then
        For sut1 = 1 To 3
            Columns(sut + sut1 - 1).EntireColumn.Hidden = True
        Next
    End If
Next
[B][COLOR="red"]End Sub[/COLOR][/B]

[B][COLOR="red"]Sub SATIR_GIZLE()[/COLOR][/B]
For sat = 4 To Cells(Rows.Count, 1).End(3).Row - 4
    If Cells(sat, 1).Value = "" Then
        Rows(sat & ":" & Cells(Rows.Count, 1).End(3).Row - 4).EntireRow.Hidden = True
    Exit Sub
    End If
Next
[B][COLOR="red"]End Sub[/COLOR][/B]

[COLOR="red"][B]Sub SUTUN_GOSTER()[/B][/COLOR]
    Columns("N:AZ").EntireColumn.Hidden = False
[B][COLOR="red"]End Sub[/COLOR][/B]

[B][COLOR="red"]Sub SATIR_GOSTER()[/COLOR][/B]
    Rows(4 & ":" & 73).EntireRow.Hidden = False
[B][COLOR="red"]End Sub[/COLOR][/B]

 

[anemis]

Merhaba.

Aşağıdaki kodları kullanabilirsiniz.
Makro isimleri hangisinin ne olduğunu belli ediyor.
Kriterler ise şöyle:
-- Sütun gizleme kriteri 3'üncü satırdaki boy türlerini gösteren başlık hücrelerinin boş olması,
-- Satır gizleme kriteri ise 4'üncü satırdan itibaren A sütununun boş olmasıdır.
(Satırlarda boş hücre başladığında 73'üncü satıra kadar aralıksız boş olduğu varsayıldı.)
.

[B][COLOR="Red"]Sub SUTUN_GIZLE()[/COLOR][/B]
For sut = 14 To 50 Step 3
    If Cells(3, sut) = "" Then
        For sut1 = 1 To 3
            Columns(sut + sut1 - 1).EntireColumn.Hidden = True
        Next
    End If
Next
[B][COLOR="red"]End Sub[/COLOR][/B]

[B][COLOR="red"]Sub SATIR_GIZLE()[/COLOR][/B]
For sat = 4 To Cells(Rows.Count, 1).End(3).Row - 4
    If Cells(sat, 1).Value = "" Then
        Rows(sat & ":" & Cells(Rows.Count, 1).End(3).Row - 4).EntireRow.Hidden = True
    Exit Sub
    End If
Next
[B][COLOR="red"]End Sub[/COLOR][/B]

[COLOR="red"][B]Sub SUTUN_GOSTER()[/B][/COLOR]
    Columns("N:AZ").EntireColumn.Hidden = False
[B][COLOR="red"]End Sub[/COLOR][/B]

[B][COLOR="red"]Sub SATIR_GOSTER()[/COLOR][/B]
    Rows(4 & ":" & 73).EntireRow.Hidden = False
[B][COLOR="red"]End Sub[/COLOR][/B]

Teşekkür ederim sayın Ömer BARAN, örnek excel dosyamdaki sayfa1 e kodu ekleyip çalıştıra basıyorum ancak hiçbir değişiklik olmuyor. Hata da vermiyor ancak bir işlem de yapmıyor.
Bu konuda çok cahilim, kodu çalıştırmayı beceremiyor olabilirim. Sizden ricam kodu excel in içine gömerek excel i ekleyebilir misiniz bir dosya indirme sitesine? Çok zahmet vermiş olmam umarım.

Teşekkürler.

 

[Ömer BARAN]

Dosya ekte.
.

 

[anemis]

Harikasınız üstadım. Elinize emeğinize sağlık gerçekten çok teşekkür ediyorum.

 

[Ömer BARAN]

Harikasınız üstadım. Elinize emeğinize sağlık gerçekten çok teşekkür ediyorum.

Estağfurullah, kolay gelsin.
.