captura formularios

hola (...), ?????

honestamente... me quede en las mismas (NO "pude ver" de donde y a donde" va cada dato) :-((

en via de mientras, y con base en el codigo de tu consulta original, ve la forma de adaptar los "faltantes"...

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$B$29"
With Worksheets("base de datos")
If Application.CountIf(.Range("ag:ag"), Target) = 0 Then Exit Sub
With .Cells.Find(Target)
Range("b33") = .Value
Range("b34") = .Offset(, 1)
Range("b35") = .Offset(, 2)
' etc. etc. etc.
End With
End With
Case $A$42
' AQUI COMPLEMENTA CON INSTRUCCIONES SIMILARES AL Case ANTERIOR
End Select
End Sub

saludos,
hector.

__ OP __
> la celda es a40 con el codigo del producto a vender
> posteriormente la celda a41 desplegaria la descripcion del pruducto la celda a42 precio x unidad etc.
> los codigos de producto los tengo en otra hoja llamada base de datos donde tengo los clientes
>
> espero habe sido explicito

__ previos __
>>> si mira es una factura:
>>> la primer codigo capturo los datos de los clientes
>>> y nececito capturar los datos del producto que estoy vendiendo con solo dijitar el codigo del producto
>>>
>>> espero haberme explicado
>>
>> de este lado (del mensaje) siguen SIN poderse "ver" las respuestas (hojas, rangos, ...) a esto:
>> => >>>> - cuales otras celdas necesitas incluir como condiciones del evento _change ?
>>>> - en cual columna (y de cual hoja) habria que buscar que dato de cada condicion ?
>>>> - en donde habria que volcar esos datos, y etc. etc. etc. (?????)
>>>>
>>>> (hay cosas que no se pueden/deben adivinar/suponer si no estan claramente indicadas en las consultas)
>> ==


.
Eres un genio