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

ferdinand.k
ferdinand.k (31.068 point. Point ude: 325)


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 (40.410 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 (31.068 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 (40.410 point)
dobbelt-plinger ?!

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

store-morten
store-morten (40.410 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 (31.068 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

Kopiere tekstdata fra en celle til en anden celle

Oprettet den 1. august 2014 kl. 20.40
keldo giver 100 point for svar | Giv et svar »

Retter selv formel

Oprettet den 1. august 2014 kl. 07.37
fagpoler giver 100 point for svar | Giv et svar »

Macro hvis dato så kopirer data

Oprettet den 1. august 2014 kl. 00.54
uglyo_o giver 200 point for svar | Giv et svar »

Seneste guides

Undgå reklamerne på iPad
Malwarebytes version 2.0





Computerworld

Teaser billede

Stortest af 23 programmer: Her er den mest sikre antivirus-løsning

En test af 23 antivirusprogrammer fortæller dig, hvor du får den bedste beskyttelse mod de trusler, du møder på nettet.

CIO

Teaser billede

Derfor ender store softwareprojekter som det rene juks

Store softwareprojekter ender alt for ofte i store problemer - og kan ligefrem true virksomhedens eksistens. Her er forklaringen.

Comon

Teaser billede

Test af 6 mini-tablets: Sådan vælger du den rigtige

Mini-tablets er praktiske og passer perfekt til rejser og e-bogslæsning. Men hvad skal du vælge? Vi har testet seks forskellige modeller.

Channelworld

Teaser billede

Mail-bommert: Atea er under voldsomt pres

ComputerViews: En kontroversiel mail fra Atea er endt som en boomerang. Mailen fortæller en historie om et it-marked, hvor kundernes krav om lave priser lægger et voldsomt pres på...

White paper

Teaser billede

Hvilke it-risici kan du leve med?

Denne Computerworld Guide fokuserer på de elementer, der skal overvejes i forbindelse med investeringer i it-sikkerhed.



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