inserire riga copia dati

Hai un problema con Excel?

Nuova discussione

inserire riga + copia dati
di farfarello (utente non iscritto) data: 06/04/2015 11:00:02
ho un file excel con 14 fogli.Il primo foglio si chiama SCORES gli altri sono nominati da "cognome 1" a " cognome 13"
il nome dei fogli "cognome" varia dal valore della cella A1.
il problema che non riesco a risolvere...
nel foglio "SCORES" ho inserito un bottone che azzera il valore di alcune celle( vedi codice VBA )
ora mi piacerebbe che lo stesso bottone
prima inserisse una nuova riga su ogni foglio "cognome" tra le righe 24 e 25 ,
di seguito copiasse i dati nelle nuove rihe create come segue
i valori della C1 + Range("E18:U18") nel foglio "cognome 1" partendo dalla cella C25
i valori della C1 + Range("E21:U21") nel foglio "cognome 2" partendo dalla cella C25
ecc..ecc.
ed infine che azzerasse come da codice

chiedo troppo?

Sub Cancella()
Range("E6:U6").ClearContents
Range("E9:U9").ClearContents
Range("E12:U12").ClearContents
Range("E15:U15").ClearContents
Range("E18:U18").ClearContents
Range("E21:U21").ClearContents
Range("E24:U24").ClearContents
Range("E24:U24").ClearContents
Range("E27:U27").ClearContents
Range("E30:U30").ClearContents
Range("E33:U33").ClearContents
Range("E36:U36").ClearContents
Range("E39:U39").ClearContents
Range("E42:U42").ClearContents
End Sub

di lepat (utente non iscritto) data: 06/04/2015 11:34:34
puoi allegare un file di esempio ? chiedo troppo?
file
di farfarello (utente non iscritto) data: 07/04/2015 19:17:34
perdonami lepat ma non sono pratico dei forum
ed assolutamente scarso di VBA (quindi chiedo a tutti di perdonarmi se non adopererò i termini giusti) .
La macro sub cancella (che ti ho allegato)
già funziona e devo implementarla.
Per semplificare,sapresti aiutarmi per scrivere una macro da associare ad un bottone, che inserisca
una nuova riga tra le righe 24 e 25 di tutti i 13 fogli che vanno da "cognome 1" a "cognome 13"
sbadato
di farfarello (utente non iscritto) data: 07/04/2015 19:20:57
perdonami lepat ti allego file

in attesa
di farfarello (utente non iscritto) data: 09/04/2015 19:22:57
in attesa di un qualsiasi consiglio ,mi sto arrangiando...
ho aggiunto sul foglio score un ulteriore bottone a cui ho collegato la seguente macro
sembra che si adatti al mio caso...ora dovro sviluppare la macro per tutti i fogli,
ma già ho in mente ulteriori sviluppi ed avrò bisogno di qualsiasi consiglio

Sub copia()
Sheets("SCORES").Select
Range("E6:U6").Select
Selection.Copy
Sheets(2).Select
Range("C6500").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

risolto
di farfarello (utente non iscritto) data: 18/04/2015 14:55:15
Alla fine non era difficile,
nonostante nessuno mi abbia dato alcuno consiglio,sono riuscito a risolvere tutti e 3 i problemi che vi avevo proposto.
ora tutto funziona a meraviglia, e sono pronto a sviluppare ulteriormente il mio " programmino ",
in ogni caso vi ringrazio,ed è proprio vero ciò che disse il Manzoni...
" un bel silenzio non fu mai scritto "

Vuoi Approfondire?