Oprette formel i celle med excel

prøv at se, om ikke der bliver sat nogle apostrofer omkring Vareoversigt, når du benytter F2 og Enter

Umiddelbart kunne det nemlig se ud som om, det er referencen, der er noget galt med.

Der sker intet med formlen når jeg trykker F2 enter

Har også prøvet at force en recalc at sheet med appplcation.calculate, heller ikke det hjalp.

//akj

hmmm.... når jeg smider en formel i excel via en makro, gør jeg det på denne måde:
ActiveCell.FormulaR1C1 = _
        "=IF(LEN(RC[-15])=8,""00""&RC[-15],IF(LEN(RC[-15])=9,""0""&RC[-15],RC[-15]))"

Kan det skyldes, at du ikke får aktiveret din celle? Ovennævnte er nemlig sakset fra en makro, jeg bruger ret tit, og den fungerer

Sjovt så er det lige det jeg sider og prøver nu, vender tilbage om 2 min.

//akj

Plejer også at bruge ActiveCell. Det virker ihvertfald.

Så er her lidt inspiration, som burde kunne bruges i din løkke:

' Her kontrolleres længden på kontonummeret. Hvis længden er 8 tegn, sættes 2 nuller foran.
' Er længden 9, sættes 1 nul foran og ellers beholdes det oprindelige nummer
    ActiveCell.Offset(1, 15).Range("A1").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(LEN(RC[-15])=8,""00""&RC[-15],IF(LEN(RC[-15])=9,""0""&RC[-15],RC[-15]))"

Hvad er den "rigtige" måde at, f.eks skrive "hej1" , "hej2" osv  , i alle celler i colonne H, vel at mærke så længe der står noget i de kolonne A-G ???

///akj

Nu har jeg rettet min kode til dette
For li_count = 1 To 5
    Range(Cells(li_count, 12), Cells(li_count, 12)).Select
    ActiveCell.Formula = "=VLOOKUP(RC[-9],Vareoversigt!A:K,3,FALSE)"
Next

Men det virker stadig ikke :o(

men jeg har nu snydt den ved at lave noget "grisseri" med:
sendkeys "{F2}",100
sendkeys "{ENTER}",100

Så virker det men det er jo noget fusk.

//akj

jeg er på dybt vand nu, men hvad med:

For li_count = 1 To 5
ActiveCell.Offset(li_count, 15).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-9],Vareoversigt!A:K,3,FALSE)"
Next

Hmm, den smider det i et synderligt rod ud over det hele, men det virker også først efter F2 enter tricket

hmmm.... den driller vist

Hvad med at sætte ActiveCell.Select ind, før next?

Desværre virker heller ikke.

Tror squ efterhånden det er en bug i excel

//akj

mmjaee... det kan da ikke helt afvises, når der nu er tale om et Microsoft-produkt ;-)

Men du skulle vel aldrig have slået nogle funktioner fra i en eller flere makroer? Det kunne være årsagen til dit problem.

Pt er den makro jeg bøvler med den eneste i regnearket.

//akj

ok

Har du forresten prøvet med Activecell.update ? (jeg er dog ikke helt sikker på, hvad den gør...)

der er ingen update property/funktion på activecell

Så er jeg nok desværre løbet tør for ideer.....

Prøv at oprette "A:K" som et navngivet område (f.eks: 'testOmraade') og indsæt det i formlen istedet for 'Vareoversigt!A:K'

f.eks: "=VLOOKUP(RC[-9],testOmraade,3,FALSE)"

Problemet kunne ligge i at du blander R1C1-referencer med alm. referencer. Hvis du laver en FormulaR1C1 reference skal du holde dig til det ( RC(-9) og A:K er ikke samme type
prøv det her eller døb området som Blackadder skriver:

For li_count = 1 To 5
    Cells(li_count, 12).Formula = "=VLOOKUP(I" & li_count & ",Vareoversigt!A:K,3,FALSE)"
Next

Erstat I med kolonnebogstavet du ønsker at slå op.

Bak >> Din løsning virker, det må jeg huske til en anden gang ikke at blande æbler og bananer.

Tak for hjælpen alle 3.

//akj