Moderatori: Anthony47, Flash30005
Anthony47 ha scritto:Questo e' un problema diverso che non avevi posto.
Hai un file di esempio da utilizzare?
Comunque io cambierei approccio:
-usando Filtro avanzato crei un elenco di tutte le date presenti nell' elenco
-con Somma.Se calcoli, nella colonna adiacente, la somma per data
-ordini l' elenco delle date
Ciao
Sub sumbydate2()
Dim LastA As Long, NextJ As Long, I As Long
'
Range("C:D").ClearContents
Range("C1:D1").Value = Array("Data", "Somma")
LastA = Cells(Rows.Count, "A").End(xlUp).Row
For I = 2 To LastA
If Application.WorksheetFunction.CountIf(Range("C:C"), Application.WorksheetFunction.Small(Range("A1:A" & LastA), I - 1)) = 0 Then
NextJ = Cells(Rows.Count, 3).End(xlUp).Row + 1
Cells(NextJ, 3) = Application.WorksheetFunction.Small(Range("A1:A" & LastA), I)
Cells(NextJ, 4).FormulaLocal = "=somma.se(A:A;C" & NextJ & ";B:B)" '<<1 Vedi testo
' Cells(NextJ, 4).Value = Evaluate("=sumif(A:A,C" & NextJ & ",B:B)") '<<2 Vedi testo
End If
Next I
End Sub
Cells(NextJ, 3) = Application.WorksheetFunction.Small(Range("A1:A" & LastA), I - 1) '<<Mancava il "-1"
' Cells(NextJ, 4).FormulaLocal = "=somma.se(A:A;C" & NextJ & ";B:B)" '<<1 Vedi testo
Cells(NextJ, 4).Value = Evaluate("=sumif(A:A,C" & NextJ & ",B:B)") '<<2 Vedi testo
Bisognerebbe sostituire la lettura dei dati da excel con una lettura dei dati direttamente acquisiti in vba.
Torna a Applicazioni Office Windows
Date CUP Web prenotabili su foglio excel Autore: aggittoriu |
Forum: Applicazioni Office Windows Risposte: 17 |
Conteggio date in giorni e contare le righe delle date Autore: ikwae |
Forum: Applicazioni Office Windows Risposte: 4 |
nome lavoratore in date specifiche (festivita) Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 12 |
Visitano il forum: Nessuno e 127 ospiti