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
Leer las respuestas