¿Alguien puede contestar mi post anterior?

El 14 de febrero realice un post con consultas que se que no son fáciles pero para gente que tiene idea de Excel no debería ser un problema. Le pedí respuestas a 5 expertos y nada. Veo que contestan preguntas más recientes en menos de un día y yo continuo sin respuestas. Por favor, si pueden responderme y ayudarme lo agradecería mucho. Necesito esto en serio. Desde ya, gracias.

Este es el post: Excel - Cómo realizar un libro de ventas diario y una lista de productos

2 Respuestas

Respuesta
1

H   o la:

En tu post anterior tienes 2 puntos. Vamos a revisar el primer punto. Envíame tu archivo y dime en cuál celda de cuál hoja vas a poner el código y en cuál celda de cuál hoja quieres que aparezca el nombre del código.

Después de terminar el punto 1, revisamos el punto 2.

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “Fernando Lisouski” y el título de esta pregunta.

Ya te contesté a tu mail. Gracias!

Te anexo el código para el formulario

Dim h1, h2, cargando
'
Private Sub ComboBox1_Change()
'Por.Dante Amor
    If cargando Then Exit Sub
    cargando = True
    ComboBox2 = ""
    If ComboBox1 = "" Or ComboBox1.ListIndex = -1 Then
        cargando = False
        Exit Sub
    End If
    ComboBox2 = ComboBox2.List(ComboBox1.ListIndex)
    fila = ComboBox1.ListIndex + 5
    cargando = False
End Sub
'
Private Sub ComboBox2_Change()
'Por.Dante Amor
    If cargando Then Exit Sub
    cargando = True
    ComboBox1 = ""
    If ComboBox2 = "" Or ComboBox2.ListIndex = -1 Then
        cargando = False
        Exit Sub
    End If
    ComboBox1 = ComboBox1.List(ComboBox2.ListIndex)
    cargando = False
    'If ComboBox1.ListIndex = -1 Then Exit Sub
End Sub
'
Private Sub CommandButton1_Click()
'Por.Dante Amor
    If ComboBox1 = "" Or ComboBox1.ListIndex = -1 Then
        MsgBox "Captura un código"
        Exit Sub
        ComboBox1.SetFocus
    End If
    If ComboBox2 = "" Or ComboBox2.ListIndex = -1 Then
        MsgBox "Captura un nombre"
        Exit Sub
        ComboBox2.SetFocus
    End If
    If TextBox1 = "" Or TextBox2 = "" Then
        MsgBox "completa todos los datos"
        Exit Sub
        TextBox1.SetFocus
    End If
    '
    u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1
    If u < 6 Then u = 6
    '
    h2.Cells(u, "B") = ComboBox1.Value
    h2.Cells(u, "C") = ComboBox2.Value
    h2.Cells(u, "D") = TextBox1.Value
    h2.Cells(u, "E") = TextBox2.Value
    MsgBox "Registro creado"
    ComboBox1 = ""
    ComboBox2 = ""
    TextBox1 = ""
    TextBox2 = ""
End Sub
'
Private Sub UserForm_Activate()
'Por.Dante Amor
    Set h1 = Sheets("Inventario")
    Set h2 = Sheets("Ventas Diarias")
    For i = 5 To h1.Range("G" & Rows.Count).End(xlUp).Row
        ComboBox1.AddItem h1.Cells(i, "G")
        ComboBox2.AddItem h1.Cells(i, "H")
    Next
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

¡Gracias! Excelente, es justo lo que quería! Está perfecto el formulario. Si en algún momento podes hablamos de la segunda parte.

Respuesta

Pásame tu correo y te envío un archivo que hice.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas