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

ferdinand.k
ferdinand.k (31.203 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.620 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.203 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.620 point)
dobbelt-plinger ?!

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

store-morten
store-morten (40.620 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.203 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

Ændring af tid på bestemte celler afhængig af hvad der...

Oprettet den 29. august 2014 kl. 08.41
faaborg_fyn giver 100 point for svar | Giv et svar »

Datavalidering liste/lopslag

Oprettet den 28. august 2014 kl. 16.39
A-Stjerne giver 30 point for svar | Giv et svar »

Goal seek

Oprettet den 28. august 2014 kl. 11.50
hesl giver 60 point for svar | Giv et svar »

Seneste guides

Opret BOOTBAR USB pen ...
Undgå reklamerne på iPad





Computerworld

Teaser billede

KMD-fyringer gennemført: Sådan ramte de organisationen

Dagens store fyringsrunde i KMD er nu gennemført. Se her, hvordan fyringerne ramte organisationen.

CIO

Teaser billede

It-projekterne fejler igen og igen: Forklaringen er ganske pinlig

It skal skabe mere effektive virksomheder og offentlige institutioner, men ender alt for ofte med at skabe problemer. Forklaringen bør give røde ører.

Comon

Teaser billede

Din indbakke har fået en ny hersker - her er det bedste mailprogram (til Mac)

Langt om længe er den hypede e-mail-app Mailbox kommet til din Mac. Og den har været værd at vente på.

Channelworld

Teaser billede

It-forhandlere: Derfor gider vi ikke sælge Windows Phone og Surface

Der er tre gode grunde til, at it-forhandlerne ikke har fidus til Microsofts store satsning på styresystemet Windows Phone og tablet-pc'en Surface.

White paper

Teaser billede

Bliv værdistyret og fokusér på vigtigste

Seks nøglekoncepter lærer dig at fokusere på, hvad der har størst værdi for dine kunder og for de markeder, din virksomhed betjener.



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