Nicht die Werte richtig kopieren

Question

Ich habe ein Problem mit meinem Makro zu kopieren nur die Werte des Bereichs A6:AM46,A52:AM84 zu AN6 Position auf dem gleichen Blatt kopieren.

Sub PréparerGrilles() 


    Range("A6:AM46,A52:AM84").Select 
    Selection.Copy 

    Range("AN6").Select 
    Application.CutCopyMode = False 
    ActiveSheet.Paste 

End Sub 

erhalte ich die 1004-Fehler (Fehlermehrfachauswahl) Können Sie mir helfen mit diesem?

Answer 1

Um WerteA6:AM46,A52:AM84-AN6:BZ46,AN52:BZ84 kopieren Sie folgendes tun:

Sub PreparerGrilles() 
    Range("AN6:BZ46").Value = Range("A6:AM46").Value 
    Range("AN52:BZ84").Value = Range("A52:AM84").Value 
End Sub 

---

Version mit der Range.Copy Methode:

Sub PreparerGrilles() 
    Range("A6:AM46").Copy Destination:=Range("AN6:BZ46") 
    Range("A52:AM84").Copy Destination:=Range("AN52:BZ84") 
    Range("AN6:BZ46").Value = Range("AN6:BZ46").Value 
    Range("AN52:BZ84").Value = Range("AN52:BZ84").Value 
End Sub 

Ich empfehle, dass Sie nicht langsam Ihr Code mit diesem herunter. Es führt auch zu möglicherweise falschen Werten, wenn sich Ihre Formeln auf etwas beziehen, das nicht Teil der Kopie war.

---

Version eine PasteSpecial xlPasteValues Methode:

Sub PreparerGrilles() 
    Range("A6:AM46").Copy 
    Range("AN6:BZ46").PasteSpecial xlPasteValues 
    Range("A52:AM84").Copy 
    Range("AN52:BZ84").PasteSpecial xlPasteValues 
End Sub 

I stark diese Methode gegen die Verwendung von empfehlen, da es aufgrund der Benutzer zu viele „nicht reproduzierbar“ Fehler führt das Kopieren Dinge über die Zwischenablage zwischen Wenn Ihr Code das Kopieren und das Einfügen ausführt, und auch, weil Ihr Copy das zappt, was der Benutzer möglicherweise manuell in die Zwischenablage eingefügt hat.

Answer 2

Application.CutCopyMode = False die Zwischenablage reinigt ....

Bessere Code für das heißt:

Sub Test() 

    Dim wb As Workbook, ws As Worksheet 

    Set wb = ThisWorkbook 
    Set ws = wb.Sheets("SOMMAIRE") 'this means it will only work on this sheet, you should change the name of the sheet or ask me what do you want in order to get it working on other sheets 

    ws.Range("A6:AL46").Copy 
    ws.Range("AN6").PasteSpecial xlValues 

    ws.Range("A52:AM84").Copy 
    ws.Range("AN52").PasteSpecial xlValues 

End Sub 

Editiert: das sollte jetzt den Trick. Probieren Sie es aus und sagen Sie mir, ob es funktioniert

Edited2: Das ist, was Sie wollen, zumindest für das, was Sie bisher gefragt haben.