using left function in VBA

[ExcelHobbit]

Hello,

I want to use the left function in VBA, though not in a formula. have the following code, but it isn't working - could be for obvious reasons:

Range("A2").Select
ActiveCell.Offset(1, 0).Activate

Do Until Cells(ActiveCell.Row, "A").Value = ""
    If Left(Cells(ActiveCell.Row, "A"), 1).Value = "L" Then
    Cells(ActiveCell.Row, "G").FormulaR1C1 = "IFERROR(VLOOKUP(RC4, 'Sheet2'!C1:C4,3,False), """")"
    ActiveCell.Value = ActiveCell.Value
    Else
        If Left(Cells(ActiveCell.Row, "A"), 1).Value = "Q" Then
        Cells(ActiveCell.Row, "G").FormulaR1C1 = "IFERROR(VLOOKUP(RC4, 'Sheet3'!C1:C4,3,False), """")"
        ActiveCell.Value = ActiveCell.Value
        Else
        ActiveCell.Offset(1, 0).Activate
        End If
    End If
Loop

any help would be greatly appreciated.


thanks,

 

[mohadin]

Hi
Try

If Left(Cells(1, "A"), 1) = "Q" Then

 

[ExcelHobbit]

Awesome, thank you so much. just took out the '.value' works a treat.

 

[Lian]

ActiveCell.Value = ActiveCell.Value is also wrong or no use

 

[ExcelHobbit]

ActiveCell.Value = ActiveCell.Value is also wrong or no use

if I use range("A2").value = range("A2").value, it copies/pastes as a value. how can I make this work for the activecell?

 

[mohadin]

You are welcome
And thank you for the feedback
Be happy & safe