Modificar datos de una tabla con un ListBox
He configurado mi formulario, para modificar datos de una tabla con un ListBox, pero después de configurar todos los parámetros no logro que los datos de la tabla se vean en el formulario. Por más que reviso el código no logro encontrar el error.
Al ser un código muy amplio no me deja adjuntarlo, por lo que colocare fotos.
Lo primero es que tengo un formulario que voy rellenado los campos y con una macro muy sencilla me guardan los datos en otra hoja llamada Datos.
Necesito crear un formulario a través de un boten de búsqueda, me busque un dato y que lo edite o elimine. He configurado el siguiente formulario, pero me da error en todo.
Espero me podáis ayudar. Me urge bastante y ya no se que más hacer.
2 Respuestas
Parece que no quedó claro el tema del nombre de la hoja Datos.
Las hojas pueden ser llamadas de alguna de estas 4 maneras.
Aquí se intenta obtener la última fila de la hoja Datos, que en tu caso según la imagen es Hoja4(Datos). Por lo tanto no se requiere la declaración de ninguna variable.
UltimaFila = Sheets("Datos"). Cells(Rows. Count, 1).End(xlUp). Row
UltimaFila = Hoja4.Cells(Rows.Count, 1).End(xlUp).Row
Dim hojax As Worksheet
Set hojax = Sheets("Datos")
UltimaFila = hojax.Cells(Rows.Count, 1).End(xlUp).Row
Dim hojita As String
hojita = "Datos"
UltimaFila = Sheets(hojita). Cells(Rows. Count, 1).End(xlUp). Row
Utilizá uno de los 4 modos... Y luego me comentás.
PD) No olvides que estabas haciendo mención a un control TextBox como si fuese un Listbox. No se si esto quedó resuelto. Lo comenté en la consulta anterior que aún sigue abierta.
Disculpa, pero en este espacio es siempre difícil llegar claramente.
'Ejemplo 1:
UltimaFila = Sheets("Datos"). Cells(Rows. Count, 1).End(xlUp). Row
'
'Ejemplo 2:
UltimaFila = Hoja4.Cells(Rows.Count, 1).End(xlUp).Row
'
'Ejemplo 3:
Dim hojax As Worksheet
Set hojax = Sheets("Datos")
UltimaFila = hojax.Cells(Rows.Count, 1).End(xlUp).Row
'
'Ejemplo 4:
Dim hojita As String
hojita = "Datos"
UltimaFila = Sheets(hojita). Cells(Rows. Count, 1).End(xlUp). RowUtilizá uno de los 4 ejemplos... pero no hagas una combinación entre ellos ;)
Sdos!
[ Ho la Franceiri Feliz
En el futuro, para poner el código en el foro, ayudaría si pones el código con el icono para Insertar código fuente:
Y en la ventana que se abre pegas tu código:
Visita:
Cursos de Excel y Macros - YouTube
Vídeo recomendado:
Consejos para desarrollar macros . curso de excel, curso de macros, excel, macros - YouTube