vba code loopt anders wanneer je niet op desbetreffende werkblad staat

[gaggie]

Ik heb onderstaande code ergens hier op het forum verkregen.
Wanneer ik op het werkblad Database ga staan en dan de code laat lopen dan werkt deze correct.
Als ik de code vanaf een ander werkblad laat lopen dan maakt hij werkblad Database helemaal leeg.

De code moet bepaalde regels verwijderen.

Option Explicit

Sub ClearBlankCells()
    Dim x As Long
    
    With Sheets("Database")
        For x = 1 To .UsedRange.Rows.Count + 1
            If Int(Cells(x, 1) = 0) Then .Cells(x, 1).EntireRow.Clear
            If Len(Cells(x, 3)) + Len(Cells(x, 4)) + Len(Cells(x, 5)) + Len(Cells(x, 6)) + Len(Cells(x, 7)) = 0 Then
                .Cells(x, 3).EntireRow.Clear
            End If
        Next x
    End With
End Sub

Weet iemand wat hier niet goed aan is.

Bij voorbaat dank

Gaggie

 

[edmoor]

Wijzig Int(Cells( en Len(Cells( eens in Int(.Cells( en Len(.Cells(

 

[gaggie]

Beste Edmoor,

dat was de oplossing.

Bedankt.

Gaggie

 

[snb]

of gebruik

Sub M_snb()
   sheets("Database").usedrange.columns(1).specialcells(4).entirerow.clear
End Sub

 

[gaggie]

Beste SNB,

Wat doet die code?

Gaggie

 

[Warme bakkertje]

Kijk in de VBA-help eens bij specialcells en je hebt een antwoord op je vraag.

 

[gaggie]

ok specialcells(4) zijn dus lege cellen.
Maar welke cellen checkt hij dan die leeg zijn?