Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[vba] codice macro

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[vba] codice macro

Postdi expectancy.pm » 05/02/12 14:18

Ciao a tutti,
su un foglio ho impegnato x colonne dove x è un numero variabile che va da poche decine a tante centinaia.
Nella prima riga del foglio ho sempre un nome, io vorrei un codice macro (ma non sono in grado di realizzarlo) che per ogni colonna "piena" inserisca un'etichetta che abbia il nome presente nella prima riga e che occupi le righe da 2 a 1000.
Es. se nella colonnaA è presente il nome "prova", il codice dovrebbe inserire questo codice:

ActiveWorkbook.Names.Add Name:="prova", RefersToR1C1:= _
"=Foglio1!R2C1:R1000C1"
ActiveWorkbook.Names("prova").Comment = ""
e cosi via per tutte le colonne presenti.

Qualcuno riesce a darmi una mano?
Grazie, buona domenica a tutti.
expectancy.pm
Utente Junior
 
Post: 30
Iscritto il: 19/09/11 11:52

Sponsor
 

Re: [vba] codice macro

Postdi Anthony47 » 05/02/12 15:33

Per piena intendi che abbia tutte le celle 1:1000 piene, o che abbia qualche cella piena, o che abbia una intestazione valida in riga 1, o...?

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [vba] codice macro

Postdi expectancy.pm » 06/02/12 12:00

Piena vuol dire che ha l'intestazione alla prima riga.
Grazie ;)
expectancy.pm
Utente Junior
 
Post: 30
Iscritto il: 19/09/11 11:52

Re: [vba] codice macro

Postdi Anthony47 » 06/02/12 15:20

Codice: Seleziona tutto
Sub plpop()
For I = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
    If Cells(1, I) <> "" Then
        ActiveWorkbook.Names.Add Name:=Cells(1, I).Text, RefersToR1C1:= _
        Cells(2, I).Resize(999, 1)
        Cells(1, I).ClearComments
    End If
Next I
End Sub

Prova e fai sapere
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [vba] codice macro

Postdi expectancy.pm » 11/02/12 09:38

Scusate il ritardo....
Funziona perferttamente, grazie Anthony :)
Ciao
expectancy.pm
Utente Junior
 
Post: 30
Iscritto il: 19/09/11 11:52


Torna a Applicazioni Office Windows


Topic correlati a "[vba] codice macro":


Chi c’è in linea

Visitano il forum: Nessuno e 9 ospiti