Erreur dans Excel 2010, la méthode PasteSpecial de la Classe Range a échoué dans la macro

Voici mon code qui lance cette erreur:

Méthode PasteSpecial de la classe Range a échoué

Erreur est de lancer seulement quand je suis en train de déboguer.

Range(Cells(7, 1), Cells((Rowrange + 7), 2)).Select
Selection.PasteSpecial Paste:=xlValues


  ' my complete code

strSheetName = "sheet1"
Sheets(strSheetName).Select
B6 = Range("B6").Value
B7 = Range("B7").Value
Range(Cells(11, 1), Cells((Rowrange + 11), 2)).Select
Selection.Copy

strSheetName = "sheet2"
Sheets(strSheetName).Select
' Range(Cells(7, 1), Cells((Rowrange + 7), 2)).Select
'.Range(Cells(7,1), .Cells(RowRange + 7, 2). PasteSpecial Paste := xlValues
'Selection.PasteSpecial Paste:=xlValues
With ActiveSheet
.Range(.Cells(7, 1), .Cells(Rowrange + 7, 2)).PasteSpecial Paste:=xlValues
End With

Est-il un moyen pour éviter cette erreur?

Quelle est la valeur de RowRange?
Pouvez-vous montrer le code complet (y compris le code de copie)
Où en êtes-vous de la copie pour faire une pâte? Vous devez d'abord copier pour faire une pâte 😉
Parfois, au hasard je reçois ce message d'erreur (Excel 2003/Windows 7 ou XP) et le redémarrage de mon ordinateur semble pour le fixer. Étrange.

OriginalL'auteur user1382191 | 2012-06-04

  1. 2

    Je crois (Si le ci-dessus est en fait votre code complet) vous n'êtes pas à copier les données et directement en essayant de faire une pâte, et par conséquent vous êtes obtenir cette erreur 🙂

    Est-ce que vous essayez?

    strSheetName = "Estimated vs Actual Costs"
With Sheets(strSheetName)
    .Range(.Cells(7, 1), .Cells(RowRange + 7, 2)).Copy
    .Range(.Cells(7, 1), .Cells(RowRange + 7, 2)).PasteSpecial Paste:=xlValues
End With

    SUIVI

    Essayer cette

    strSheetName = "sheet1"
With Sheets(strSheetName)
    B6 = .Range("B6").Value
    B7 = .Range("B7").Value
    .Range(.Cells(11, 1), .Cells((RowRange + 11), 2)).Copy
End With

strSheetName = "sheet2"
With Sheets(strSheetName)
    .Range(.Cells(7, 1), .Cells(RowRange + 7, 2)).PasteSpecial Paste:=xlValues
End With
    :Désolé Sid je l'ai collé code complet maintenant.
    Ok. Essayez maintenant 🙂
    [assylias 1 - 1 Sid] LOL. Merci pour le modifier.
    :Toujours le même message d'erreur.Comment vérifier les données du presse-papiers???Peut-être que je suppose que c's my data problem.xlValues data tats à venir est "-4165'.
    un téléchargement de votre fichier excel?

    OriginalL'auteur Siddharth Rout

  2. 1

    La meilleure façon d'éviter ce genre d'erreur est de n'utiliser pleinement qualifié plages:

    With Sheets("The name of the sheet")
    .Range(.Cells(7, 1), .Cells(RowRange + 7, 2)).PasteSpecial Paste:=xlValues
End With

    Ou: With ActiveSheet si vous connaissez la feuille est déjà sélectionné.

    Également de noter que la sélection n'est pas nécessaire.

    :Essayé le code ci-dessus,n'a pas fonctionné.
    Jem using Excel 2010,but the report which Im de travail a été créé dans Excel 2003.
    + 1 Le code ci-dessus devrait fonctionner.
    Essayez le code ci-dessus à nouveau 🙂
    J'ai collé code complet maintenant.

    OriginalL'auteur assylias