If, Left, Right formula via VBA CODE

[Dokat]

Hi,

I am trying to write below formula in VBA code. Can someone please help me?

=IF(LEFT(C2,1)="4",("4 we "&RIGHT(C2,8)),"""YTD")

I tried below code but receiving Compile Error, Syntax error

Sub LeftRight()
Dim r1 As Range, r2 As Range, LResult As String
Set r1 = Range("C1:C12")
Set r2 = Range("B1:B12")
LResult = if(Left(R1, 1)="4","4 we "&RIGHT(C2,8)),"""YTD")
End Sub

 

[Hui]

Assuming the answer is going in D1:D12
it will be something like

Sub LeftRight()
Dim c As Range
For Each c In Range("D1:D12")
  If Left(c.Offset(0, -2), 1) = "4" Then
      c.Value = "4 we " & Right(c.Offset(0, -1), 8)
  Else
      c.Value = "YTD"
  End If
Next
End Sub

 

[Dokat]

Hi,

I tried the code but it returns wrong result.

 

[Hui]

There are inconsistencies in your trial code and hence it is unclear what you are trying to achieve?

eg:
Sub LeftRight()
Dim r1 As Range, r2 As Range, LResult As String
Set r1 = Range("C1:C12")
Set r2 = Range("B1:B12")
LResult = if(Left(R1, 1)="4","4 we "&RIGHT(C2,8)),"""YTD")
End Sub


You have defined R1 and r2 as ranges
But then you only use R1 and C2 in the formula ?

Can you please describe what you are trying to achieve or Please attach a sample file?

 

[Dokat]

I changed the offset number it fixed half of the issue but still it's not returning YTD where it supposed to.

Sub LeftRight()
Dim c As Range
For Each c In Range("D2:D13")
  If Left(c.Offset(0, -1), 1) = "4" Then
      c.Value = "4 we " & Right(c.Offset(0, -1), 8)
  Else
      c.Value = "YTD"
  End If
Next
End Sub

Thanks

 

[Dokat]

Iam trying the code to return YTD in the row where it starts with "Building....' Please see attached file.

Thanks

 

[Dokat]

ok i figured it out. thank you for your help