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 de Dante Amor
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
