Excel VBA, l'obtention de gamme à partir d'une feuille inactive

Ce script fonctionne très bien lorsque je regarde le "Temp" de la feuille. Mais quand je suis dans une autre feuille, puis la commande de copie échoue.. Il donne un "définie par l'Application ou par l'objet défini erreur"

Sheets("Temp").Range(Cells(1), Cells(1).End(xlDown)).Copy
Sheets("Overview").Range("C40").PasteSpecial

Je peux utiliser ce script à la place, mais ensuite, j'ai des problèmes avec le collant

Sheets("Temp").Columns(1).Copy
Sheets("Overview").Range("C40").PasteSpecial
  • Je ne veux pas activer le "Temp" de la feuille pour obtenir ce

Ce que je peux faire

  • J'ai trouvé une solution qui fonctionne: Sheets("Temp").Range("A1:A1000").La copie , mais je ne l'aime pas. Je ne veux pas d'un script avec des limitations.
InformationsquelleAutor Aziz | 2011-11-08
  1. 40

    Votre problème, c'est que la raison de la Cell références à l'intérieur de la Range s 'sont non qualifiés, ils se réfèrent à un défaut de la feuille, ce qui peut ne pas être la feuille que vous avez l'intention.
    Pour les modules standard, le ThisWorkbook module, les classes personnalisées et de l'utilisateur forme de modules, les defeault est le ActiveSheet. Pour Worksheet code derrière les modules, c'est que la feuille de calcul.

    Pour les modules autres que la feuille de calcul de code derrière modules, votre code est en train de dire

    Sheets("Temp").Range(ActiveSheet.Cells(1), ActiveSheet.Cells(1).End(xlDown)).Copy
Sheets("Overview").Range("C40").PasteSpecial

    Pour la feuille de calcul de code derrière modules, votre code est en train de dire

    Sheets("Temp").Range(Me.Cells(1), Me.Cells(1).End(xlDown)).Copy
Sheets("Overview").Range("C40").PasteSpecial

    Dans les deux cas, la solution est la même: obtenir les références de plage avec le classeur:

    Dim sh1 As Worksheet
Dim sh2 As Worksheet

Set sh1 = ActiveWorkbook.Sheets("Temp")
Set sh2 = ActiveWorkbook.Sheets("Overview")

With sh1
    .Range(.Cells(1,1), .Cells(1,1).End(xlDown)).Copy
End With
sh2.Range("C40").PasteSpecial
    • Bien Sûr! Vous êtes incroyable! 😀 Merci beaucoup. Je dois utiliser les Feuilles("Temp").Gamme(Sheets("Temp").Les Cellules(1), Sheets("Temp").Les cellules(1).End(xlDown)).Copie . Mais votre version est compact et mieux formé alors j'ai attrapé il. 🙂
    InformationsquelleAutor chris neilsen
  2. 3

    J'ai rencontré un problème comme ça moi: j'ai essayé de chercher dans une feuille de calcul distincte pour voir si la couleur d'une cellule correspondait à la couleur d'une cellule dans une liste et retourne une chaîne de valeur: si vous êtes en utilisant .Cells(ligne, colonne), vous avez seulement besoin de ceci:
    Sheets("sheetname").Cells(ligne, colonne)
    pour faire référence à cette plage de cellules.

    J'étais une boucle dans un bloc de 500 cellules et il fonctionne étonnamment vite pour moi.

    Je n'ai pas essayé cela avec .Copie, mais je suppose qu'il fonctionne de la même manière.

    InformationsquelleAutor Anonymous
  3. 1

    Cela va faire, je n'aime pas utiliser (xlDown) dans le cas d'une cellule est vide.

    Dim lRow As Long
lRow = Sheets("Temp").Cells(Cells.Rows.Count, "A").End(xlUp).Row

With Sheets("Temp")
     .Range("A1:A" & lRow).Copy Sheets("Overview").Range("C40")
End With

    Ou si vous voulez juste utiliser des Colonnes...

    Sheets("Temp").Columns(1).SpecialCells(xlCellTypeConstants).Copy Destination:=Sheets("Overview").Range("C40")
    InformationsquelleAutor GMalc