Rinominare le linguette dei fogli

Hai un problema con Excel?

Nuova discussione

Rinominare le linguette
di Adriano (utente non iscritto) data: 30/06/2009
Scenario: una lista di 10 nomi nelle celle a1:a10 del foglio1 e 15 fogli di lavoro nella cartella.
obbiettivo: rinominare le linguette dei fogli sulla base della lista del foglio1.
problema: al secondo ciclo di loop l’esecuzione del codice “sheets(i).name = selection” causa un errore di “run-time 1004”.
causa ipotizzata: copiare il contenuto di una cella del foglio1 nella linguetta di un altro foglio
come posso risolvere?!
il codice presenta altri problemi?!

Sub CicloDodo()

i = 1

  Do Until bln = True Or i = 5

  Worksheets(1).Activate
  Cells(i, 1).Select
    If Cells(i, 1) = "" Then
    bln = True
    Else
    Worksheets(1).Cells(i, 1).Select
    Selection.Copy
    Sheets(i).Activate
    Sheets(i).Name = Selection
   
    End If
  i = i + 1
  Loop
End Sub

di Albatros (utente non iscritto) data: 30/06/2009
Prova cosi
ciao
albatros

Sub CicloDodo()

i = 1

 Do Until bln = True Or i = 5

  Worksheets(1).Activate
  Cells(i, 1).Select
    If Cells(i, 1) = "" Then
    bln = True
    Exit Sub
    Else
    Worksheets(1).Cells(i, 1).Select
    Selection.Copy
    Sheets(i).Name = Selection
       End If
  i = i + 1
  Loop
End Sub

di R (utente non iscritto) data: 30/06/2009
Il range [a1:a10] conta 10 celle i fogli dal 2 al 15 sono 14 ...
domande:
il range e il numero di fogli sono numericamente uguali?
il range contiene nomi validi di foglio o bisogna verificarli?
il range contiene nomi doppi?
i nomi dei fogli possono essere coincidenti a uno o più nomi contenuti nel range? all'inizio della procedura?

saluti
r
Ringraziamenti
di Adriano data: 02/07/2009

ringrazio per il supporto ricevuto da entrambi gli utenti.

adriano

Vuoi Approfondire?