Visual Basic para Aplicaciones - Buscar fil y buscar una col y seleccionar celda

Llevo tiempo tratando de automatizar un reporte en el cual tengo varios operadores (fila) y tengo las fechas de todo el mes (columna). Bueno tengo un Form dode con un listbox selecciona la fila del operador pero mi problema es que no he podido hacer que al buscar la fecha esta seleccione la celda de interseccion con la fila, espero se entienda.
ejemplo:
Fecha1 Fecha2 Fecha3 Fecha4
Operador 1

Operador 2

Operador 3 <----Selecionar esta celda buscando al operador y fecha

Operador 4

Sea quien me pueda ayudar creanme que les estaria etarnamente agradeciado .

No sean malos yo se que es algo facilisimo para ustedes...

no soy malo ni bueno, no es fácil ni difícil... simplemente no te entiendo

Saludos desde Baires, JuanC

Perdon espero no haberte molestado con el comentario, se que el apoyo que birndan es altruista, no tienen ninguna obligacion y de verdad se les agradece todo lo nos enseñan ...

Es solo que hay veces que me vuelve loco este proyecto (literalmente). Y solo buscaba desesperadadamente su apoyo.

Mi problema es que no se como seleccionar una celda para la cual previamente habia buscado un nombre ( una fila) y una columna una fecha(Columna).
Es decir cuando un trabajador "X" y un dia "Y" vaciar un contenido en la celda de interceccion (X,Y).

Espero esto si se alla entendido.

De antemano gracias y perdon si ofendi previamente
Saludos!!

es mucho pedir que publiques el código?
no sé cómo buscas ni qué pretendés hacer
quizá usando la propiedad Offset de Range esté la solución, pero
como no me queda claro el problema, menos voy a saber la respuesta!
también podría ser el uso de Cells(X, Y)... en fin... qué se yo!

Saludos desde Baires, JuanC

Disculpa solo que pensaba que era mas revuelto poniendo el codigo que tengo..

Mira con esta es la parte del menu (Form1) donde el usuario define la fecha

Public Sub UserForm_Activate()
Dim Fecha As Variant
With Sheets(5)
For Each item In Range("dias")
CmbFecha.AddItem item.Value
Next item
CmbFecha.Value = Fecha

End With
End Sub
______________________________________________________________
***********Y esto en otro form para que busque otro dato dado por el usuario en Cbox61, y busque lo almacenado en Fecha, para que al final me seleccione y active la celda xy y asi vaciar un dato de un textbox

Option Explicit
Dim x As Byte
Dim y As String

Private Sub CommandButton2_Click()
With Sheets(5)
Cells.Find(What:=Cbox61, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Cells.Row = x
Cells.Find(What:=Fecha, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Cells.Column = y
Cells(x, y).Activate
End With

End Sub

Nota : uso el With- endWith para aclarar la hoja debido a que hay varias hojas que contendran las mismas fechas.

Espero que esto este mas digerible

Mil disculpas por los malentendidos

si no entendí mal...

Private Sub CommandButton2_Click()
Dim rng As Range
Dim x&, y%
With Sheets(5)
Set rng = Cells.Find(What:=Cbox61, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not rng Is Nothing Then
x = rng.Row
If Not rng Is Nothing Then
Set rng = Cells.Find(What:=Fecha, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
y = rng.Column
Cells(x, y).Activate
End If
End If
End With
Set rng = Nothing
End Sub

Saludos desde Baires, JuanC

Muchisimas gracias Juan C. me fue de mucha ayuda