Macro excel help me

Hai un problema con Excel?

Nuova discussione

Macro excel help me
di Donny08 data: 04/05/2010
Premetto sono una capra a fare macro

ho bisogno di cambiare le righe di excel in colori diversi. di preciso in 3 colori esempio bianco-giallo-verde in modo sequenziale. e inseguito una volta copiato i dati nelle righe possa copiare in se al colore che m serve.
ho trovato un macro che dovrebbe essere simile a ciò che mi serve( macro righe pari e dispari) a me serve su tre righe invece. potete aiutari... sono veramente in pallone. grazie a tutti
di Ricky53 (utente non iscritto) data: 04/05/2010
Ciao,
benvenuto nel forum.

dovresti essere più chiaro.
che macro hai a disposizione?

ciao da ricky53
di Donny08 (utente non iscritto) data: 05/05/2010
Ho una macro che mi colora le celle pare di un colore e le celle dispare di un'altro. l' ho travato su google si chiama utility_cellformat.xla

io invece ho bisono di 3 colori ossia 1cella bianco, 2°cella gialla, 3°cella verde. e poi ricomincia da capo bianco,giallo,verde e cosi via.
grazie mille
di Fede (utente non iscritto) data: 05/05/2010
Scusate l'intromissione ma mi chiedevo.....è proprio necessaria una macro? se ho ben capito l'esigenza è semplicemente quella di colorare in modo alternato (a tre a tre) tutte le righe di un foglio excel.
ti basterebbe colorare le prime 3 righe del file dei colori che ti servono e poi:

- selezioni le prime 3 righe e utilizzi il "copia".
- selezioni la quarta riga.
- premi contemporaneamente "ctrl + maiuscola (per capirci, il tasto con simbolo una freccia verticale posizionato sopra ctrl) + freccia in basso" e ti verrà selezionato tutto il foglio.
- clicchi con il tasto destro del mouse sulla parte selezionata e utilizzi la funzione "incolla speciale" - "formati" - "ok"

può andare oppure ho capito male il quesito?
ciao

fede

Colorare righe
di Locate (utente non iscritto) data: 05/05/2010
Ciao
ti posto la macro per fare questo lavoro
metti i colori che piu' ti piacciono
adesso colora solo le prime 12 righe ma basta che cambi il numero del ciclo for indicato a tuo piacimento
ciao da locate

Sub colora()
Dim riga
For i = 1 To 12 ''mettere quante righe vuoi colorare
Cells(i, 1).Select
riga = i Mod 3
Select Case riga
Case Is = 1
ActiveCell.EntireRow.Interior.ColorIndex = 0 ''colori da 0 a 56
Case Is = 2
ActiveCell.EntireRow.Interior.ColorIndex = 6
Case Is = 0
ActiveCell.EntireRow.Interior.ColorIndex = 4
End Select
Next i
Cells(1, 1).Select
End Sub

Vuoi Approfondire?