Notifikationer

Markér alle som læst Log ud

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

Synes godt om

ransborg Juniormester

19. november 2009 - 22:48 #1

Jeg glemte at skrive, at jeg benytter office 2003, hvis det gør en forskel :-)

Synes godt om

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

Synes godt om

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

Synes godt om

ransborg Juniormester

22. november 2009 - 00:24 #4

Hejsa Lars,

det er bare super - smider du et svar?

Mvh
Ransborg

Synes godt om

x-lars Novice

23. november 2009 - 08:41 #5

Herligt, at det virkede! ;-D

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel	5	17/04/202616:11	27/04/202617:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel	6	13/04/202614:32	15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel	2	31/03/202610:22	31/03/202611:47
Stempel ur start og stop Af lurup i Excel	3	23/03/202613:24	07/05/202614:01
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel	4	08/03/202611:56	08/03/202613:57

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS