Filter voor kolommen?

[Senso]

Alleen kolommen weergeven waarvan de cellen in rij 1 leeg zijn. (kan er ook een tekst in zetten bv > Actief)
Er zijn meer dan 100 kolommen waarvan random een groot aantal oude gegevens bevatten. Om deze telkens te verbergen is onhandig. Nu heb ik boven de vervallen kolommen een tekst (Opgeheven) gezet de rest blijft leeg.
De uitleg op internet is mij te ingewikkeld en kan ik niet volgen.

 

[SjonR]

zo?

Sub Senso()
For Each KL In Range("A:DZ").Columns
    If KL.End(xlUp).Value <> "" Then KL.EntireColumn.Hidden = True
Next
End Sub

 

[gast0660]

Zoiets?

Sub dotchie()
Dim i As Integer
 For i = 1 To 100[COLOR="#008000"] 'van kolom 1 tot 100[/COLOR]
  Columns(i).EntireColumn.Hidden = IsEmpty(Cells(1, i).Value)[COLOR="#008000"] 'als de eerste cel in de kolom leeg is, dan verbergen,vb A1 is leeg dan kolom A verborgen.[/COLOR]
 Next i
End Sub

 

[SjonR]

Philiep, De kolommen met een gevulde eerste cel moeten worden verborgen.

 

[Senso]

Het lijkt mij beter om dan die kolommen te verbergen die Opgeheven bevatten in rij 1. Wil je dat dan zo herschrijven.
Een macro is alleen geldig voor één document?

 

[SjonR]

Zo dan:

Sub Senso()
For Each KL In Range("A:DZ").Columns
    If KL.End(xlUp).Value = "Opgeheven" Then KL.EntireColumn.Hidden = True
Next
End Sub

 

[gast0660]

Alleen kolommen weergeven waarvan de cellen in rij 1 leeg zijn.

@SjonR ?? Volgens mij kan ik nog altijd lezen

 

[SjonR]

Lees ik het fout dan?

 

[Senso]

Het is gelukt met die van SjonR. Helaas begrijp ik niets van hoe je een dergelijke macro opslaat en waar. Er wordt ook niet om gevraagd en ik sluit dat zo maar af. Dan kijk ik onder macro en dan staat die er en werkt wel. Ik zal dit wel nooit begrijpen, waarom wordt niet duidelijk gemaakt wat de volgende fase is in het proces.

Philiep heeft gelijk maar dat is toch niet handig, want dan verdwijnen de rest van de helemaal lege kolommen ook. Dat is niet de bedoeling.

Oké, bedankt allemaal. De eerste van SjonR gebruik ik wel. Die werkt goed, alleen het opslaan e.d. ging nog niet helemaal goed. Ga nog wat oefenen.