IF function comparing values from two columns

[ChanL]

Currently, i have a table with multiple columns. And I want to compare the values in columns name "beneficiary name" and "sender name" using IF function
And i want to do this until the very last row of the available data

the expected outcome is :
If the value in beneficiary name = value in sender name , then it will return value as "own" else it will return as "third party"

P/s : I have alrdy create a VBA to automatically add a column name "type" at the right of the table
And now i wan the value for the IF function show in this column.

 

[Peter_SSs]

P/s : I have alrdy create a VBA to automatically add a column name "type" at the right of the table
And now i wan the value for the IF function show in this column.

Perhaps you could share that code so we don't have to guess what tables are called, where things are etc and can make a fairly simple addition to your existing code?

 

[ChanL]

Perhaps you could share that code so we don't have to guess what tables are called, where things are etc and can make a fairly simple addition to your existing code?

Sure, this is so far what i have right now. Didn't manage to came out the code for the IF function as I really have no idea how to do it. So sorry

Dim source as range, ws as worksheet

Set source = Range("A1").Currentregion
Set ws = Thisworkbook.sheets("Source")
ws.listobjects.add(SourceType:=xlsrcrange, source:=source, _
xllistobjecthasheaders:=xlyes, tablestylename:="TableStyleMedium27").Name="Table 1"

With ws.ListObjects ("Table 1")
.ListColumns.Add.Name = "Type"
End with

End sub

 

[Peter_SSs]

Try this code with a copy of your workbook.

Sub test()
  Dim rsource As Range, ws As Worksheet
  
  Set rsource = Range("A1").CurrentRegion
  Set ws = ThisWorkbook.Sheets("Source")
  ws.ListObjects.Add(SourceType:=xlSrcRange, source:=rsource, _
    xllistobjecthasheaders:=xlYes, tablestylename:="TableStyleMedium27").Name = "Table_1"
  
  With ws.ListObjects("Table_1")
    .ListColumns.Add.Name = "Type"
    .DataBodyRange(.Range.Columns.Count).Formula = "=IF([@[beneficiary name]]=[@[sender name]],""own"",""third party"")"
  End With
End Sub

 

[ChanL]

Try this code with a copy of your workbook.

Sub test()
  Dim rsource As Range, ws As Worksheet
 
  Set rsource = Range("A1").CurrentRegion
  Set ws = ThisWorkbook.Sheets("Source")
  ws.ListObjects.Add(SourceType:=xlSrcRange, source:=rsource, _
    xllistobjecthasheaders:=xlYes, tablestylename:="TableStyleMedium27").Name = "Table_1"
 
  With ws.ListObjects("Table_1")
    .ListColumns.Add.Name = "Type"
    .DataBodyRange(.Range.Columns.Count).Formula = "=IF([@[beneficiary name]]=[@[sender name]],""own"",""third party"")"
  End With
End Sub

Hi peter! Thanks so much for the help, this works perfectly fine. But just a quick question . the code .DataBodyRange(.Range.Columns.Count).Formula = , is it possible for me to use it with diff excel formula besides the IF functions?

 

[Peter_SSs]

Sure, you could any formula you want in the column.