lege kolommen verwijderen

[stefano]

Van een bestand in bijlage heeft rij 1 een kolomtitel. Daaronder staan allemaal data. Ik wil de kolommen verwijderen waarvan onder de kolomtitel geen gevens ingevuld staan, met andere woorden de blanco kolommen verwijderen.

Manueel verwijderen is geen probleem, ik zoek een vba-code. Bovendien zijn de 'lege' kolommen niet steeds dezelfde !


dank !






Bekijk bijlage VGL_1.XLS

 

[wieter]

Ik twijfel of de onderstaande oplossing voldoet aan uw wensen.
Regel 2 is een hulpregel, die kijkt of de kolom leeg is (die regel kan je verbergen).
Dan met 2 knoppen "verbergen" of "tonen"

Bekijk bijlage 192711

 

[stefano]

Hallo Wieter,

Dank alvast voor je reactie. Ik zoek eigenlijk wel iets anders zoals je zegt, maar uit dit leer ik ook wel weer wat bij

Ik probeerde de lege kolommen te verwijderen, maar met onderstaande code lukt dat niet. Heb je hier een oplossing voor ?

Private Sub CommandButton1_Click()
   For j = 1 To 30
       Sheets("VGL_1").Columns(j).[COLOR="#FF0000"]Delete[/COLOR] = Sheets("VGL_1").Cells(2, j) = 0
   Next
End Sub

 

[wieter]

Deleten i.p.v. verbergen gaat ook, maar WEG is WEG, kan niet meer hersteld worden.

Bekijk bijlage 192721