Aggiorna istruzione

Hai un problema con Excel?

Nuova discussione

Aggiorna istruzione
di Fausto (utente non iscritto) data: 25/08/2010
Ciao a tutti e grazie per l'aiuto fondamentale.
le macro che ieri mi avete postato funzionanno a meraviglia, le ho combinate in modo che:
1) il foglio si rinomini in funzione del contenuto inserito in una cella specificata.
2) il foglio si apre in modalità anteprima di stampa.
l'ultima cosa che chiedo é sapere se é possibile che l'istruzione contenuta nella macro anteprima di stampa, precisamente nel punto: sheets("foglio 1"), ovverro "foglio 1" corrisponda al nome del foglio e che sia ggiorni in automatico al variare del contenuto inserito nella cella specificata. (attualmente lo devo fare a mano ogni volta che cambio contenuto)
rigrazie in anticipo

di Franco_44 (utente non iscritto) data: 25/08/2010
Ciao fausto
sarebbe meglio tu proseguissi sul post iniziale anziché aprire sempre un post nuovo, altrimenti diventa difficile capire a cosa fai riferimento; comunque vediamo di ricapitolare (se ho capito bene):
tu vuoi che una macro rinomini automaticamente il/i foglio/i in base al dato presente in una determinata cella (es a3); quindi aprire in anteprima di stampa il foglio su cui hai modificato il dato in detta cella. se è così prova a questo modo: anziché nel singolo foglio vai su thisworkbook seleziona sheetchange e metti la macro sotto:

in questo modo in qualsiasi foglio ti trovi, se cambi il nome in a3 automaticamente si rinomina il foglio e ti si apre in anteprima di stampa
unica condizione è che la cella di riferimento per cambiare il nome al foglio deve essere la stessa (es a3) in tutti i fogli
fai sapere se è ciò che volevi oppure intendi qualcosaltro

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("A3")) Is Nothing Then
Exit Sub
Else
Dim Nomef As String
ActiveSheet.Select
ActiveSheet.Unprotect
Nomef = Range("A3")
ActiveSheet.Name = Nomef
End If
ActiveWindow.SelectedSheets.PrintPreview
End Sub

di Fausto (utente non iscritto) data: 25/08/2010
Era proprio quello che cercavo! grazie mille!!!!
di Franco_44 (utente non iscritto) data: 25/08/2010
Bene sono contento per te e grazie per il riscontro
alla prossima

Vuoi Approfondire?