con questa macro pensavo di riuscire a mettere una riga
al variare del mese, invece mi funziona solo x il primo mese
e non mi separa piu gli altri mesi
- Codice: Seleziona tutto
Sub ordino_saldo()
'--metto righe x mese---------------
ActiveSheet.Unprotect
For I = 4 To Cells(Rows.Count, 4).End(xlUp).Row + 10 '4 prima riga
If Format(Cells(I, 9), "mmm") <> Format(Cells(I - 1, 9), "mmm") Then
With Cells(I, 9).Resize(1, 6) ' 9 e'la colonna i
.Borders(xlEdgeTop).ColorIndex = 5 ' blu il colore della riga
.Borders(xlEdgeTop).Weight = xlMedium
.Borders(xlEdgeBottom).ColorIndex = 8
End With
Else
With Cells(I, 9).Resize(1, 6) 'quante righe avanti
.Borders(xlEdgeTop).ColorIndex = 1
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).ColorIndex = 1
End With
End If
Next I
'----sommo x mese--------------------------------
UR = Worksheets("reale").Range("I" & Rows.Count).End(xlUp).Row 'i le date
Worksheets("reale").Range("n4:n1000").ClearContents 'N dove metto totale
DataM = Month(Worksheets("reale").Range("I4").Value)
MDataM = Month(Worksheets("reale").Range("I4").Value)
Somma = 0
For RR = 4 To UR + 1
DataM = Month(Worksheets("reale").Range("I" & RR).Value)
If MDataM = DataM Then
Somma = Somma + Worksheets("reale").Range("k" & RR).Value 'J dove cercare x sommare
Else
Worksheets("reale").Range("N" & RR - 1).Value = Somma
MDataM = DataM
Somma = Worksheets("reale").Range("k" & RR).Value
End If
Next RR
'----metto in ordine cresc date-----------------------
Range("I4:L500").Select
Selection.Sort Key1:=Range("I4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("J1").Select
End Sub
io vorrei mettere una riga di separazione anche fra ottobre/ novembre
novembre / dicembre
che sbaglio ?
https://db.tt/UgsazQoY
tutto ok
