La feuille du module de boucle Excel VBA est-elle hors de scope?

Je rencontre une erreur d'exécution 1004 "Sélectionner la méthode de la class Range failed" sur un script que j'ai exécuté dans un module. Le script est lié à un button sur une feuille différente. Lors de l'exécution, le script est destiné à regarder la colonne N de la feuille «aperçu des projets», find toutes les lignes contenant la valeur «Terminer – Conception» et copyr les valeurs de cette ligne sur une ligne de maintien temporaire sur la feuille3. À partir de ce point, la ligne est ajoutée à une troisième et dernière feuille (feuille9) où elle est insérée dans une list en cours d'exécution d'autres lignes qui ont été copiées. La ligne d'origine de la feuille "Aperçu des projets" est ensuite supprimée.

Je reçois l'erreur lorsque le script atteint le Sheet3.Range ("A200: Q200"). Sélectionnez une partie du code. Je pense qu'il a quelque chose à voir avec l'activation de la feuille à partir de ce module, car le rest du script est enveloppé dans une déclaration indiquant la feuille de synthèse des projets, mais je ne sais pas comment résoudre ce conflit. Toute aide serait appréciée. Merci!

Sub CompleteJob() Dim Firstrow As Long Dim lastRow As Long Dim LrowProjectsOverview As Long With Sheets("Projects Overview") .Select Firstrow = .UsedRange.Cells(1).Row lastRow = .UsedRange.Rows(.UsedRange.Rows.Count).Row For LrowProjectsOverview = lastRow To Firstrow Step -1 With .Cells(LrowProjectsOverview, "N") If Not IsError(.Value) Then If .Value = "Complete - Design" Then .EntireRow.Copy Sheet3.Range("A200:Q200").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False If Sheet9.Range("B2").Value = "" Then Sheet9.Range("A2:Q2").Value = Sheet3.Range("A200:Q200").Value Sheet3.Range("A200:Q200").ClearContents Else Sheet9.Range("B2").EntireRow.Insert Sheet9.Range("A2:Q2").Value = Sheet3.Range("A200:Q200").Value Sheet3.Range("A200:Q200").ClearContents Sheet9.Range("B2:Q2").Interior.Color = xlNone Sheet9.Range("B2:Q2").Font.Bold = False Sheet9.Range("B2:Q2").Font.Color = vbBlack Sheet9.Range("B2:Q2").RowHeight = 14.25 End If If Sheet9.Range("B2").Value = "" Then Sheet9.Range("B2").EntireRow.Delete End If If .Value = "Complete - Design" Then .EntireRow.Delete End If End With Next LrowProjectsOverview End With End Sub 

• Excel VBA pour exécuter Macro dans une nouvelle ligne est Inséré
• Comment puis-je append des valeurs uniquement si "x" est présent?
• Dans Excel 2010, comparez datatables des colonnes et mettez en surbrillance les valeurs si elles sont différentes en utilisant macro et VBA
• Activation des stream d'import / export entre une database postgres à distance et des classurs Excel
• Que faire pour éviter la fonction VBA exécutée dans le mauvais livre de travail

• Mettre en surbrillance automatiquement les nouvelles cellules d'input à l'aide de VBA
• La méthode .unlist ne fonctionnera pas
• Index / match si supérieur à
• EPPlus lance l'exception DataValidations "La date de la valeur demandée" n'a pas été trouvée. "En essayant d'save xlsm
• Mise à jour dynamic du tableau de bord Xcelsius à partir de données Excel