
Sub Mod()
For i= 1 To N
A=Sheets("Foglio1").Cells(i,4).Value
Sheets("Foglio3").Cells(i,5)="=VLOOKUP(""A"",'Foglio2'!RC[-11]:R[17]C[-10],2)"
Next
End Sub
|
Sub Esempio()
For i = 5 To 6
A = Sheets("Foglio2").Cells(i, 1).Value
Sheets("Foglio2").Cells(i, 6).FormulaR1C1 = "=VLOOKUP(" & """" & A & """" & ",Foglio1!RC[-5]:R[8]C[-4],2,FALSE)"
Next
End Sub |
Sub Esempio()
For i = 5 To 6
A = Sheets("Foglio2").Cells(i, 1).Value
Sheets("Foglio2").Cells(i, 6).Formula = "=VLOOKUP(" & """" & A & """" & ",Foglio1!$A2:$B10,2,FALSE)"
Next
End Sub
|
