[excel] Funzioni di ricerca e riferimento

[biancocandido55]

Un cordiale saluto a tutti ,
ragazzi ho traslato le tavole di Rutilio su un foglio,
dopo aver fatto una serie di calcoli, non riesco a venirne a capo con alcune funzioni di ricerca e riferimento:
come da
I valori in rosso fuori tabella
A = cella L4 (numero tavola), nella 1ª riga della tabella R2 a EC14
e
B = cella P3 (mese, nella colonna R da R3:R14
nelle celle da J9 a O9 ci sono i 6 risultati (momentaneamente inseriti a mano) che dovrebbero comparire con le funzioni che mi occorrono.
Ringrazio anticipatamente,
un abbraccio
bianco55

[Anthony47]

Sulla base dell' immagine postata, in J9:

Codice: Seleziona tutto

=INDICE($R2:$AQ14;CONFRONTA($P$3;$R2:$R14;0);CONFRONTA($L$4;$R2:$AQ2;0)-6+RIF.COLONNA(A1))

Poi copia verso dx.
Nelle formule metterai al posto di $AQ la vera colonna di fine della tua tabella.

Ciao

[Flash30005]

Prova questa macro nel modulo

Codice: Seleziona tutto

Sub RicercaV()
UC = Range("IV4").End(xlToLeft).Column
NVR = Range("P3").Value
NVC = Range("L4").Value
If NVC > Int((UC - 19) / 6) Then
MsgBox "Inserisci un valore di tabella esistente"
GoTo esci
End If
For RR = 4 To 15
If NVR = Range("R" & RR).Value Then Riga = RR
Next RR
For VR = 1 To 6
Cells(10, 9 + VR).Value = Cells(Riga, 19 + VR + (NVC - 1) * 6).Value
Next VR
esci:
End Sub

E questo codice nel Foglio dei dati

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
CheckArea = "L4, P3"
If Not Application.Intersect(Target, Range(CheckArea)) Is Nothing Then
Call RicercaV
End If
End Sub

Al variare di uno dei due valori (L4 o P3) otterrai il risultato voluto

ciao

[biancocandido55]

Ciao Anthony, ciao Flash,
un grazie 100.000 per le 2 soluzioni,
come sempre, un abbraccio
bianco55