Endered5
10-03-2020, 06:54 AM
Hi,
I have some problem with VBA coding when i want to make a Vlookup and the TableArray always starts from Column "A" to "K", but the rows can differ depending on the situation.
For example
Range("P1").Value = Range("O2").Value & Range("M2").Value
Range("P2").Value = Range("O3").Value & Range("M3").Value
I have written "A" in cell "O2" and "K" in cell "O3". M2 and M3 is a row number I will get from a formula. So lets say M2=10 and M3=20, this means my "P1" will be A10 and "P2" will be K20. So the table array i want in Vlookup is A10:K20. But somehow the code is wrong, when i use "ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-8], Indirect(P1): Indirect(P2), 10, FALSE)"
I have tried many and different solution, but it didnt work out. This is my latest, but failed solution. I attach a file since maybe my explanation is not that good. It is supposed to do Vlookup under any column under "Last week" and to get the "current week" comments.
The whole code is here:
ActiveCell.Offset(-2, -9).Select
ActiveCell.Copy
Range("M1").PasteSpecial
Range("M1") = Range("M1").Value
Range("M2") = "=Match(M1-4,A:A,0)"
Range("M3") = "=Match(M1-3,A:A,0)"
Range("M4") = "=Match(M1-0,A:A,0)"
Range("M4").Copy
Range("M10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M10") = Range("M10").Value
Range("M2") = Range("M2").Value
Range("M3") = Range("M3").Value
Range("P1").Value = Range("O2").Value & Range("M2").Value
Range("P2").Value = Range("O3").Value & Range("M3").Value
I = Range("M10").Value
Cells(I + 2, 10).Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-8], Indirect(P1): Indirect(P2), 10, FALSE)"
End Sub
I have some problem with VBA coding when i want to make a Vlookup and the TableArray always starts from Column "A" to "K", but the rows can differ depending on the situation.
For example
Range("P1").Value = Range("O2").Value & Range("M2").Value
Range("P2").Value = Range("O3").Value & Range("M3").Value
I have written "A" in cell "O2" and "K" in cell "O3". M2 and M3 is a row number I will get from a formula. So lets say M2=10 and M3=20, this means my "P1" will be A10 and "P2" will be K20. So the table array i want in Vlookup is A10:K20. But somehow the code is wrong, when i use "ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-8], Indirect(P1): Indirect(P2), 10, FALSE)"
I have tried many and different solution, but it didnt work out. This is my latest, but failed solution. I attach a file since maybe my explanation is not that good. It is supposed to do Vlookup under any column under "Last week" and to get the "current week" comments.
The whole code is here:
ActiveCell.Offset(-2, -9).Select
ActiveCell.Copy
Range("M1").PasteSpecial
Range("M1") = Range("M1").Value
Range("M2") = "=Match(M1-4,A:A,0)"
Range("M3") = "=Match(M1-3,A:A,0)"
Range("M4") = "=Match(M1-0,A:A,0)"
Range("M4").Copy
Range("M10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M10") = Range("M10").Value
Range("M2") = Range("M2").Value
Range("M3") = Range("M3").Value
Range("P1").Value = Range("O2").Value & Range("M2").Value
Range("P2").Value = Range("O3").Value & Range("M3").Value
I = Range("M10").Value
Cells(I + 2, 10).Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-8], Indirect(P1): Indirect(P2), 10, FALSE)"
End Sub