Error 13: updating an adjacent cell if cell is not empty

[rakotonirinas]

Hello,

I'm trying to execute the VBA code below but I get a run-time error 13 Type Mismatch with a highlight on If cell.Value <> "" Then.

I cannot manage to figure out what is missing or incorrect here. Would someone help or point me to the right direction to solve this please?

Thank you.

Sub Update_Remit_Column()
Dim paidRng As Range
Dim salesWks As Worksheet
Dim cell

    'Set the range in column A you want to loop through
    Set salesWks = Sheets("Sales")
    Set paidRng = salesWks.Range("$AG$2:$AG$5000")
    
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    
    For Each cell In paidRng
        'test if cell is empty
        If cell.Value <> "" Then
            'write to adjacent cell
            cell.Offset(0, -11).Value = "Yes"
        End If
    Next
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    
End Sub

[AskMeAboutExcel]

Can't replicate the issue - maybe share a sample workbook?

If you think that it's the If cell.Value <> "" Then line that's causing the issue, try replacing with If Not IsEmpty(cell) Then

[AskMeAboutExcel]

ah, could be that you've declared 'cell' without a type. Best practice is to use a term that isn't likely to be misinterpreted, e.g. 'MyCell'

Then try Dim MyCell as Range etc....

[beyond Excel]

Hello. Try with:

Sub Update_Remit_Column()
Application.EnableEvents = False
With Sheets("Sales")
  .Range("V2:V5000") = .Evaluate("IF(AG2:AG5000<>"""", ""Yes"", V2:V5000)")
End With
Application.EnableEvents = True
End Sub 

[rakotonirinas]

Thank you very much for your contribution. They helped me learned more things about coding. beyond Excel's suggestion resolved my issue and made it even easier. Thank you.

[beyond Excel]

Beyond Excel's suggestion resolved my issue and made it even easier. Thank you.

That's good!...I'm glad it's like that and thanks for the +Rep.