Salve a tutti,
ho preparato un foglio excel per delle spese riassuntive,mi sembra abbastanza funzionale,però con le mie attuali conoscenze non riesco a inserire una riga vuota con motivo diagonale ogni qualvolta inserisco una nuova data nella colonna A.
Mi spiego meglio:inserisco dei dati nella riga 4 , colonna A la data,B descrizione spesa,C uscita,e così via con colonne che calcolano i subtotali,le rimanenze ecc.
Il problema è che vorrei che tra ogni cambio di data (crescente o decrescente ma non uguale) nella colonna A,automaticamente si inserisse una riga vuota di una determinata altezza e con un dato motivo e colore,senza bordi left e right, in maniera tale che a ogni cambio data si creino visivamente dei blocchi.
Ho creato questa macro,che però non funziona completamente,nel senso che crea una riga con il motivo, ma non mi toglie i bordi laterali delle celle della riga selezionata.Oltre al fatto che non ho la minima idea di come fare affinchè venga eseguita quando inserisco la data:
Sub riga_altezza_colore()
'
' riga_altezza_colore Macro
ActiveSheet.Select
Selection.EntireRow.Insert
With Selection.Rows
.RowHeight = 10
End With
With Selection.EntireRow.Interior
.ColorIndex = 36
.Pattern = xlLightUp
.PatternColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlNone
End With
With Selection.EntireRow.Borders(xlEdgeRight)
.LineStyle = xlNone
End With
With Selection.EntireRow.Borders(xlEdgeBottom)
.Weight = xlThin
.LineStyle = xlContinuous
.ColorIndex = 1
End With
With Selection.EntireRow.Borders(xlEdgeTop)
.Weight = xlThin
.LineStyle = xlContinuous
.ColorIndex = 1
End With
End Sub
La guida di excel non mi aiuta,anzi mi confonde le idee.
Perchè ad esempio si creano i bordi top e bottom e non si cancellano i laterali?
A dire il vero ho provato a usare la formattazione condizionale, tipo SE($A6>$A5;(colore bordo x);(colore bordo y))
ma a parte il fatto che non mi sta bene l'estetica che viene fuori,preferirei implementare il discorso fatto prima.Come faccio a richiamare la macro?
Grazie assai assai a tutti