dilippshah10
New Member
Private Sub UserForm_Initialize()
CoName.Value = (Sheet1.Range("B1"))
CoAddress.Value = (Sheet1.Range("I12"))
CoGSTIN.Value = (Sheet1.Range("I15"))
ColumnN.Value = ActiveCell.Offset(0, 2).Value
ColumnG.Value = ActiveCell.Offset(0, -5).Value
ColumnC.Value = ActiveCell.Offset(0, -9).Value
'ColumnI.Value = ActiveCell.Offset(0, -3).Value
TextBox1.Value = ActiveCell.Offset(0, -3).Value
'On Error Resume Next
'TextBox7.Value = Application.WorksheetFunction.VLookup(ColumnN.Value, ("ARPartiesList"R5C2:R264C22), 15, False)
TextBox7.Value = Index((Sheet35.Range("P515")), Match(ColumnN.Value, (Sheet35.Range("B5:B15")), 0))
'=INDEX($A$2:$A$14, MATCH(1799, $C$2:$C$14, 0))
'TextBox7.Value = IIf(VLookup(ColumnN.Value, ("ARPartiesList"!("B5:B264")), 1, True) = ColumnN.Value, VLookup(ColumnN.Value, (Sheet35.Range("B5:V264")), 13, True), NA())
CoName.Value = (Sheet1.Range("B1"))
CoAddress.Value = (Sheet1.Range("I12"))
CoGSTIN.Value = (Sheet1.Range("I15"))
ColumnN.Value = ActiveCell.Offset(0, 2).Value
ColumnG.Value = ActiveCell.Offset(0, -5).Value
ColumnC.Value = ActiveCell.Offset(0, -9).Value
'ColumnI.Value = ActiveCell.Offset(0, -3).Value
TextBox1.Value = ActiveCell.Offset(0, -3).Value
'On Error Resume Next
'TextBox7.Value = Application.WorksheetFunction.VLookup(ColumnN.Value, ("ARPartiesList"R5C2:R264C22), 15, False)
TextBox7.Value = Index((Sheet35.Range("P515")), Match(ColumnN.Value, (Sheet35.Range("B5:B15")), 0))
'=INDEX($A$2:$A$14, MATCH(1799, $C$2:$C$14, 0))
'TextBox7.Value = IIf(VLookup(ColumnN.Value, ("ARPartiesList"!("B5:B264")), 1, True) = ColumnN.Value, VLookup(ColumnN.Value, (Sheet35.Range("B5:V264")), 13, True), NA())