Avatar billede Brus Juniormester
18. november 2021 - 11:37 Der er 3 kommentarer og
1 løsning

Tilføjelse af nye linjer ved brug af Macro

Jeg sidder og prøver at lave en tilføjelses knap ved brug af Macro. (Det virker)
Ved tryk på knappen skal den så f.eks. Tage cell A1 og B1 og tilføje i bunden på de allerede eksisterende linjer fra C1:D10, heraf sletter den A1 og B1 da de nu er tilføjet, (Hvilket er rigtigt).

Mit spørgsmål/brug for hjælp ender så ud i at når jeg vil tilføje en ny tilføjelse derefter, til de nu eksisterende linjer som nu fra C1:D11 så ændre den kun Cellerne C11:D11 og tilføjer ikke neden under igen, som jeg ønsker det.

Hvordan får jeg den til det? Hvad gør jeg? :)
Avatar billede kim1a Ekspert
18. november 2021 - 13:23 #1
Hvordan ser din makro ud, det vil hjælpe os en del i at fejlsøge.
Avatar billede Brus Juniormester
18. november 2021 - 15:15 #2
ub Tilføjelse_Af_Ny_Del()
'
' Tilføjelse_Af_Ny_Del Macro
'

'
    Range("M7:O9").Select
    Selection.Copy
    Sheets("Stam_Data").Select
    Range("C2").Select
    Selection.End(xlDown).Select
    Range("C137").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Lager_Oversigt").Select
    Range("P7:R9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Stam_Data").Select
    Range("F137").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("G136:AH136").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("G136:AH137")
    Range("G136:AH137").Select
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Sheets("Lager_Oversigt").Select
    Range("M7:O9").Select
    Selection.ClearContents
    Range("P7:R9").Select
    Selection.ClearContents
    Range("L22").Select
End Sub
Avatar billede store-morten Ekspert
19. november 2021 - 10:02 #3
Dit oplæg giver ikke rigtigt mening i forhold til din kode!

Jeg har prøvet at tilpasse koden og fjernet lidt:
Sub Tilføjelse_Af_Ny_Del()

    Sheets("Lager_Oversigt").Range("M7:O9").Copy
   
    Sheets("Stam_Data").Select
    Sheets("Stam_Data").Range("C137").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
    Application.CutCopyMode = False
       
    Sheets("Lager_Oversigt").Range("P7:R9").Copy
   
    Sheets("Stam_Data").Select
    Sheets("Stam_Data").Range("F137").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
    Application.CutCopyMode = False

    Sheets("Lager_Oversigt").Select
    Sheets("Lager_Oversigt").Range("M7:O9").ClearContents
    Sheets("Lager_Oversigt").Range("P7:R9").ClearContents
   
    Range("L22").Select
   
End Sub
Avatar billede Brus Juniormester
19. november 2021 - 12:54 #4
Ved ikke om det evt. kunne have noget at gøre med at jeg har tilføjet nogle flere funktioner i Macro´en, at du synes den ser lidt rodet ud.. Da der skal trækkes nogle linjer efterfølgende for at få nogle formler med for at gøre Macro´en fuldendt.

Men ja din kode virker, men den tilføjet stadigvæk ikke nedenunder hvis jeg køre Macro´en flere gange efter hinanden... Så ændre den bare de tal den tilføjet første gang.

Skal lige siges jeg ved heller ikke om det kan lade sig gøre, kunne jo bare godt være :)
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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