[Løst] For.. Next loop sammen med vlookup formel

[Bigelk]

Hei.

 

Jeg bruker en for.. next loop sammen med vlookup.

 

Sheets("ark3").Select
Range("a4").Select
Dim i As Integer
   Dim intRowCount As Integer
   intRowCount = Sheets("ark1").Range("A1").CurrentRegion.Rows.Count - 0
   For i = 1 To intRowCount
   ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[1],'ark1'!R[-3]C:R[96]C[1],2,)"
   ActiveCell.Offset(1, 0).Select
   Next i

 

Problemet er at formelen er konstant, mens den aktivecella forandrer seg. så i steden for og starte søket på A1 for hver gang, starter den søket +1 rad for hver gang loopen går (A1, A2, A3 osv.).

Noen som vet hvordan jeg får Formelen til og starte på A1 for hver gang loopen går?

[Harald Staff]

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[1],'ark1'!R[-3]C:R[96]C[1],2,)"

 

Det fine med R1C1-notasjon er at det ikke spiller noen rolle hvor man er. Lynkurs:

 

Relative adresser:

RC[-1] betyr samme rad en kolonne til venstre

R[-3]C betyr tre rader over samme kolonne

R[-1]C[1] betyr en rad opp en kolonne til høyre

 

Men så, absolutte adresser:

R1C1 er rad 1 kolonne 1 (kjent som celle A1)

 

og blandinger:

R1C[+1] er rad 1 en kolonne til høyre

 

Så til formelen din:

 

"=VLOOKUP(RC[1],'ark1'!R2C:R96C[1],2,FALSE)"

 

edit -kaffemangel...- bruk absolutt kolonnenummer:

"=VLOOKUP(RC[1],'ark1'!R2C1:R96C2,2,FALSE)"

 

HTH. Beste hilsen Harald

Endret 21. oktober 2011 av Harald Staff

[Bigelk]

Tusen takk for hjelpen! nå fungerer loopen akkurat som den skal.

 

Hilsen

Torbjørn

Endret 21. oktober 2011 av Bigelk