Problema en registro por formulario

[MarianoCruz]

Hola buenas tardes:

Estoy realizando un formulario para el registro de ventas diarias de mis productos, el proceso es el siguiente:

1. En un cuadro de busqueda ingreso cualquier parte del texo de mi codigo. y por medio de una lista me muestra las coicidencias a lo escrito,

2. selecciono la descripción que requiero y al seleccionarlo se muestra en un combox.

3. ingreso cantidad y precio,

4. Con el boton de registrar se ingresa en otra lista el codigo, la descripcion, cantidad, precio e importe. asi con los diferentes productos .

el problema que me encontre es que si mi codigo buscado  contiene una letra al registralo con el boton "registrar" en la lista no me muestra la descripcion, sin embargo si solo son numeros si me da la descripcion.

El formulario lo tengo en la hoja de Alta

Espero me puedan ayudar con esta parte.

 

Muchas gracias

Mariano

 

Consul Formulario registro.xlsm

[JSDJSD]

Si nadie contesta ante, mañana te lo miro

[MarianoCruz]

hace 11 minutos , JSDJSD dijo:

Si nadie contesta ante, mañana te lo miro

Muchas gracias!

[JSDJSD]

[JSDJSD]

Cambia el código de tu botón Registrar por este modificado

Private Sub CommandButton1_Click()
    ' Declaramos variables
    Dim DescripSelec As Variant
    Dim Codigos As Variant
    Dim strcodig2 As String
    Dim intCantidad As Double
    Dim doublePUnitario As Double
    Dim intTotal As Double
    Dim Codigo As Variant
    
    ' Capturamos el valor del ComboBox1
    Codigo = Me.ComboBox1.Value
    
    ' En caso de error
    On Error Resume Next
    
    ' Inicializamos búsqueda de código
    With Application.WorksheetFunction
        ' Buscar directamente sin conversión
        Codigos = .VLookup(Codigo, PRODUCTOS.Range("A:C"), 1, 0)
        
        ' Si no se encuentra, mostrar "No encontrado"
        If IsError(Codigos) Then
            Codigos = "No encontrado"
        End If
        
        ' Buscar descripción (mismo proceso que el código)
        DescripSelec = .VLookup(Codigo, PRODUCTOS.Range("A:C"), 2, 0)
        
        If IsError(DescripSelec) Then
            DescripSelec = "No encontrado"
        End If
        
        ' Captura cantidad
        intCantidad = Me.TextBox1.Value
        
        ' Llenamos el ListBox
        Me.ListBox1.AddItem Codigo
        ListBox1.List(ListBox1.ListCount - 1, 1) = DescripSelec
        ListBox1.List(ListBox1.ListCount - 1, 2) = .Text(intCantidad, "#,##0")
        
        ' Precio unitario
        doublePUnitario = Me.TextBox2.Value
        ListBox1.List(ListBox1.ListCount - 1, 3) = .Text(doublePUnitario, "$#,##0.00;-$#,##0.00")
        
        ' Total
        intTotal = doublePUnitario * intCantidad
        ListBox1.List(ListBox1.ListCount - 1, 4) = .Text(intTotal, "$#,##0.00;-$#,##0.00")
        
        ' Actualización de etiquetas
        Me.lblProductos = .Text(CInt(Me.lblProductos) + CInt(intCantidad), "#,##0")
        Me.lblTotal = .Text(CDbl(Me.lblTotal) + CDbl(intTotal), "$#,##0.00;-$#,##0.00")
        
        ' Restablecer valores
        Me.ComboBox1.Value = ""
        Me.ComboBox1.SetFocus
        
        Me.txtConsec = Me.TextBox4.Value
        Me.TextBox5.Value = Format(CDate(TextBox5.Text), "dd/mm/yyyy")
        Me.txtFecha = Me.TextBox5.Value
    End With
End Sub

 

[MarianoCruz]

hace 3 horas, JSDJSD dijo:

Cambia el código de tu botón Registrar por este modificado

Private Sub CommandButton1_Click()
    ' Declaramos variables
    Dim DescripSelec As Variant
    Dim Codigos As Variant
    Dim strcodig2 As String
    Dim intCantidad As Double
    Dim doublePUnitario As Double
    Dim intTotal As Double
    Dim Codigo As Variant
    
    ' Capturamos el valor del ComboBox1
    Codigo = Me.ComboBox1.Value
    
    ' En caso de error
    On Error Resume Next
    
    ' Inicializamos búsqueda de código
    With Application.WorksheetFunction
        ' Buscar directamente sin conversión
        Codigos = .VLookup(Codigo, PRODUCTOS.Range("A:C"), 1, 0)
        
        ' Si no se encuentra, mostrar "No encontrado"
        If IsError(Codigos) Then
            Codigos = "No encontrado"
        End If
        
        ' Buscar descripción (mismo proceso que el código)
        DescripSelec = .VLookup(Codigo, PRODUCTOS.Range("A:C"), 2, 0)
        
        If IsError(DescripSelec) Then
            DescripSelec = "No encontrado"
        End If
        
        ' Captura cantidad
        intCantidad = Me.TextBox1.Value
        
        ' Llenamos el ListBox
        Me.ListBox1.AddItem Codigo
        ListBox1.List(ListBox1.ListCount - 1, 1) = DescripSelec
        ListBox1.List(ListBox1.ListCount - 1, 2) = .Text(intCantidad, "#,##0")
        
        ' Precio unitario
        doublePUnitario = Me.TextBox2.Value
        ListBox1.List(ListBox1.ListCount - 1, 3) = .Text(doublePUnitario, "$#,##0.00;-$#,##0.00")
        
        ' Total
        intTotal = doublePUnitario * intCantidad
        ListBox1.List(ListBox1.ListCount - 1, 4) = .Text(intTotal, "$#,##0.00;-$#,##0.00")
        
        ' Actualización de etiquetas
        Me.lblProductos = .Text(CInt(Me.lblProductos) + CInt(intCantidad), "#,##0")
        Me.lblTotal = .Text(CDbl(Me.lblTotal) + CDbl(intTotal), "$#,##0.00;-$#,##0.00")
        
        ' Restablecer valores
        Me.ComboBox1.Value = ""
        Me.ComboBox1.SetFocus
        
        Me.txtConsec = Me.TextBox4.Value
        Me.TextBox5.Value = Format(CDate(TextBox5.Text), "dd/mm/yyyy")
        Me.txtFecha = Me.TextBox5.Value
    End With
End Sub

 

Hola JSDJSD:

Muchas gracias, ha quedado perfercto, dare una revisada a cada proceso.

Quedo excelente.

 

Saludos Cordiales

Mariano