Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

captura formularios

16/11/2009 - 16:18 por roro | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 6 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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

Preguntas similares

 

Busqueda sugerida :