Eliminazione nome celle

Hai un problema con Excel?

Nuova discussione

Eliminazione nome celle
di Roby73 (utente non iscritto) data: 25/05/2011
Ho provato più soluzioni ma non riesco ad elaborare un sub adeguata.
voglio tramite l'istruzione inputbox inserire il nome di una colonna, es. "j".
a questo punto eliminare tutti nomi delle celle di quella colonna(es. se la cella j5 è stata rinominata come "prova", eliminare il nome prova).

grazie

di Mrt (utente non iscritto) data: 26/05/2011
Ho allegato un file e qui sotto il codice relativo . guarda se funziona secondo le tue esigenze.

ciao

Sub Nomi()

Dim Message, Title, Default, Clm, nm As Name, MyName As Object, LetteraColonna, NroColonna

Message = "Scegliere Colonna"
Title = "Elimina Nomi Colonna"
Default = "A"
Clm = InputBox(Message, Title, Default)

       For Each nm In ActiveWorkbook.Names
     
Range(nm).Select

NroColonna = ActiveCell.Column
 
LetteraColonna = Left(Cells(1, NroColonna).Address(1, 0), InStr(1, Cells(1, NroColonna).Address(1, 0), "$") - 1)

Set MyName = Selection.Name

If LetteraColonna = Clm Then
MyName.Delete

       End If
  Next nm

End Sub

di Roby73 (utente non iscritto) data: 27/05/2011
Non funziona, mi da errore sulla funzione:
range (nm).select

grazie
ciao
di Mrt (utente non iscritto) data: 28/05/2011
Hai scaricato il file che ho allegato?
da me con excel 2007 funziona perfettamente
di Mrt (utente non iscritto) data: 28/05/2011
Il problema potrebbe essere che il range nm che cerca di selezionare deve essere nel foglio attivo.
quindi prima di range nm. select aggiungi:
sheets("foglio1").select (o il nome del tuo foglio di lavoro, nel mio programma è il foglio1)
ciao

Vuoi Approfondire?