Na conversie Crystal Reports: Lege kolommen verijderen

[Chocka]

Bijgevoegd bestand betreft een query uit een database programmatuur. Via de programmatuur kan deze query welke in Crystal Reports wordt opgebouwd worden geconverteerd naar Excel. Aanzich ziet het prima uit. Het enige probleem is dat om een of andere reden er enorm veel lege kolommen in zitten???

Ik heb geen enklele kennis van VBA, dus tijdens mijn zoektocht vond ik wel een antwoord van een mogelijkheid, maar deze was volledig in VBA en dus voor mij totaal niet te begrijpen of ik die oplossing zo kon toepassen op mijn bestand.

Helaas betreft het hier niet één enkel bestand, want ik heb voor ieder afdeling binnen onze organisatie een dergelijk bestand, anders was het makkelijk geweest om maar één bestand te hoeven aanpassen. Ik spreek hier over totaal ongeveer 12x dergelijk bestand.

Ik was zelf begonnen met alle kolommen op gelijke breedte te zetten en handmatig de lege weg te halen, maar dit was niet zo'n succes. Nogal arbeidsintensief, zodoende stel ik mijn vraag hier. Kan dit anders; handigere cq eenvoudiger en HOE???

 

[Wigi]

Zie hier bij Joseph Rubin.

Wigi

 

[Chocka]

Zoals ik al zei, ik heb totaal geen verstand van VBA. Ziet er leuk uit, maar hoe ga ik dat in excel zetten cq verwerken??? Is dit één macro of meerdere.....???

 

[Wigi]

Plak dit in een nieuwe module (Insert > Module):

Sub DeleteEmptyColumns()
    Dim cCount As Integer, c As Integer
    Application.ScreenUpdating = False
    With Rows(1)
        cCount = .Columns.Count
        For c = cCount To 1 Step -1
            If Application.CountA(.Columns(c)) = 0 Then
                .Columns(c).EntireColumn.Delete
            End If
        Next c
    End With
    Application.ScreenUpdating = True
End Sub

en voer uit.

Wigi

 

[Chocka]

Is het u mogelijk iets meer uitleg te geven, want met uw uitleg kom ik togenblik niet echt ver. Ik doe nu:

Alt+F11
Invoegen -> Module
Copy/Paste de tekst
Uitvoeren -> Sub/Userform uitvoeren
En krijg dan een venster Macro's: Macronaam
Dit lijkt alsof er hier om een naam wordt gevraagd??? Maar als ik een naam in geef gebeurd er niets???

 

[Wigi]

Alt+F11
Invoegen -> Module
Copy/Paste de tekst
Alt+F11
Alt+F8
Uitvoeren van de macro

Wigi

 

[Chocka]

Bij alt+F8 krijg ik een leeg scherm met kopje macro's, waarbij er gevraagd wordt naar een macronaam. Maar het hele scherm is leeg.

 

[Wigi]

Zie bijlage voor waar de macro moet staan.

Wigi

 

[Chocka]

Op moment wil het niet lukken, zodoende zal ik zelf op onderzoek gaan om het verder uit te vinden. Bedankt voor je hulp.

 

[Wigi]

Op moment wil het niet lukken, zodoende zal ik zelf op onderzoek gaan om het verder uit te vinden. Bedankt voor je hulp.

Jouw bijlage terug met de macro erin

Wigi

 

[Chocka]

hartelijk dank, ik heb je teruggestuurde bestand copy/paste naar een leeg bestand waar ik de macro had staan voor alle werkmappen toepasbaar en kan nu de macro toepassen op elk geopend bestand.

 

[Wigi]

hartelijk dank, ik heb je teruggestuurde bestand copy/paste naar een leeg bestand waar ik de macro had staan voor alle werkmappen toepasbaar en kan nu de macro toepassen op elk geopend bestand.

OK, dat is dan ook weer in orde. Blij dat het werkt.