Copia e rinomina foglio

Question

Buon giorno.

Devo eseguire la copia di un foglio ed uso il seguente codice:

    On Error GoTo RigaErrore

    Dim Ns As Long

    For d = 4 To 60                                                                          ' Prima cella vuota

      If Range("BP" & d) = "" Then

        Ns = d - 4

        Exit For

      End If

    Next

    Worksheets("Sollecito").Activate                                                  ' attiva il foglio Sollecito

    Cells.Select                                                                                   ' seleziona il foglio Sollecito

    Selection.Copy

    Sheets.Add

    ActiveSheet.Paste                                                                        ' copia il foglio Sollecito

ma mi dà errore 1004 "errore nel metodo select  per la classe range. ".

 Se continuo  e rinomino il foglio appena copiato con il seguente codice:

   ActiveSheet.Name = "Sollecito_" & Ns                                                     ' rinomina il foglio da SOLLECITO a Foglio("Sollecito_" e ns)

    Worksheets("Sollecito_" & Ns).Range("A1").Select                                  ' attiva il foglio per cancellare i dati inutili

    Worksheets("Sollecito_" & Ns).Range("H1:AR160").Clear                        ' cancella scritta e il colore delle celle

    Sheets("Sollecito_" & Ns).Move After:=Sheets(Sheets.Count)                 ' sposta il foglio dopo il Foglio Sollecito

    Sheets("Sollecito_" & Ns).Tab.ColorIndex = 24                                        ' colore della linguetta del foglio: celeste chiaro

  Exit Sub

RigaErrore:

  MsgBox Err.Number & vbCrLf & Err.Description

mi da errore 1004 " non è possibile eseguire l'operazione in una cella unita".

Lo stesso codice lo uso in altri casi  simili e non mi da errore.

Capisco che sicuramente dipende la mio codice ma non riesco a capire dove

è l'errore per intervenire.

Per cortesia potete darmi qualche dritta.

Grazie.

Ciao.

Nunzio.

Answer 1

Ciao Norman.

Il foglio interessato ha collegamenti con altri tre fogli pieni di codice e mi riesce difficile

caricare il file.

Ho provato ad eliminare tutte le cartelle unite ma, il problema persiste.

Mi esegue la copia del foglio ma mi da sempre errore 1004 e mi blocca

il programma.

Credo che risolvere l'errore sia troppo arduo per le mie conoscenze.

Un grosso grazie per la tua disponibilità e alla prossima.

Ciao.

Nunzio.

Answer 2

Ciao Nunzio,

[...]

ma mi dà errore 1004 "errore nel metodo select  per la classe range. ".

[...]

mi da errore 1004 " non è possibile eseguire l'operazione in una cella unita".

Lo stesso codice lo uso in altri casi  simili e non mi da errore.Capisco che sicuramente dipende la mio codice ma non riesco a capire dove

è l'errore per intervenire.

Io no uso mai le celle unite  perchè creano molte problemi sia nella interfaccia utemte sia in VBA.

Ti chiederei gentilmente di caricare il file problematico, dopo averlo depurato dei dati sensibili, su un servizio di condivisione di file, per esempio Microsoft OneDrive o DropBox, e postare un link al file in una risposta qui. 

Per caricare il file su Microsoft OneDrive, vedi:

https://support.office.com/it-it/article/Condividere-file-e-cartelle-di-OneDrive-9fcc2f7d-de0c-4cec-93b0-a82024800c07

Nel caso di DropBox, vedi:

https://www.dropbox.com/it/help/topics/sharing_files_and_folders

===

Regards,

Norman