[Løst] Excel 2007 vba Bruke variabel som cellereferanse i formel

[Bigelk]

Hei.

 

Jeg har en kode for legge inn en formel.

 

    ActiveCell.FormulaR1C1 = "=IF(ISERROR(RC[-1]/R19C3*100),"""",RC[-1]/R19C3*100)"

 

Men jeg lurer på om det går ann og gjøre noe sånt som

 

x =R19C3
    ActiveCell.FormulaR1C1 = "=IF(ISERROR(RC[-1]/x*100),"""",RC[-1]/x*100)"

 

Hilsen

 

Torbjørn

[Anders Hole]

Hei.

 

Jeg har en kode for legge inn en formel.

 

    ActiveCell.FormulaR1C1 = "=IF(ISERROR(RC[-1]/R19C3*100),"""",RC[-1]/R19C3*100)"

 

Men jeg lurer på om det går ann og gjøre noe sånt som

 

x =R19C3
    ActiveCell.FormulaR1C1 = "=IF(ISERROR(RC[-1]/x*100),"""",RC[-1]/x*100)"

 

Hilsen

 

Torbjørn

 

Om du tenker på C3:R19 så er svaret ja, dette er mulig med å hente inn range i et array, og kjøre en løkke igjennom alle cellene og legge inn formelen på denne måten.

[Bigelk]

Hei Anders,

Takk for svar, denne har jeg løst men jeg glemte å sette den som løst.

Beklager det.

 

Måten jeg løste det på

Range("R3").Select
Do
   ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell = "5  MENY-OSLO"
ActiveCell.Offset(0, 1).Select

xMeny = "r" & ActiveCell.Row & "c" & ActiveCell.Column

ActiveCell.FormulaR1C1 = _
       "=IF(ISERROR(VLOOKUP(RC[-1],'Ark2'!R2C2:R300C10,2,)),"""",VLOOKUP(RC[-1],'Ark2'!R2C2:R300C10,2,))"

   ActiveCell.Offset(0, 1).Select
   ActiveCell.FormulaR1C1 = _
       "=IF(ISERROR(RC[-1]/" & xMeny & "*100),"""",RC[-1]/" & xMeny & "*100)"

   ActiveCell.Offset(0, 1).Select
   ActiveCell.FormulaR1C1 = _
       "=IF(ISERROR(RC[-2]/" & xtotal & "*100),"""",RC[-2]/" & xtotal & "*100)"

 

 

Hilsen

 

Torbjørn