Pasar datos de un formulario a hoja excel

Pregunta para Dante Amor

Necesitaría pasar los datos de un formulario creado para añadir registros donde he insertado textbox y combobox, a la hoja de cálculo, donde se corresponden con las columnas que muestran los valores. Es decir con el formulario añado los registros que luego se visualizan en la hoja "Titulos"

1 respuesta

Respuesta
1

Te anexo el código:

'Por. Dante Amor
    If TextBox1 = "" Then cad = cad & "CODIGO. "
    If TextBox2 = "" Then cad = cad & "TITULO. "
    'If TextBox3 = "" Then cad = cad & "TOMO-VOLUMEN. "
    If TextBox4 = "" Then cad = cad & "AUTOR. "
    If TextBox5 = "" Then cad = cad & "EDITORIAL. "
    If TextBox6 = "" Then cad = cad & "AÑO. "
    If ComboBox1 = "" Then cad = cad & "IDIOMA. "
    If ComboBox2 = "" Then cad = cad & "TIPO-DOCUMENTOS. "
    If ComboBox3 = "" Then cad = cad & "CATEGORIA."
    If cad <> "" Then
        MsgBox "Faltan los siguientes datos: " & cad
        Exit Sub
    End If
    '
    Set h1 = Sheets("TITULOS")
    u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
    For i = 1 To 6
        h1.Cells(u, i) = Controls("TextBox" & i)
    Next
    j = 7
    For i = 1 To 3
        h1.Cells(u, j) = Controls("Combobox" & i)
        j = j + 1
    Next
    MsgBox "Registro guardado"
    For i = 1 To 6
        Controls("TextBox" & i) = ""
    Next
    For i = 1 To 3
        Controls("Combobox" & i) = ""
    Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas