If then VBA

[Jaredbuoy]

Hi all,

I am looking to recreate the following formular into VBA

=IF(I2=I1,N1&", "&E2,E2)

But it needs to loop through column "I" until there are no more to loop through. Pulling through the respective data of proceeding data. Essentially a drag fill function.

Can anyone kindly assist?

Many thanks

 

[Legacy 143009]

This function will write to column O. Change number "15" whichever column number you want to write your data.

Sub myFunction()
  Dim lRow As Integer
  lRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = 2 To lRow
    If Cells(i, 9).Value = Cells(i-1, 9).Value Then
      Cells(i, 15).Value = Cells(i, 14).Value & ", " & Cells(i, 5).Value
    Else
      Cells(i, 15).Value = Cells(i, 5).Value
    End If
  Next
End Sub

 

[mohadin]

Hi
May be

Sub test()
    With Range("A1:A" & Cells(Rows.Count, "I").End(xlUp).Row)
        .Formula = "=IF(I2=I1,N1&"",""&E2,E2)"
        .Value = .Value
    End With
End Sub

You may delete .value=.Value if you want to keep formula in

 

[Jaredbuoy]

Hi
May be

Sub test()
    With Range("A1:A" & Cells(Rows.Count, "I").End(xlUp).Row)
        .Formula = "=IF(I2=I1,N1&"",""&E2,E2)"
        .Value = .Value
    End With
End Sub

You may delete .value=.Value if you want to keep formula in

Worked a charm thank you very much!

 

[mohadin]

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