ferdinand.k Mester
07. januar 2013 - 13:10 Der er 4 kommentarer og
1 løsning

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 ?
07. januar 2013 - 17:32 #1
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
ferdinand.k Mester
07. januar 2013 - 20:00 #2
Det spiller - Tak. Men jeg fortår sgu ikke lige de der dobbelt-plinger ?!
07. januar 2013 - 20:04 #3
dobbelt-plinger ?!
07. januar 2013 - 20:32 #4
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 "  "")  "
ferdinand.k Mester
08. januar 2013 - 07:47 #5
Det giver bedre mening. Tak
Ny bruger Nybegynder

Din løsning...

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

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





CIO
Bliv klar til EU-persondataforordningen: Ministerium klar med længe ventet dansk vejledning til den nye EU-lov
Justitsministeriet er efter en måneds forsinkelse klar med den store vejledning til EU's kommende persondataforordning, der kommer til at få konsekvenser for alle danske virksomheder. Se vejledningen her.
Comon
Ups - kontroversiel funktion kan afsløre utro Tinder-brugere
En funktion i den populære dating-app Tinder kan betyde, at du uforvarende kommer til at afsløre din dating-profil.
Job & Karriere
Dansk it-firma masseansætter: Skal bruge 90 nye medarbejdere med disse it-profiler
It-virksomheden BEC skal bruge 90 nye it-medarbejdere. Her kan du se de konkrete it-profiler, BEC er på udkig efter.
White paper
Stor undersøgelse: Det forventer danske it-folk på jobbet
I samarbejde med it-jobbank har Computerworld undersøgt, hvad it-folk lægger vægt på i et job. Flere end 2.000 it-folk deltog blandt Computerworlds og it-jobbanks brugere i juli og august måned 2016.