Macro VBA di Excel che genera errori quando viene eseguita da un foglio specifico

Ho una macro che autointerrompe un intervallo su un foglio e poi copia certe colonne su un altro foglio.

La macro funziona correttamente da tutti i fogli nella cartella di lavoro, a parte la pagina che in realtà voglio eseguirla utilizzando un pulsante.

Il codice è simile a questo

With newPlan.sheets("Requirements")
    newPlan.Sheets("Purchase_Orders").Range("A2:A" & lastRow).SpecialCells(xlCellTypeVisible).Copy
        .Range("H4").PasteSpecial xlPasteValues

    newPlan.Sheets("Purchase_Orders").Range("B2:B" & lastRow).SpecialCells(xlCellTypeVisible).Copy
        .Range("I4").PasteSpecial xlPasteValues

    newPlan.Sheets("Purchase_Orders").Range("J2:J" & lastRow).SpecialCells(xlCellTypeVisible).Copy
        .Range("J4").PasteSpecial xlPasteValues
End With

//Etc

Quando viene eseguito dal foglio che non funziona, verrà copiato e incollato il valore di fine intervallo e quindi verrà visualizzato un errore "Nessuna cella trovata" 1004 .

Posso commentare ogni riga e la prossima copia bene, quindi non ci sono errori di battitura. Può solo copiare la prima istanza per qualche motivo.

Qualcuno sa cosa potrebbe causare questo? Non c'è niente di speciale nel foglio che sto provando a lanciarlo, a parte il fatto che contiene solo pulsanti diversi per svolgere compiti diversi.

microsoft-excel vba macros

— Edward Hall
fonte

Il codice show è per il foglio di lavoro menzionato, "Purchase_Orders" e funzionerà solo per il foglio di lavoro, non per gli altri !! Se si desidera eseguire la macro su un altro foglio, è necessario sostituire il nome del foglio.

— Rajesh S

Spiacente, dovrei anche menzionare che questo è all'interno di un con cui fa riferimento a un altro foglio. quindi .Range ("A2: A" & amp; lastRow) .PasteSpecial non fa riferimento a Purchase_Orders. Grazie

— Edward Hall

è Con l'uso sbagliato di newPlan.sheets ("Requisiti") sostituire il nome del foglio con il nome della cartella di lavoro e utilizzare i fogli sottostanti!

— Rajesh S