Creare macro

Hai un problema con Excel?

Nuova discussione

Creare macro . . . .
di Monta (utente non iscritto) data: 25/06/2012
Ciao a tutti

sono nuovo del forum, ho bisogno di un aiuto per creare una macro.

ho un foglio excel chiamato, per esempio, mamma
in questo foglio ho messo un commandbutton che ho chiamato avanti (ancora senza codice) che mi servirà per andare avanti con i fogli, mi spiego meglio:

nel foglio originale mamma ho creato una macro che mi copia n fogli uguali quanti ne voglio che verranno denominati automaticamente dal sistema excel :
mamma (2)
mamma (3)
mamma (4) . . . . e così via

ora nel bottone del primo foglio chiamato avanti vorrei una macro [del tipo: sheets("mamma (2)").select ] che mi passasse al foglio successivo ma senza naturalmente il n. (2)

premetto che io non so a priori quanti fogli dovrò copiare.
quindi
dal foglio mamma (2) dovrà passare al ("mamma(3).select
dal foglio mamma (3) dovrà passare al ("mamma(4).select
e così via fino all'infinito (per dire . . .)

allego una copia del file di prova

spero sia fattibile
grazie a tutti
ciao
monta
Creare macro . . . .
di Monta (utente non iscritto) data: 25/06/2012
Ciao a tutti

sono nuovo del forum, ho bisogno di un aiuto per creare una macro.

ho un foglio excel chiamato, per esempio, mamma
in questo foglio ho messo un commandbutton che ho chiamato avanti (ancora senza codice) che mi servirà per andare avanti con i fogli, mi spiego meglio:

nel foglio originale mamma ho creato una macro che mi copia n fogli uguali quanti ne voglio che verranno denominati automaticamente dal sistema excel :
mamma (2)
mamma (3)
mamma (4) . . . . e così via

ora nel bottone del primo foglio chiamato avanti vorrei una macro [del tipo: sheets("mamma (2)").select ] che mi passasse al foglio successivo ma senza naturalmente il n. (2)

premetto che io non so a priori quanti fogli dovrò copiare.
quindi
dal foglio mamma (2) dovrà passare al ("mamma(3).select
dal foglio mamma (3) dovrà passare al ("mamma(4).select
e così via fino all'infinito (per dire . . .)

allego una copia del file di prova

spero sia fattibile
grazie a tutti
ciao
monta
di Harrybosch data: 25/06/2012
Ciao monta
c'è una cosa che dovresti chiarire e poi ti scrivo il codice giusto: dopo che hai creato la copia del foglio origine (il numero è variabile) vuoi passare al successivo tramite il comando avanti.
la domanda è questa:
- nel nuovo foglio creato ci devono ancora essere i pulsanti? perchè altrimenti come fai a passare nuovamente al foglio successivo, cioè da mamma2 a mamma3?
- oppure non vuoi i pulsanti e semplicemente si apre vuoi solo che si apre il foglio successivo? (in questo caso l'istruzione sarebbe semplice: activesheet.next.select)
- oppure ancora, non vuoi i pulsanti, e vuoi che una volta premuto il tasto avanti passi in rassegna tutti i fogli creati fermandosi sull'ultimo creato?

se fai sapere poi posto il codice
ciao, vanni
di Sal (utente non iscritto) data: 26/06/2012
Ciao harrybosh
grazie per avermi risposto

si vorrei che il pulsante avanti rimanga per poter passare al foglio successivo e così via per tutti i fogli che verranno creati.

grazie mille
ciao
monta

di Harrybosch data: 26/06/2012
Ciao monta
ho modificato leggermente il tuo codice per la copiatura del foglio: con quello che ti ho messo puoi copiare il foglio origine da qualsiasi altro e verranno aggiunti sempre alla fine.
poi trovi il codice per l'avanzamento dei fogli: una volta che hai creato nuovi fogli ritorni sul foglio origine; con il pulsante avanti ti sposti sempre sul foglio successivo fino all'ultimo, dove si ferma.

se ho capito male o ti servono ulteriori chiarimenti fammi pure sapere.
ti allego anche il file testato.

ciao, vanni

Private Sub CommandButton1_Click()
Dim num

 num = InputBox("Scrivi il numero dei Fogli da copiare !")
 If num = "" Then Exit Sub
    For n = 1 To num
        Sheets("MAMMA").Copy After:=Sheets(Sheets.Count)
     Next n

Sheets("MAMMA").Select

End Sub




Private Sub CommandButton2_Click()

On Error Resume Next
    'oppure ActiveSheet.Previous.Select per il precedente
     ActiveSheet.Next.Select
Resume

End Sub

di Monta (utente non iscritto) data: 26/06/2012
Ciao

funziona tutto benissimo
è quello che volevo
grazie mille
ciao
monta

di Monta (utente non iscritto) data: 26/06/2012
Ciao vanni

ringraziandoti nuovamente per prima, sei stato un mito, avrei ancora bisogno di unaltro aiutino,

naturalmente il file di prova che ti ho mandato l'ho fatto apposta per l'aiuto, l'ho estrapolato da un lavoro che ho fatto inmprecedenza con iìun centinaio di fogli già aggiunti da me (mamma1 - mamma2 . . . mamman )

ora vorrei fare che con un solo foglio matrice mi creo solo i fogli che mi servono.
naturalmente i nomi dei fogli sono inventati.

nel foglio mamma avevo messo una limitazione e cioé:
se la cella a1 = "" allora accesso negato
se la cella a1 = 1 allora accesso consentito

con una "private sub worksheet_activate()" - vedi sotto - e che puoi vedere nel nuovo file che ti allego.

ora il problema è che i fogli creati in copia riportano sempre la limitazione verso mamma, e io vorrei che mi cambiasse in automatico il comando finale di destinazione
sheets("mamma (2)").activate
sheets("mamma (3)").activate e così via

spero di essere stato chiaro

ho bisogno di avere questa limitazione comunque!

spero sia fattibile e non troppo complicato

grazie ciao
monta

Private Sub Worksheet_Activate()
    
     If Range("A1").Value = 0 Then
        Range("A60").Select
        Sheets("HOME").Select
        MsgBox "Accesso negato ! ", vbInformation, "Messaggio"
        Exit Sub
     End If
     If Range("A1").Value = 1 Then
        Sheets("MAMMA").Activate
        Exit Sub
     End If
End Sub

di Monta (utente non iscritto) data: 26/06/2012
A proposito

il nuovo file l'ho chiamato: file di prova

ciao
di Harrybosch data: 26/06/2012
Ciao monta
dovresti sciogliermi alcuni dubbi.

primo dubbio: se metti la limitazione 0 nel foglio mamma l'accesso è negato; il problema è che così facendo non riesci più ad accedere a mamma!
a patto di non far in modo di inserire il valore nella cella a1 di mamma agendo da un altro foglio, tipo il foglio home
a te interessa la limitazione su ogni foglio, ma si creerebbe lo stesso problema (una volta messo 0 non si accederebbe a quel specifico foglio)
come gestisci questa situazione?

un'altra cosa: se il valore invece è 1 hai inserito come istruzione l'attivazione del foglio mamma; così facendo i tasti avanti e indietro funzioneranno solo una frazione di secondo perché poi verrai riportato (utlima istruzione) sul foglio mamma rendendolo quindi inutili i suddetti tasti
qual è lo scopo nel mettere 1? restare sull'ultimo foglio creato? tornare al foglio mamma?

se riesci a spiegarmi meglio magari evito di contorcermi la testa, grazie…

dimmi se intendi realizzare questo:
-vorresti avere un foglio origine che non venga mai modificato, perché è quello che funge da modello (nel tuo caso il foglio mamma)
(volendo lo si può "nascondere" in modo che non sia mai visibile)
-da questo foglio di origine partono tutte le copie: ogni copia può essere modificata e in base al valore di a1 potrà essere accessibile o meno
(è da chiarire però come ritornare al foglio una volta che hai negato l'accesso!)

aspetto ulteriori info,
ciao, vanni
di Monta (utente non iscritto) data: 26/06/2012
Ciao

1) la cella a1 è variabile in base a condizioni di un'altra cella del foglio "home"
se nel foglio home ho una determinata condizione la cella a1 di mamma è = 0 altrimenti = 1

2)proprio per questo avevo chiesto aiuto se si poteva cambiare automaticamente nei fogli creati la destinazione di avanti
comunque nel frattempo ho risolto il problema cambiando l'istruzione: invece dell'attivazione del foglio mamma, ho inserito la selezione di una cella a caso vuota non utilizzata (esempio a100)

3) si vorrei avere un foglio origine che non venga modificato, pertanto quando copio i fogli, mi deve andare in automatico nel primo foglio copiato (mamma (2)),

4) la condizione che regola l'accessibilità ai fogli è una semplicissima cella del primo foglio che io andro' a compilare,

mi spiego meglio:

appena apro il file chiede di inserire in una stringa un codice di accesso al programma, se metto il cod. esatto tutti i fogli saranno accessibili, se il n. del cod. è inesatto, allora tutti i fogli saranno inaccessibili.
questo è un programma complesso e lungo che ho finito già da un pò di mesi, funziona bene, lo voglio solo modificare e renderlo più snello e leggero.
come è fatto ora io ho inserito (per esempio) 20 fogli già uguali, in ognuno c'è il bottone avanti che va di foglio in foglio, se l'esigenza dell'utente ne richiede per esempio 7 fogli, gli altri 13 rimangono lì vuoti e inutilizzati, invece se l'utente ha biosogno di riempire 21 fogli, allora avevo creatao nel 20mo copia foglio, ecc...
ora vorrei che il programma vuoto, invece di avere già 20 fogli di mamma, 20 fogli di papa, 20 fogli di fratello ecc... abbia solo un foglio matrice per uno e in base alla'esigenza dell'utente a priori si andranno a creare solo i fogli che servono (4 mamma - 2 papa e così via)

spero di essere stato chiaro

naturalmente i nomi mamma papa fratello sono inventati,
i fogli del programma riguardano soggeti fisici - immobili di possesso - beni mobili di possesso - e altre informazioni ancora.

grazie per l'aiuto e ciao
monta
di Monta (utente non iscritto) data: 26/06/2012
Scusa se aprofitto ancora della tua barvura ed espeerienza (premetto che io sono autodidatta, non ho compiuto studi su vba in ambito excel)

si riesce a fare una cosa del genere?:

premesso che nel foglio matrice mamma ho inserito ubottone avanti e un bottone indietro dove ho inserito le macro che mi hai fatto tu.

quando io dichiaro all'inizio: 4 fogli mamma da creare, far si che nel primo (mamma(2)) non mi compaia il bottone indietro ma solo quello di avanti, e nell'ultimo foglio (mamma (5)) non mi compaia il bottone avanti ma solo quello di indietro, altrimenti se uno clicca avanti mi va il altri fogli successivi che non centrano nulla con mamma.
lo so, forse è un po complicato, ma non stare a romperti la testa, fallo solo se per te è una cosa semplice e fattibile.
grazie ancora
ciao
monta
di Harrybosch data: 27/06/2012
Ciao monta
non preoccuparti, mi interessa proseguire perchè la tua è una richiesta "particolare", che mi piace; l'unica cosa è che devi delucidarmi ulteriormente su un punto perchè la mia testa è un pò di coccio...

nel frattempo ho comunqe allegato una parte della tua richesta, ma non scrivo qua le macro perchè la cosa è diventata piuttosto lunghina... scaricati il file "file di prova-2" così puoi "studiare" e modificare le macro a seconda delle tue esigenze.
in sostanza il codice fa questo:
- nel file c'è solo il foglio home: con il pulsante si richiedono quanti fogli mamma si vogliono avere
- se la risposta è "annulla" oppure 0 non succede nulla, rimane aperto il solo foglio home
- se si sceglie un solo foglio, verrà creato il foglio mamma 2 che sarà senza tasti (essendo l'unico)
- se vengono scelti 2 o più fogli allora nel foglio mamma 2, cioè il primo, verrà inserito solo il tasto "avanti", nell'ultimo foglio creato verrà inserito solo il tasto "indietro", e in tutti i fogli intermedi verranno inseriti entrambi i tasti
- anche se si aggiungono ulteriori fogli i pulsanti verranno impostati come sopra detto
-nota: il foglio mamma è il foglio di origine per tutti, quello che resterà sempre nascosto in quanto non deve essere modificato essendo lo "stampo" per la creazione di eventuali nuovi fogli vuoti

(almeno questo mi sembra di aver capito dalla tua richiesta)

il codice è così impostato:
- all'interno del foglio home ho inserito la macro che chiede quanti fogli si vogliono e che quindi li crea
- invece le altre macro le ho inserite in due moduli; quando la scelta iniziale dei fogli è maggiore a 1 viene infatti richiamata la macro "inserisci_pulsanti": questa macro crea i pulsanti su tutti i fogli creati (nel sistema sopra detto)
- agli stessi pulsanti ho assegnato il richiamo alle macro "avanti" e "indietro" che permettono di scorrere tutti i fogli

la parte che non ho ancora capito è quella relativa al consenso dei fogli, il valore 0 o 1 nella cella a1:
dicevi che la cella a1 di questi fogli assume un valore che si inserisce nel foglio home (sempre accessibile).
quello che mi interessa sapere è questo:
- la cella a1 di tutti i fogli creati assume il valore di un'unica cella del foglio home? quindi, in questo caso saranno o tutti bloccati o tutti sbloccati
- oppure la cella a1 dei vari fogli creati assume ognuno il valore di celle diverse del foglio home? quindi, ce ne potranno essere alcuni bloccati e alcuni liberi

se mi delucidi questa parte ti risolvo anche questo, nel frattempo dimmi se il file allegato era quello che intendevi

ciao, vanni

di Monta (utente non iscritto) data: 27/06/2012
Ciao vanni

sei un grande, è quello che volevo !

per quanto riaguarda il tuo dubbio, si è come hai detto:

tutti i fogli dipendono dal valore della cella a1 di home
quindi se la cella a1 non soddisfa la condizione, tutti i fogli e quindi tutto il programma è bloccato
se la cella a1 di home soddisfa la condizione, allora i fogli sono tutti sbloccati.

altra cosa, come faccio a salvare il tuo file nel computer, se lo apro me lo apre nel web, non riesco a salvarlo sul computer, non ci sono i comandi excel . . bhooo !

vorrei saper programmare col vba come te, io al confronto sono uno scolaretto della 1^ elementare, anzi dell'asilo.
hai studiato informatica? ci sono dei corsi per principianti?
quel poco che so fare l'ho imparato da me, chiedendo un po nei forum un po cercando in internet.

visto che ci siamo, altra cosa . . .

una volta creati i fogli, devo trasmettere tutti i dati dei fogli in un foglio riepilogativo per riga: esempio:
riga 1 del foglio riepilogo = dati mamma2
riga 2 del foglio riepilogo = dati mamma3
riga 3 del foglio riepilogo = dati mamma4
e così via

io ho cercato di farlo (vedi sotto) il problema è che al posto di worksheet("mamma2).range . . .

devo metterci mamma(n)

cioè, quando si creano i fogli, la macro deve prendere le celle di quel foglio in cui sto lavorando (mamma2 - mamma3 ...)

premetto che ho fatto un pulsante chiamato invia dati

ti mando il file di prova che ho fatto, perchè io prima di mettere le macro nel miom lavoro, mi faccio delle prove in piccoli file appositi:

ciao e ancora grazie
monta

Sub Macro2()
'
Worksheets("Riepilogo").Activate
  Worksheets("Riepilogo").Range("A1:D1").Select
    numriga = ActiveSheet.UsedRange.Rows.Count + 1

    
Worksheets("RIEPILOGO").Range("A" & numriga).Select
Selection = Worksheets("MAMMA2").Range("A1").Text
Worksheets("riepilogo").Range("B" & numriga).Select
Selection = Worksheets("mamma2").Range("A2").Text
Worksheets("Riepilogo").Range("C" & numriga).Select
Selection = Worksheets("mamma2").Range("A3").Text


Sheets("mamma2").Select


'
End Sub

di Monta (utente non iscritto) data: 27/06/2012
Scusa, per quanto riguarda il salvataggio del file, ce l'ho fatto, bastava fare con tasto dx mouse e cliccare salva oggetto con nome

ciao
monta
di Monta (utente non iscritto) data: 27/06/2012
Per il fatto della condizione in home che blocca o sblocca il file, bhe nopn scervellarti, quello io l'ho già risolto con una emplice formula excel:

in cella a1 del foglio matrice mamma:

=se((home!a1)=0;"x";"y")

così tutti i fogli creati dopohanno la stessa fomula

se tu ora mi imposti lo stesso lavoro con le macro, mi incasini la vita, non so se poi riesco a trasportare il tutto nel mio file.
anche perchè il file che sto cercando di modificare è colmpesso e lungo, ci sono ecine di fogli, dove non tutti sono copiati da altri fogli, e la limitazione del blocco/sblocco ce l'hanno tutti i fogli del file.
ciao e grazie
monta
di Monta (utente non iscritto) data: 27/06/2012
Sigh !

mi da errore !

io ho modificato il tuo file secondo le mie esigenze, ma mi fa casino

io ho l'esigenza di copiare più fogli, non solo mamma
esempio:
mamma
babbo
fratello

ho ricopiato le macro su tutti i pulsanti e mi fa un gran casino

guarda te il file che ti riallego
ciao grazie
monta

di Harrybosch data: 28/06/2012
Ciao monta
questa risposta è relativa alla tua richiesta di spostamento dei dati da un foglio all'altro.

la tua ultima macro era parecchio (passami il termine) primitiva seppur funzionante, ma ha un grosso limite: sia che venga messa in un foglio sia che venga inserita in un modulo, i riferimenti ai fogli non combiano e quindi non riusciresti a spostare i dati corretti se non correggendola su ogni foglio! così facendo non avrebbe senso; non preoccuparti: io all'inizio scrivevo pappardelle di codici che erano risolvibili in 3 righe! tra l'altro la risoluzione non è nemmeno semplicissima se sei alle prime armi: infatti nel file che hai allegato vuoi inviare i dati di una colonna in un altro foglio posizionandoli però su una riga; è molto più semplice copiare colonna su colonna o riga su riga.

quindi diciamo che il tuo codice si può migliorare molto, soprattutto imparando l'utilizzo dei cicli (si evitano tutte le ripetizioni manuali ed è per questo che si utilizza il vba...); posso confidarti che anch'io non ho fatto nessuna scuola di informatica (mi mangio le mani) ma sono completamente autodidatta: per questo non sono esente da errori e, anzi, probabilmente alcuni codici che scrivo potrebbero essere "rifiniti" un pò meglio; però mastico parecchio l'informatica perchè mi diletto anche in altri programmi.
a mio avviso il sistema migliore per imparare il vba, oltre ad una necessaria infarinatura di base con un buon libro, è quello di continuare a scrivere macro, in principio con la propria testa per poi confrontarle con quelle proposte da altre persone. in questo modo si impara a raffinare la propria stesura fino a quando non si raggiunge un proprio metodo: dico "proprio", perchè spesso uno stesso problema è risolvibile attraverso diverse strade; sta poi a ognuno seguire quella che ritiene migliore o che riesce a gestire meglio.
pertanto, sperando di farti cosa gradita, nel file che ti mando ("invio dati-ok"), ho messo a confronto il tuo codice con quello che ti ho scritto, spiegandoti le differenze (nel vba). qua sotto lo riporto semplicemente.

nei prossimi giorni verifico il tuo nuovo problema relativo all'inserimento di diversi fogli origine.
a presto,
ciao vanni

da inserire in un modulo.
I dati che sono presenti nella colonna a fino alla cella 4 verranno copiati nella prima riga libera del foglio riepilogo; dopo la copiatura si torna al foglio di invio

Sub Inviodati_su_riga()

f = ActiveSheet.Name

For i = 1 To 4
Sheets("Riepilogo").Cells(65536, i) = Cells(i, 1)
Next

Sheets("Riepilogo").Select
nriga = 2
While Cells(nriga, 1) <> ""
nriga = nriga + 1
Wend

Rows(65536).Cut
Cells(nriga, 1).Select
ActiveSheet.Paste

Sheets(f).Select
End Sub

di Monta (utente non iscritto) data: 28/06/2012
Ciao vanni

ma infatti il preblema era prorpio quello, che nei fogli copiati mi rimaneva (nel modulo) l'indicazione del primo foglio, comunque ho risolto modificando il mio modulo (seppur primitivo) con degli accorgimenti presi dal tuo modulo (infatti come sempre mi sei stato di gra aiuto),
ti spiego, il tuo modulo è ottimo ma copia la 1 colonna nelle righe del foglio riepilogo.
io avevo l'esigenza di copiare celle sparse nel foglio, allora come ho detto ho modificato il mio con aggiunte prese dal tuo, ho fatto un esempio per farti vedere, è simile ai fogli del mio lavoro.
il file l'ho chiamato: inviare testo cella in altro foglio_prova.
ciao grazie, mi sei stato ancora una volta utilissimo.
di Harrybosch data: 01/07/2012
Ciao monta
hai fatto bene a modificare il tuo codice inserendo qualcosa che ti è tornato utile. l'importante è che il progetto funzioni, il resto non conta; l'estetica è una cosa che viene con il tempo.

tornado alla questione dei pulsanti ho sistemato le cose, ma... come potrai notare tu stesso le macro che ho inserito sono diventate piuttosto complesse.
del resto, il codice deve fare questo lavoro:
- creare nuovi fogli a seconda della tipologia richiesta: mamma, papà o fratello
- quando si creano i nuovi fogli la tipologia deve restare unita (tutti i mamma consecutivi e così via anche per gli altri)
- quindi, se la tipologia è già stata creata, gli eventuali nuovi fogli devono mettersi in fondo ai fogli della stessa tipologia
- tutte le volte che si creano nuovi fogli i tasti di spostamento (avanti e indietro) devono essere aggiornati: sul primo ci deve essere solo "avanti" e sull'ultimo solo "indietro"; solo nel caso in cui ci fosse un solo foglio della tipologia i tasti non verrebbero inseriti

insomma, bisognava prevedere tutte le possibilità, in particolare per l'inserimento dei nuovi fogli al posto giusto; non è stato facilissimo, ma dopo alcune sistemazioni, il codice è venuto bene: esegue a dovere il lavoro richiesto.
ora, l'aggiunta di ulteriori nuove tipologie (oltre a mamma, papa e fratello) dovrebbe risultarti più facile.

inoltre ti ho aggiunto anche una piccola macro per il conteggio dei fogli inseriti a seconda della tipologia, se può tornarti utile.

prova a testarlo sul foglio che ho allegato: "inserimento tipologie"

fammi sapere,
ciao, vanni
di Monta (utente non iscritto) data: 02/07/2012
Ciao vanni

il tuo file è perfetto
funziona tutto a dovere

rinuncio a modificare il mio lavoro iniziale! sigh!

ogni qualvolta che trasporto le macro tue o altre nel mio lavoro, non funziona mai bene niente, mi da un sacco di errori, non mi riconosce parte delle sub (evidenziando di giallo molte righe)
esempio: non mi riconosce il comando button e altre righe ancora!

ti spiego: io ho inserito le sub nel mio lavoro modificando, naturalmente; i nomi mamma - papa - fratello con i nomi dei miei fogli,
i fogli che devo copiare si chiamano semplicemente 3 4 5 . . .
la riga di copia foglio dove tu hai scritto copy "mamma" after sheet "mamma " & . . . . & . . . mi si evidenzia in giallo

io non ho fatto altro che ricopiare le macro e cambiare là dove c'è scritto mamma fratello . . . in 3 4 5 . . .

insomma, basta, ci rinuncio, mi tengo il file così come l'ho fatto inizialmente.

comunque tante grazie ancora, ho imparato davvero tante cose da te.
ciao
monta

p.s. se ti mando il mio file (è molto lungo e pesante (5-6 mb) e ti spiego quali sono i fogli da copiare e inserire i bottoni, tu te la sentiresti di modificarmelo!
poi i dati da un foglio all'altro mme li cambio io.
senza impegno naturalmente, a tempo libero, visto che da quanto ho capito, tu ti diverti e per te è una sfida con te stesso !

ciao grazie ancora
monta
di Harrybosch data: 02/07/2012
Ciao monta
se vuoi mandami il file che provo a dargli un'occhiata..
qua non vedo l'allegato; eventualmente mandamelo per mail:
vannilonardi@yahoo.it

ciao

Vuoi Approfondire?