VBA Script to Delete Column Values based on other Column Values - Getting Type Mismatch

Question

I have a problem with the following command, as I'm getting a

Runtime error 13 Time Mismatch

in this part:

If Cells(i, "BL").Value = "Started" Then, below the code, what can I change in order for it to run?

Pretty much want to look for the work Started in all the rows in column BL and if so, delete the information in the same row in column AH


    Dim myLastRow As Long
    Dim i As Long
    Application.ScreenUpdating = False
    'Find last row
    myLastRow = Cells(Rows.Count, "BL").End(xlUp).Row
    ' Loop through range
    For i = 2 To myLastRow
        ' If Cells(i, "BL").Value = "Started" Then Range(Cells(i, "AH")).ClearContents
        If Cells(i, "BL").Value = "Started" Then Cells(i, "AH").ClearContents
    Next i
    Application.ScreenUpdating = True


End Sub

user6585761 · Accepted Answer · 2020-01-23 04:25:15Z

1

Does Column BL contain one or more error values? If so, you'll need to test for an error first, and then test whether the value is equal to "Start"...

For i = 2 To myLastRow
    ' If Cells(i, "BL").Value = "Started" Then Range(Cells(i, "AH")).ClearContents
    If Not IsError(Cells(i, "BL").Value) Then
        If Cells(i, "BL").Value = "Started" Then Cells(i, "AH").ClearContents
    End If
Next i

Collectives™ on Stack Overflow

VBA Script to Delete Column Values based on other Column Values - Getting Type Mismatch

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related