cerca.vert in matr.somma.prodotto

[marcoc]

buongiorno a tutti,
avrei bisogno una formula simile a quella in oggetto.

In pratica, selezionando impianto e mese in C14 e C15 del file, mi dovrebbe dare il valore della col.D, ma se seleziono "aaa" e "9", non trovando settembre, mi deve dare il valore corrispondente del primo mese precedente che trova (in questo caso luglio), come farebbe un cerca.vert con l'1 dopo l'ultimo ";".

A volte poi ci sono più righe con stesso impianto e stesso mese (es. maggio); in questo caso dovrebbe prendere la somma delle percentuali (in questo caso 11%).

ecco il file http://www.filedropper.com/cercavertinmatrsommaprodotto
sapete aiutarmi?

[Anthony47]

Ci sono troppe condizioni strane, cosi' invece di pensare a una formula vado su una funzione personalizzata, che corrisponde a questo codice:

Codice: Seleziona tutto

Function MarcoStra(ByRef myRan As Range, ByVal cMon As Long, ByVal cPlant As String) As Single
'Vedi http://www.pc-facile.com/forum/posting.php?mode=reply&f=26&t=111528
Dim I As Long, cSum As Single, xSum As Single, maMon As Long
'
For I = 1 To myRan.Rows.Count
    If UCase(myRan.Cells(I, 1)) = UCase(cPlant) And myRan.Cells(I, 2) = cMon Then
        xSum = xSum + myRan.Cells(I, 3)
    ElseIf UCase(myRan.Cells(I, 1)) = UCase(cPlant) And myRan.Cells(I, 2) < cMon Then
        If myRan.Cells(I, 2) = maMon Then
            cSum = cSum + myRan.Cells(I, 3)
        ElseIf myRan.Cells(I, 2) > maMon Then
            maMon = myRan.Cells(I, 2)
            cSum = myRan.Cells(I, 3)
        End If
    End If
Next I
If xSum > 0 Then MarcoStra = xSum Else If cSum > 0 Then MarcoStra = cSum
End Function

Metti il codice in un Modulo standard del vba, poi sul foglio potrai usare una formula del tipo:

Codice: Seleziona tutto

=MarcoStra(B2:D12;C15;C14)

Piu' in generale la sintassi di MarcoStra e':

Codice: Seleziona tutto

=MarcoStra(lAreaDeiDati;Mese;Impianto)

Il risultato va formattato come la natura dei dati impone

Prova e fai sapere...

[marcoc]

ciao Anthony,
grazie per la risposta, funziona perfettamente (come sempre).
Purtroppo non ho dimestichezza col visual basic, dovrei fare pratica in qualche modo; ora devo riuscire ad adattare la cosa al mio file originario, più complesso, che mi serve per lavoro.
Alla prossima!

[marcoc]

ciao Anthony, ci sto provando ma non ci sto riuscendo...
nel mio file ho "impianto" da A4 a A2000, "mese" da G4 a G2000 e "valore" da Q4 a Q2000.
"Selezione impianto" in A2 e "selezione mese" in E2.
Come posso adattare quanto scrivere nel modulo al mio caso reale?

[Anthony47]

Se la tabella e' a tre colonne non ci sono problemi.
Tieni presente che nella macro, nei vari "Cells(x,y), il riferimento y=1 punta alla colonna dell'Impianto; 2 al mese; 3 al valore da prelevare. Eventualmente adatta gli indici alla tua tabella

Ciao

[marcoc]

Fatto, ora tutto gira.
Grazie mille!