Cerca vert con provincie non allieneate

[danibi60]

Ciao a tutti,

nel file che vi allego vorrei inserire nel foglio di lavoro denominato "Prezzi" le relative quotazioni poste del "foglio2".
Ho cercato di fare questo inserimento utilizzando il cerca vert , ma ahimè non avendo le provincie (che ho utilizzato come discriminante per la scelta) poste allo stesso modo tra di due non riesco, credete sia possibile?
Grazie
Daniby

https://www.dropbox.com/s/ynzzlr5uvb4uw ... .xlsx?dl=0

[Anthony47]

Si potrebbe fare anche con formule, ma preferisco proporre una User Function, corrispondente a questo codice:

Codice: Seleziona tutto

Function GimmePrezzo(ByVal Prov As String, ByRef PList As Range) As Variant
Dim mySplit, oArr(), tjTxt As String, J As Long
Dim ProPos As Long, lStr As String
'
ReDim oArr(1 To PList.Columns.Count - 1)
tjTxt = Application.WorksheetFunction.TextJoin("#", True, Application.WorksheetFunction.Index(PList, 0, 1))
ProPos = InStr(1, tjTxt, Split(Prov & " ", " ", , vbTextCompare)(0), vbTextCompare)
If ProPos > 0 Then
    lStr = Left(tjTxt, ProPos)
    rnum = Len(lStr) - Len(Replace(lStr, "#", "", , , vbTextCompare))
    For J = 2 To PList.Columns.Count
        oArr(J - 1) = PList.Cells(1 + rnum, J)
    Next J
    GimmePrezzo = oArr
Else
    GimmePrezzo = CVErr(xlErrNA)
    Exit Function
End If
End Function

Va inserito in un Modulo standard del vba, e così avrai a disposizione la funzione GimmePrezzo, che ti restituira' le colonne della riga corrispondente alla provincia; se indichi piu' province (es PE TE) verra' cercata solo la prima (quindi PE, nell'esempio)
Metti in U3 la formula

Codice: Seleziona tutto

=GimmePrezzo(T3;Foglio2!$B$3:$H$100)

poi copia verso il basso.
Nella formula data T3 rappresenta la provincia cercata
B3:H100 rappresenta l'area in cui cercare: la prima colonna contiene le province, le colonne restanti sono i prezzi. La formula restituisce tanti valori quanto larga e' l'area dei prezzi indicata.

Avendo tu Office365 la formula riempira' automaticamente le colonne adiacenti, indipendentemente dalle intestazioni (che quindi nel foglio Prezzi devono rispecchiare esattamente quelle di Foglio2).

Prova e fai sapere...

[danibi60]

Caspita Anthony, mai visto niente di simile... non conosceva questa User Function, tanto più che una volta creata nella VBA non la vedo nemmeno... come mai?
Ad ogni modo è perfetta! Grazie

Daniby

Ps
ora posto una formula che avevo creato in un file ma che non riesco fa girare con gli importi corretti...

[Anthony47]

non conosceva questa User Function

"Questa" user function l'abbiamo inventata adesso apposta per te; il concetto di "user function" e' invece abbastanza antico.

una volta creata nella VBA non la vedo nemmeno... come mai?

Immagino che fai riferimento al fatto che non la vedi tra le macro che puoi avviare; infatti non e' una macro, e' una "user function" e quindi la vedi nell'elenco delle Funzioni che puoi inserire nelle formule

Ciao