formule met macro plaatsen

[janusvl]

Ik wil graag een formule in excel sheet plakken met behulp van een macro. Ik heb het nu bijna werkend maar het laatste stuk lukt me niet

de code doe ik heb:

Range(w).Select
ActiveCell.FormulaR1C1 = _
         "=IF(ISERROR(VLOOKUP(A2," & p & ".xls!R8C1:R750C1,1,FALSE)),""-"",1)"

en daar komt uit

=IF(ISERROR(VLOOKUP('A2';'I:\IT\Script\Loginscripts\SoftwareScan\[PL77.xls]PL77'!$A$8:$A$750;1;FALSE));"-";1)

dit is bijna goed nu moet alleen 'A2' veranderd worden in A2 zodat hij de cel a2 pakt ipv de tekst. Heeft iemand een idee hoe ik dot kan doen

 

[ReneDirks]

probeer het eens met:

Range(w).Select
ActiveCell.FormulaR1C1 = _
         "=IF(ISERROR(VLOOKUP(R[1]C[0]," & p & ".xls!R8C1:R750C1,1,FALSE)),""-"",1)"

 

[Hoornvan]

Dit kan uit de code;

FormulaR1C1

Dus;

Range(w).Select
ActiveCell = "=IF(ISERROR(VLOOKUP(R[1]C[0]," & p & ".xls!R8C1:R750C1,1,FALSE)),""-"",1)"

 

[janusvl]

het werkt wel maar nog niet helemaal op de manier zoals ik wou

dat komt misschien omdat ik was vergeten te vermelden dat de rij steeds een opschuimt maar de waarde A2 moet worden behouden
met de volgende zorg ik dat er steeds een nieuwe rij wordt geselecteerd

w = Range("A1").End(xlToRight).Offset(1, 1).Address

en dan heb ik deze code die er voor zorgt dat dat er tekst wordt neergezet

ActiveCell.FormulaR1C1 = _
         "=IF(ISERROR(VLOOKUP(R[1]C[0]," & p & ".xls!R8C1:R750C1,1,FALSE)),""-"",1)"

maar nu krijg ik dus als hij bijvoorbeeld in am iets neerzet niet A2 maar AM3

heeft iemand hier nog een oplossing voor

janus

 

[janusvl]

ik heb de oplossing:

de werkende formule is

ActiveCell.FormulaR1C1 = _
         "=IF(ISERROR(VLOOKUP(RC1," & p & ".xls!R8C1:R750C1,1,FALSE)),""-"",1)"

janus