VBA to Check 2 Conditions and Change Cell Value

[CreativeUsername]

I'm probably making this harder than it needs to be. Basically I need to check if column K is empty (to limit the range), and the cell offset (0,1) (actually multiple in the row). If both are empty I need it to Do nothing (stop). If "K" is not empty but the offset is empty change the offset cell value to "-". "K" will be full to the end of the range. The offset will have more blanks than filled data but the blanks are important.

For Each Cel In Range("K:K")
        If Cel.Value <> "" And Cel.Offset(0, 1) <> "" Then Cel.Offset(0, 1).Value = "-"
        End If
    Next[code]

I thought I was close but I keep getting errors.  I tried using the IsEmpty also.  Apparently got that wrong.  Thought of a nested if statement but apparently had syntax issues.  I had it half working.. but it was overwriting information with "-" till "K" was blank.  
any help would be appreciated.

 

[Joe4]

If "K" is not empty but the offset is empty change the offset cell value to "-".

You have written your code to check to see if both are NOT empty.

Also, looping through an entire column is slow, inefficient, and usually unnecessary. Find the last row in the column, and only loop down that far.
Here is how I would do it:

    Dim lastRow As Long
    Dim cel As Range
    
    Application.ScreenUpdating = False
    
'   Find last row in column K
    lastRow = Cells(Rows.Count, "K").End(xlUp).Row
    
'   Loop through cells in column K (down to last entry)
    For Each cel In Range("K1:K" & lastRow)
        If cel <> "" And cel.Offset(0, 1) = "" Then cel.Offset(0, 1) = "-"
    Next cel
    
    Application.ScreenUpdating = True

 

[CreativeUsername]

This works great.. but it gets stopped by a cell with an "=" prior to the contents (coming from CSV file as output from other software). How would I add an error handler that puts " ' " before the contents and tries again?

 

[Joe4]

This works great.. but it gets stopped by a cell with an "=" prior to the contents (coming from CSV file as output from other software). How would I add an error handler that puts " ' " before the contents and tries again?

Can you try explaining that again?
What exactly is in the cell that causes problems?
And which column is this value in?