Copier les valeurs d'une feuille de calcul à une autre

Comment puis-je copier des données à partir d'une feuille de calcul à une autre?

J'ai essayé ce code, mais obtenez un message d'erreur:

Private Sub CommandButton2_Click()
    Sheets("Gas Opt").Select
    Range("A1:A3").Select
    Selection.Copy

    Sheets("ExportToPPServer").Select
    Cells(3, AColumn).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    LFound = True
    MsgBox "Data coped."


End Sub

Erreur:

Select method of Range class failed.
  • La ligne qui produit le message d'erreur?
  • Range("A1:A3").Sélectionnez
InformationsquelleAutor xbonez | 2011-01-04
  1. 2

    Quoi ce look?

    Sub x()
    Sheets("Gas Opt").Select
    Range("A1:A3").Select
    Selection.Copy
    ActiveWorkbook.Sheets("ExportToPPServer").Range("A1:A3").PasteSpecial Paste:=xlValues
End Sub

    Modifier

    Est votre bouton de Contrôle sur une autre feuille de Gaz "Opt"? Qui pourrait expliquer qu'il soit. Essayez ceci:

    Sub x()
    Sheets("Sheet2").Range("A1:A3").Copy
    ActiveWorkbook.Sheets("Sheet3").Range("A1:A3").PasteSpecial Paste:=xlValues
End Sub
    • Il accède à la fiche de je veux copier de et donne de la "Méthode Select de la Classe range a échoué' erreur
    • Impair. Il fonctionne très bien sur ma feuille. Peut-être parce que je suis en train de faire une procédure régulière, et non dans le cadre d'un contrôle? idk.
    • Voir mon montage ci-dessus.
    • Merci. Vous modifiez travaillé. Je suppose que je devrais avez spécifié que le bouton de contrôle sur la destination, et non la source de la feuille.
    • Pas de problème. Reste la solution aurait fonctionné aussi.
    InformationsquelleAutor PowerUser
  2. 2

    Quelque chose comme cela devrait fonctionner:

    Private Sub CommandButton2_Click()
    Dim copyRng As Range, targetRng As Range

    Set copyRng = Worksheets("Gas Opt").Range("A1:A3")
    Set targetRng = Worksheets("ExportToPPServer").Cells(3, AColumn)

    copyRng.Copy 
    targetRng.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    LFound = True
    MsgBox "Data coped."
End Sub
    InformationsquelleAutor Alex P
  3. 0

    Vous devez activer la feuille, sinon vous ne pouvez pas sélectionner de cellules.

    Sheets("ExportToPPServer").Activate ' Instead of select
    • Au range("A1:A3").Sélectionnez, j'obtiens la même erreur que dans ma question.
    • C'est probablement parce que la feuille 'GasOpt" n'est pas actif à ce moment.
    InformationsquelleAutor GolezTrol