[Excel] Copiare Codice VBA

[By Sal]

Ciao a tutti, anche io ho bisogno di voi, qualcuno sa come fare, con una macro, od altro copiare il codice VBA.
Spiego meglio, ho del codice VBA nel foglio1, non nel modulo oppure userform, ho una macro che mi genera un nuovo foglio diciamo foglio4, vorrei copiare il codice dal foglio1 al foglio4 tremite macro o VBA, Qualche dritta????.
Ringrazio anticipatamente chi mi risponderà Salute By Sal

[Alexsandra]

Mica da ridere eh... Salvatore.
avevo provato qualcosa del genere in VB6, provo a vedere se il procedimento è supportato da VBA.

ciao

[By Sal]

Grazie alexandra per la risposta, lo sò che è un problema, forse dicendo quello che voglio fare, ci potrà essere qualche altra scappatoia che non mi sovviene, per il momento.
nel foglio2 ho questo codice:

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
ind1 = Target.Address(RowAbsolute:=False, ColumnAbsolute:=False)
If ind1 = "DA1" Then Range("A1").Select
If ind1 = "A35" Then Range("A1").Select
Application.EnableEvents = True
End Sub


Che cliccando su alcune celle mi porta in "A1" per visualizzare un risultato.
E' un file che devo distribuire è deve fare in automatico, la copia, perche i fogli li crea l'utilizzatore, ed il Codice è protetto.
Se fossi io ad utilizzarlo farei copia dati da un foglio ad un'altro e sarebbe finita lì. ma purtroppo devi creare cose che a volte esulano dal normale uso di Excel, anche perchè gli utilizzatori a volte creano problemi toccando cose che non dovrebbero.
Ti saluto per il momento, a rileggerci Salvatore.

[Anthony47]

Ciao Sal.
Domanda: ma se i fogli nuovi vengono creati come copia del foglio che ha all’ interno il codice, non e’ sufficiente? Al limite ti crei un foglio “Modello”, magari lo nascondi per non farlo toccare agli utenti, e poi lo duplichi con qualcosa tipo

Sheets("Modello").Select
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "NuovoNome”

Ciao,

[By Sal]

Ciao Antony47, Grazie Antony il codice funziona, io non facevo

ActiveSheet.Copy After:=Sheets(Sheets.Count)

ma sheets(x).copy, e quindi non mi riportava il codice VBA interno.
A Buon rendere alla prossima Ciao

[Anthony47]

Questo conferma che spesso guardare il problema da un altro punto di vista aiuta molto!

Ciao, alla prossima.