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

ferdinand.k
ferdinand.k (31.033 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.265 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.033 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.265 point)
dobbelt-plinger ?!

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

store-morten
store-morten (40.265 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.033 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

funcstion der kopiere og sletter

Oprettet den 25. juli 2014 kl. 14.15
uglyo_o giver 200 point for svar | Giv et svar »

Deling af navne i excel

Oprettet den 25. juli 2014 kl. 11.44
btoe giver 100 point for svar | Giv et svar »

macro skjul kolonder/rækker.

Oprettet den 25. juli 2014 kl. 10.07
uglyo_o giver 30 point for svar | Giv et svar »

Seneste guides

Undgå reklamerne på iPad
Malwarebytes version 2.0





Computerworld

Teaser billede

Langtsomt internet? Der er nok (også) støj på din linje

Du kan altid bruge en hurtigere internetforbindelse. Men det ikke altid, du kan få den. Støj kan være en forklaringerne. Se her hvorfor.

CIO

Teaser billede

Sådan nedgraderer du nemt Windows 8 til Windows 7

Du kan nemt nedgradere fra Windows 8 til Windows 7. Men pas på: Vejen tilbage til Windows 8 kan være besværlig. Vi har forsøgt at ned- og opgradere begge veje. Se her, hvordan det er gået.

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

Erklæret tilhænger af fastansatte har købt ... et freelancekonsulenthus

Scott/Tiger, som er svoren tilhænger af fastansatte konsulenter, har netop købt freelancekonsulenthuset Dana Consult kontant. Men det giver god mening, siger direktøren.

White paper

Teaser billede

Den lette vej fra legacy til SOA

Få med dette webcast fra BluePhoenix et teknisk overblik over, hvad en legacy-modernisering kan indebære, og hvad der bedst kan betale sig.



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