Oprettet man. d. 07. januar 2013 kl. 13:10:32

ferdinand.k
ferdinand.k (32.813 point. Point ude: 385)


indsæt formular i celle gennem VBA

Halløjsa,

Jeg skal have indsat en formular i en række celler (B2 -- > B200), men jeg får en fejl når jeg smider koden ind.

Jeg skal have indsat denne koden :
=IF(A2<>"";(VLOOKUP(A2;SUMMARY!L1:AC1000;18;FALSE));"")

Jeg har forsøgt mig med både:
Range("B2:B200").FormulaR1C1 =
Range("B2:B200").Value =

... hvad bør jeg gøre ?

Skrevet man. d. 07. januar 2013 kl. 17:32:07| #1

store-morten
store-morten (44.803 point)
Måske:
Sub Test_Indsæt_Formel()

    Range("B2").Formula = _
        "=IF(A2<>"""",(VLOOKUP(A2,SUMMARY!$L$1:$AC$100,18,FALSE)),"""")"
    Range("B2").AutoFill Destination:=Range("B2:B200"), Type:=xlFillDefault
   
End Sub

Skrevet man. d. 07. januar 2013 kl. 20:00:57| #2

ferdinand.k
ferdinand.k (32.813 point)
Det spiller - Tak. Men jeg fortår sgu ikke lige de der dobbelt-plinger ?!

Skrevet man. d. 07. januar 2013 kl. 20:04:17| #3

store-morten
store-morten (44.803 point)
dobbelt-plinger ?!

Skrevet man. d. 07. januar 2013 kl. 20:32:48| #4

store-morten
store-morten (44.803 point)
Nå.. nu er jeg med ;-)
Range("B2").Formula =
Skriver det der står mellem den første " og sidste "

Altså for at få "" (tom) med blive formlen delt op:

=IF(A2<>  " og "  "",(VLOOKUP(A2,SUMMARY!$L$1:$AC$100,18,FALSE)),  " og "  "")  "

Skrevet tir. d. 08. januar 2013 kl. 07:47:28| #5

ferdinand.k
ferdinand.k (32.813 point)
Det giver bedre mening. Tak

Skriv et indlæg




Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] [img]link til billede[/img]
Web- og emailadresser omdannes automatisk til links

Log ind

   



Seneste spørgsmål

Optimering af kode

Oprettet den 28. juli 2015 kl. 16.32
hubertus giver 100 point for svar | Giv et svar »

VBA: Expected end of statement ved ""

Oprettet den 28. juli 2015 kl. 12.41
KenneyD71 giver 45 point for svar | Giv et svar »

Makro til skjul kolonne

Oprettet den 28. juli 2015 kl. 11.21
scholes giver 30 point for svar | Giv et svar »






Computerworld

Teaser billede

Windows 10 om tre dage: Gør disse tre ting før og efter du opdaterer til Windows 10

Den 29. juli frigiver Microsoft Windows 10. Men inden du kan hente den nye Windows-version, skal du lige gøre et par ting.

CIO

Teaser billede

Giver du ERP-systemet skylden for dårlig leveringsservice?: Her er den virkelige skurk

Klumme: ERP-systemet får ofte skylden for manglende leveringsservice, men det er sjældent fair. I stedet skal man analysere flowet i virksomheden, og det er der er mange penge i.

Comon

Teaser billede

Prøvekørt: Her er Microsofts splinternye Surface-computer - til noget lavere pris end Surface Pro 3

Prøvekørt: Microsoft er klar med en helt ny Surface-computer, der bliver billigere end den nuværende Surface 3 Pro, selv om de er ret ens. Vi har prøvekørt den nye maskine. Se vores dom her.

Channelworld

Teaser billede

Politiet er på sporet af flere ulovligheder i bestikkelsessagen

I denne uge skal en dommer tage stilling til om de tre personer, der fortsat sidder varetægtsfængslet i sommerens store bestikkelsessag, skal have lov til at holde resten af deres sommerferie i...

White paper

Teaser billede

Sådan vælger du det bedste CMS

Læs her hvordan du vælger det CMS til web der både fra marketingafdelingens og udviklernes perspektiv giver den bedste kundeoplevelse.



Udgiver · © 2015 Computerworld A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger