captura formularios

16/11/2009 - 16:18 por roro | Informe spam
hola todos:
tengo el siguiete codigo para capturar los datos de una factura:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$29" Then Exit Sub
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
End Sub
el codigo trabaja exelente mi pregunta es la siguiente
necesitoel la misma hoja que por medio del codigodando el nombre se pongan
los datos de material que estoy vendiendo por ejemplo: descripcion del
producto pecio unidad de medida
etc como cuando capturo los datos del cliente

como siempre dando lata y agradeciendo su
valiosa ayuda

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
16/11/2009 - 19:53 | Informe spam
hola (...), ?????

en el codigo que expones, el evento (_change) esta condicionado solo para la celda [B29]
el dato que pongas ahi, se busca en la columna [AG] de la hoja "base de datos" y... (etc. etc. etc.)
(en el caso de otra celda, se ejecuta el "Exit Sub" y nada mas se lleva a efectos)

- 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)

saludos,
hector.

__ OP __
tengo el siguiete codigo para capturar los datos de una factura:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$29" Then Exit Sub
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
End Sub
el codigo trabaja exelente mi pregunta es la siguiente
necesitoel la misma hoja que por medio del codigodando el nombre se pongan
los datos de material que estoy vendiendo por ejemplo: descripcion del producto
pecio unidad de medida etc como cuando capturo los datos del cliente ...
Respuesta Responder a este mensaje
#2 roro
17/11/2009 - 15:11 | Informe spam
"Héctor Miguel" escribió:

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

en el codigo que expones, el evento (_change) esta condicionado solo para la celda [B29]
el dato que pongas ahi, se busca en la columna [AG] de la hoja "base de datos" y... (etc. etc. etc.)
(en el caso de otra celda, se ejecuta el "Exit Sub" y nada mas se lleva a efectos)

- 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)

saludos,
hector.



.
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
saludos
Respuesta Responder a este mensaje
#3 Héctor Miguel
18/11/2009 - 05:06 | Informe spam
hola (...), ?????

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)




=
saludos,
hector.
Respuesta Responder a este mensaje
#4 roro
18/11/2009 - 16:30 | Informe spam
"Héctor Miguel" escribió:

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

> 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)
=>
saludos,
hector.


.
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
gracias...
Respuesta Responder a este mensaje
#5 Héctor Miguel
18/11/2009 - 21:48 | Informe spam
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)




==
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida