Søg
Avatar billede cboss Nybegynder
15. oktober 2008 - 10:34 Der er 6 kommentarer

VBA programmering i Excel

Hej,

Jeg har følgende udfordring jeg gerne vil have automatiseret i en VBA kode:

1. Indsætte en ny kolonne i arket efter kolonne A.

2.  Dernæst lave et lodret opslag på værdien i cellen i kolonne A og retunere værdien i den 3. kolonne i matrix C:E (efter at der er indsat en ny kolonne ad 1.)

3. Hvis værdien i cellen i kolonne A er tom; gør intet.

4. Dette skal gøres fra celle a1 til a1000.


Er dette muligt i en makro/vba kode?
Avatar billede jkrons Professor
15. oktober 2008 - 13:57 #1
Hvor vil du have værdien af kolonne E returneret? Er der dubletter i A-kolonnen?
Avatar billede cboss Nybegynder
15. oktober 2008 - 14:06 #2
Værdien i kolonne E skal returneres i den nye kolonne der oprettes i kodens trin 1.

Ja der kan forekomme dubletter i kolonne A.
Avatar billede jkrons Professor
15. oktober 2008 - 14:13 #3
Hvis der forekommer dubletter kan du ikke bruge opslag. Prøv med

Sub LavPladsFindSaetInd()
    Application.ScreenUpdating = False
    Columns("B:B").Select
    Selection.Insert Shift:=xlToRight
    For Each c In Range("a1:A1000").Cells
    c.Offset(0, 1).Value = c.Offset(0, 4).Value
    Next c
    Application.ScreenUpdating = True
End Sub
Avatar billede jkrons Professor
15. oktober 2008 - 14:16 #4
Rettelse. Jeg glemte lige, at den ikke skulle gøre noget, hvis værdien i A var tom

Sub LavPladsFindSaetInd()
    Application.ScreenUpdating = False
    Columns("B:B").Select
    Selection.Insert Shift:=xlToRight
    For Each c In Range("a1:A1000").Cells
        If c.Value <> "" Then
            c.Offset(0, 1).Value = c.Offset(0, 4).Value
        End If
    Next c
    Application.ScreenUpdating = True
End Sub
Avatar billede cboss Nybegynder
24. oktober 2008 - 12:03 #5
Denne kode virker ikke helt som jeg ønsker.

Den danner kun en ny kolonne.
Avatar billede jkrons Professor
24. oktober 2008 - 15:39 #6
Hos mig indsætter den en ny kolonne mellem A og B. Dernæst henter den værdien, der (nu) står i E-kolonnen og overfører til den nye B-kolonne. Var det ikke det, du ønskede?
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
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 16:04 Canon printer vil ikke udskrive farver Af mort1 i Printere
I dag 14:50 Hvilket fabrikat af Mesh systemer virker? Af fkj i Wifi
I går 13:45 AJAX kode -javascript Af Asky i Programmeringsværktøjer
I går 11:50 Vælg indstilling - blå skærm med med flere muligheder for fejlretning Af Uvanga i Windows
14/0523:24 Google sheets beregning udfra dato Af rickiegrayholm i Office & Kontorpakker
White papers
Flere white papers »