cell verwijderen als = 0 met macro in excell.

[timhennin]

Goeiemiddag.

Mijn kennis van visual basic is redelijk beperkt en ik slaag er niet in om het volgende te programmeren. Ik vind ook nergens een gelijkaardige vraag die me op weg kan zetten.

Vandaar dat ik graag de hulp van jullie zou inroepen

De macro zou per rij, alle cellen met waarde nul moeten verwijderen en opschuiven naar links tot op het moment dat er data in de cellen zit.

Om te illustreren via de bijlage. Voor rij 1 moeten de cellen B1 tot F1 verwijderd worden.
Hetzelfde voor rij 2. Voor rij 3 moeten enkel B3 tot C3 verwijderd worden.
Dit is ook zo voor rij 4 maar I4 tot L4, die ook nul zijn moeten blijven staan omdat er al waarden zijn in de cellen die er voor staan.

Hopelijk is mijn vraag duidelijk en kan er mij iemand helpen.

Alvast Bedankt
Tim

 

[timhennin]

code om 0 te verwijderen

Wat ik wel al heb is het volgende

<CODE>
Dim Ur As String
Dim Mycell As Range
Application.ScreenUpdating = False
Ur = ActiveSheet.UsedRange.Address
For Each Mycell In Range(Ur)
If Mycell.Value = 0 Then
Mycell.delete Shift:=xlToLeft
End If
Next
Application.ScreenUpdating = True

</CODE>

het probleem is dat deze macro alle nullen verwijderd dus ook de nullen in het midden van een rij.

 

[enijhuis]

Zo werkt het wel:

Public Sub DeleteFirstZeroes()

    Const CELL_START = "A1"
    Const COL_START = 2
    Dim iRow As Integer
    
    On Error GoTo ErrH
        
    Sheet1.Activate
    
    Application.ScreenUpdating = False
    
    For iRow = Range(CELL_START).Row To Range(CELL_START).End(xlDown).Row
        
        Do While Cells(iRow, COL_START) = 0
            Cells(iRow, COL_START).Delete xlToLeft
        Loop
    Next
    
CleanUp:
    Application.ScreenUpdating = False
    Exit Sub
ErrH:
    MsgBox Err.Description, vbExclamation
    Resume CleanUp
End Sub

Veel plezier ermee!

 

[timhennin]

Superbedankt voor de heel snelle reactie.
Het werkt perfect.

Groetjes

 

[Wigi]

Aan de vraagsteller: Graag de vraag nog even op opgelost zetten aub, bedankt.

Code tags hebben geen < > tags maar [ ]