Kolommen verwijderen tot eerste niet lege cel in rij 9

[shivalli]

Hallo lezers,

Ik wil met onderstaande macro de lege kolommen verwijderen. De macro moet doorgaan tot hij een waarde vind in rij 9, en vanaf daar niet meer verwijderen. Huidige macro zoekt door tot kolom A.
Wie kan mij helpen om onderstaande script aan te passen.

Sub Rechtgezetkoldel()
Application.ScreenUpdating = False
firstColumn = ActiveSheet.UsedRange.Cells(9).Column
For icol = 91 To firstColumn Step -1
If Cells(9, icol).Value = "" Then Cells(9, icol).EntireColumn.Delete
Next
Application.ScreenUpdating = True
End Sub
dank alvast

 

[OctaFish]

Ik weet niet hoe je daar bij komt; bij mij stopt-ie keurig bij kolom 9. Overigens kun je de waarde 9 een heel stuk simpeler 'achterhalen'.

Dim iCol As Integer

    Application.ScreenUpdating = False
    For iCol = 91 To 9 Step -1
        If Cells(9, iCol).Value = "" Then Cells(9, iCol).EntireColumn.Delete
    Next
    Application.ScreenUpdating = True

 

[shivalli]

Dag Octafish,

Dank voor je snelle reactie.
je hebt gelijk, echter op de een of ander manier ging het niet helemaal goed.
Ik heb jouw script nu overgenomen en het gaat helemaal goed. Ik ga het nu aanpassen om ook het zelfde bij de lege rijen te kunnen doen.
gr en veel dank.