Macro Para actualizar Dato de un Textbox

Para: Dante

Tengo un formulario en la que ingreso datos con un textbox que jala el valor de una celda de cierta columna el inconveniente que tengo es que al guardar nuevos datos a la hoja; en el textbox de mi formulario debería actualizarse automáticamente el nuevo registro.

En la primera imagen se muestra como es en el inicio de formulario.

En la segunda se muestra de como debería de quedar cuando se guarda un nuevo dato.

El codigo del boton Guardar es el siguiente.

Private Sub CommandButton1_Click()
Set h1 = Sheets("Etiquetadora")
If ComboBox1 = "" Or ComboBox2 = "" Or ComboBox3 = "" Or ComboBox4 = "" _
Or TextBox2 = "" Or TextBox3 = "" Then
MsgBox "No son datos suficientes", vbInformation, ""
ComboBox2.SetFocus
Else
Application.ScreenUpdating = False
u = h1.Range("B" & Rows.Count).End(xlUp).Row + 1
        If u < 6 Then u = 6
h1.Cells(u, 2) = ComboBox1
h1.Cells(u, 3) = Format(Now, "hh:mm AM/PM")
h1.Cells(u, 4) = ComboBox2
h1.Cells(u, 6) = ComboBox4
h1.Cells(u, 7) = ComboBox3
h1.Cells(u, 8) = TextBox2
h1.Cells(u, 9) = TextBox3
ComboBox1 = Empty
ComboBox2 = Empty
ComboBox3 = Empty
ComboBox4 = Empty
TextBox2 = Empty
TextBox3 = Empty
ComboBox2.SetFocus
MsgBox "Fin de Registro", vbInformation
End If
End Sub

La macro que muestra el dato en el textbox de la celda Columna "I".

Private Sub Userform_Activate()
    Set h1 = Sheets("Etiquetadora")
    u = h1.Range("I" & Rows.Count).End(xlUp).Row
    TextBox2 = h1.Range("I" & u)
    ComboBox1 = Date
End Sub

2 Respuestas

Respuesta
1 
Private Sub CommandButton1_Click()
Set h1 = Sheets("Etiquetadora")
If ComboBox1 = "" Or ComboBox2 = "" Or ComboBox3 = "" Or ComboBox4 = "" _
Or TextBox2 = "" Or TextBox3 = "" Then
MsgBox "No son datos suficientes", vbInformation, ""
ComboBox2.SetFocus
Else
Application.ScreenUpdating = False
u = h1.Range("B" & Rows.Count).End(xlUp).Row + 1
        If u < 6 Then u = 6
h1.Cells(u, 2) = ComboBox1
h1.Cells(u, 3) = Format(Now, "hh:mm AM/PM")
h1.Cells(u, 4) = ComboBox2
h1.Cells(u, 6) = ComboBox4
h1.Cells(u, 7) = ComboBox3
h1.Cells(u, 8) = TextBox2
h1.Cells(u, 9) = TextBox3
     ' limpia form y prepara para el siguiente registro
     'ComboBox1 = Empty
     ComboBox1 = Date
ComboBox2 = Empty
ComboBox3 = Empty
ComboBox4 = Empty
     'TextBox2 = Empty
     TextBox2 = TextBox3   '<<< pone el numero que estaba en el t3 al t2
     'TextBox3 = Empty
ComboBox2.SetFocus
MsgBox "Fin de Registro", vbInformation
End If
End Sub
Respuesta
1

Te anexo la macro actualizada.

Después de registrar en la hoja, en el combo1 te pongo la fecha, en el textbox2 te pongo lo que tienes en el textbox3, también te puse esto:

h1.Cells(u, 2) = CDate(ComboBox1)

Para que te ponga en la celda una fecha, ya que te estaba poniendo la fecha como un texto.

Private Sub CommandButton1_Click()
    Set h1 = Sheets("Etiquetadora")
    If ComboBox1 = "" Or ComboBox2 = "" Or ComboBox3 = "" Or _
       ComboBox4 = "" Or TextBox2 = "" Or TextBox3 = "" Then
        MsgBox "No son datos suficientes", vbInformation, ""
        ComboBox2.SetFocus
    Else
        Application.ScreenUpdating = False
        u = h1.Range("B" & Rows.Count).End(xlUp).Row + 1
        If u < 6 Then u = 6
        '
        h1.Cells(u, 2) = CDate(ComboBox1)
        h1.Cells(u, 3) = Format(Now, "hh:mm AM/PM")
        h1.Cells(u, 4) = ComboBox2
        h1.Cells(u, 6) = ComboBox4
        h1.Cells(u, 7) = ComboBox3
        h1.Cells(u, 8) = TextBox2
        h1.Cells(u, 9) = TextBox3
        '
        ComboBox1 = Date
        ComboBox2 = Empty
        ComboBox3 = Empty
        ComboBox4 = Empty
        TextBox2 = TextBox3
        TextBox3 = Empty
        ComboBox2.SetFocus
        Application.ScreenUpdating = True
        MsgBox "Fin de Registro", vbInformation
    End If
End Sub

Saludos.Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Corregir macro para que pegue los datos modificados en base de datos.

He tratado de buscarle el simple error a esta macro pero solo con el apoyo de expertos lograré la solución. Es una agenda de nombres y datos generales por municipio; uno en cada hoja. Con el CmdBtn1, ingresa perfectamente los datos y ordena por...
1 respuesta

Como guardar el valor de un textbox dependiendo de la selección de un combobox

Tengo un formulario y dentro de el tengo un textbox vacío y un combobox con varias opciones que toma de la fila 1. Se supone que en este formulario tengo que elegir una opción del combobox y en seguida agregarle una descripción, me gustaría saber...
2 respuestas

CheckBox

Tengo una base de datos creado en un userform con textbox, combobox, etc., toda la información que ingresa me lo manda a la hoja uno al darle insertar con un commandbutton, también con otro commandbutton con el nombre de buscar, encuentra la...
2 respuestas

Copiar datos a hojas desde formulario con 2 paginas

Tengo un UserForm que quiero utilizar como formulario, para introducir datos a dos hojas distintas (Hoja1 y Hoja2); de tal manera que los datos que introduzca en los distintos TextBox y ComboBox, de la "Page1" del UserForm se copien en la Hoja1; y...
1 respuesta

Codigo VBA para realizar búsqueda de datos de una hoja de excel en un formulario, seleccionando de un combobox?

Todo expertos, mi duda es la siguiente: Tengo 1 hoja de excel con nombres de personas en la primera columna y en 11 columnas mas todos los datos correspondientes al nombre de la persona, he hecho una "Pagina inicio" que permite abrir un formulario en...
2 respuestas

¿Como enlazar Combobox dependientes y unir con Textbox al finalizar filtro?

Soy bastante novato y estoy aprendiendo sobre este lenguaje. Tengo un formulario en cual tengo 6 combobox los cuales están enlazados entre sí, es decir, cuando selecciono algún valor en el primer combobox este condiciona el segundo y así...
1 respuesta

Pegar del UserForm dos veces un número en la misma hoja seleccionada... Para Dante Amor

Me proporcionaste una macro tal como te la pedí, quedó perfecta, pero también te comenté que yo quería hacer la siguiente parte sobre esta misma, pero me falló, ahora apelo a tu buena voluntad de apoyarme con esta partecita… Una vez hecha la...
1 respuesta

Impedir registros repetidos considerando 2 columnas

En una Hoja Excel, a modo de base de datos, utilizo un UserForm para ingresar estos datos. Nos centraremos en las columnas"A" y "B" que es donde me surgen los problemas. En la Columna "A" van números de registro y en la "B", la fecha en la que se...
1 respuesta

Formulario con 2 combobox y guardar datos en diferente libro

Un mega favor esperando que me puedas ayudar Tengo un formulario con 2 combobox los cuales el primero Con el siguiente código Private Sub UserForm_Activate() 'Captura datos y guarda en empresa ws_Count = ActiveWorkbook.Worksheets.Count For i = 1 To...
1 respuesta