Pasar datos del txt a celda cuyas coordenadas son dos combobox

En este ejemplo supongo lo siguiente:

En la celda d2 tengo el valor que quiero copiar Ej. carne. En b2 tengo lo que se desea buscar en columna ej. juan. En c2 tengo los valores de la fila ej. martes.

Sub prueba() '

' prueba Macro '

' Acceso directo: CTRL+p '

Dim por, abc As String, y As Date, letra As String

abc = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

Range("d2").Copy

Range("B2").Select

por = Range("b2").Value

y = Range("c2").Value

Cells.Find(What:=por, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate

filita = ActiveCell.Row Cells.Find(What:=y, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate

columnita = ActiveCell.Column

letra = Mid(abc, columnita, 1)

Range(letra & Trim(Str(filita))).PasteSpecial

End Sub

Ojala me haya echo entender, si no puedes comunicarme cualquier duda.

Bye

hola estoy trabajando con userform.

1 combobox le pongo un valor ej "lunes" y en otro combobox2 le pongo un valar ej"Juan"quiero que al presionar un comandobuton me pase lo del texbox1 = "carne"

en el primer combo tengo los datos de la columna "A" y en el otro combo2 tengo los datos de la fila "1"

No se si me explico bien.

gracias

El código que te di mas arriba hace el trabajo que tu quieres, solo que en lugar de tener los valores de las celdas b2, c2 y d2, tendrías que usar los valores de tus combobox y de la celda donde guardaste cardex.

Pruébalo.

Bye

no hay forma reemplace range b2 por combobox1.setfocus ,range c2 por combobox2 ,y d2 por textbox1

esto que sigue me lo pone en rojo y me dice error de sintaxis le doy enter cambiando de linea y me tira distintos errores

Cells.Find(What:=por, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate
filita = ActiveCell.Row Cells.Find(What:=y, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate
columnita = ActiveCell.Column

evidentemente tengo que acomodar las cosas pero no tengo ni idea

perdón pero mucho no manejo el tema.

gracias