Boa tarde!!
Atrasado mais para deixar ainda mais confuso, veja também...
=ÍNDICE($A$1:$L$18;1;CORRESP(G22;DESLOC($A$1:$L$1;CORRESP(VERDADEIRO;CONT.SE(DESLOC($A$1;LIN($1:$18);0);E22)*CONT.SE(DESLOC($C$1:$L$1;LIN($1:$18);0);G22)>0;0);0);0))
Ctrl + Shift + Enter
Versão VBA
Option Explicit
Sub FindTime()
Dim W_nos, V_nos, T, N As Long
Dim Fok As Range
Dim Wro As Variant
Do While Range("F22").Offset(N, -1) <> ""
W_nos = WorksheetFunction.CountIf(Range("A:A"), Range("F22").Offset(N, -1).Value)
Wro = 1
For T = 1 To W_nos
Wro = Range("A:A").Find(Range("F22").Offset(N, -1).Value, Range("A" & Wro)).Row
Set Fok = Range("B" & Wro & ":L" & Wro).Find(Range("F22").Offset(N, 1).Value)
If Not Fok Is Nothing Then
Range("F22").Offset(N, 0) = Cells(1, Fok.Column)
End If
Next T
N = N + 1
Loop
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 11/04/2012 11:55 am