Søg
Avatar billede ransborg Juniormester
19. november 2009 - 22:47 Der er 4 kommentarer og
1 løsning

VBA kode - LOPSLAG

Hejsa,

Jeg har et regneark, hvor jeg i arket RA i kolonne J (J4:J1003) kan skrive et projektnummer ind. Nu vil jeg gerne have den automatisk til, at den i kolonne K (når jeg skriver i J cellen) laver et LOPSLAG på J-værdien fra ark Projects i kolonne B og angiver værdien på LOPSLAGET i kolonne G.

Hvis jeg blot kunne skrive formlen, ville jeg skrive den som, og herefter kopiere den ned:

=HVIS($J4="";"";HVIS(ER.FEJL(LOPSLAG($J4;Projects!$B$3:$G$450;6;FALSK));"Unknown project";HVIS(LOPSLAG($J4;Projects!$B$3:$G$450;6;FALSK)="";"";LOPSLAG($J4;Projects!$B$3:$G$450;6;FALSK))))

Nu er problemet, at jeg meget gerne vil have det som en VBA kode i stedet, hvordan løser jeg dette?

Håber I kan hjælpe mig, på forhånd tak

Mvh
Ransborg
Avatar billede ransborg Juniormester
19. november 2009 - 22:48 #1
Jeg glemte at skrive, at jeg benytter office 2003, hvis det gør en forskel :-)
Avatar billede x-lars Novice
20. november 2009 - 08:24 #2
Sub Makro1()
    Sheets("RA").Select
    Range("K4").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(R[0]C10="""","""",IF(ISERROR(VLOOKUP(R[0]C10,Projects!R3C2:R450C7,6,FALSE)),""Unknown project"",IF(VLOOKUP(R[0]C10,Projects!R3C2:R450C7,6,FALSE)="""","""",VLOOKUP(R[0]C10,Projects!R3C2:R450C7,6,FALSE))))"
End Sub
Avatar billede x-lars Novice
20. november 2009 - 15:06 #3
Hvis vi også lige skal have kopieringen med:

Sub Makro3()
    Range("K4").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC10="""","""",IF(ISERROR(VLOOKUP(RC10,Projects!R3C2:R450C7,6,FALSE)),""Unknown project"",IF(VLOOKUP(RC10,Projects!R3C2:R450C7,6,FALSE)="""","""",VLOOKUP(RC10,Projects!R3C2:R450C7,6,FALSE))))"
    Range("K4").Select
    Selection.Copy
    Application.Goto Reference:="R5C11:R1003C11"
    ActiveSheet.Paste
    Range("K4").Select
End Sub
Avatar billede ransborg Juniormester
22. november 2009 - 00:24 #4
Hejsa Lars,

det er bare super - smider du et svar?

Mvh
Ransborg
Avatar billede x-lars Novice
23. november 2009 - 08:41 #5
Herligt, at det virkede! ;-D
Avatar billede 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. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel 9 23/09/202618:11 24/09/202611:16
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 18 17/08/202615:14 05/09/202622:04
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 20:40 Access udskrift mangler del af ramme om post. Af Uvanga i Access
I går 12:36 nulstille Samsung tablet T-580 Af fase i Tablet
23/1017:19 Kender I "Dropbox" ? Af Ikke-ekspert i Andet software
23/1016:28 Indsæt en kort video i Outlook 2024 Af ErikHg i E-mail programmer
22/1019:20 Hvor kan man finde en god bærbar computer? Af Strawberry i PC
White papers
Flere white papers »