Hello,
I have the below code and wan to add more of the sae code to match, copy and paste.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'my formula on worksheet =INDEX('Wharf Schedules'!B:B,MATCH(Data!AO59&Data!AQ59,'Wharf Schedules'!C:C&'Wharf Schedules'!E:E,0))
'my formula on worksheet =INDEX('Wharf Schedules'!B:B,MATCH(Data!AO67&Data!AQ67,'Wharf Schedules'!C:C&'Wharf Schedules'!E:E,0))
Range("AL5").FormulaArray = "=IFERROR(INDEX('Wharf Schedules'!B:B,MATCH('Data'!AO5&AQ5,'Wharf Schedules'!C:C&'Wharf Schedules'!E:E,0)),"""")"
With Range("AL5:AL" & Cells(Rows.Count, "B").End(xlUp).Row)
Want to add this code in to existing code
'Range("AM5").FormulaArray = "=IFERROR(INDEX('Wharf Schedules'!G:G,MATCH('Data'!AO5&AQ5,'Wharf Schedules'!C:C&'Wharf Schedules'!E:E,0)),"""")"
'With Range("AL5:AL" & Cells(Rows.Count, "B").End(xlUp).Row)
.FillDown
.Value = .Value
End With
End Sub
Dale
I have the below code and wan to add more of the sae code to match, copy and paste.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'my formula on worksheet =INDEX('Wharf Schedules'!B:B,MATCH(Data!AO59&Data!AQ59,'Wharf Schedules'!C:C&'Wharf Schedules'!E:E,0))
'my formula on worksheet =INDEX('Wharf Schedules'!B:B,MATCH(Data!AO67&Data!AQ67,'Wharf Schedules'!C:C&'Wharf Schedules'!E:E,0))
Range("AL5").FormulaArray = "=IFERROR(INDEX('Wharf Schedules'!B:B,MATCH('Data'!AO5&AQ5,'Wharf Schedules'!C:C&'Wharf Schedules'!E:E,0)),"""")"
With Range("AL5:AL" & Cells(Rows.Count, "B").End(xlUp).Row)
Want to add this code in to existing code
'Range("AM5").FormulaArray = "=IFERROR(INDEX('Wharf Schedules'!G:G,MATCH('Data'!AO5&AQ5,'Wharf Schedules'!C:C&'Wharf Schedules'!E:E,0)),"""")"
'With Range("AL5:AL" & Cells(Rows.Count, "B").End(xlUp).Row)
.FillDown
.Value = .Value
End With
End Sub
Dale