Code: Select all
Set dstrg = dstws2.Range("C2:C" & dstlr)
For Each rng In dstrg
If rng NOT = "?????" Then
rng.Offset(0, 1) = "'10"
End If
Next rng
Code: Select all
Set dstrg = dstws2.Range("C2:C" & dstlr)
For Each rng In dstrg
If rng NOT = "?????" Then
rng.Offset(0, 1) = "'10"
End If
Next rng
Code: Select all
Set dstrg = dstws2.Range("C2:C" & dstlr)
For Each rng In dstrg
If Not rng.Offset(0, 1) = "'10" And Not IsNumeric(Left(rng.Value, 10)) Then
rng.Offset(0, 1) = "'10"
rng.Offset(0, 1).Interior.ColorIndex = 3
End If
Next rng