Formularios de entrada de datos en Excel: Modificar, entrar y eliminar registros
Para Dante Amor. Hola. Lamentablemente no dispongo de otro medio para almacenar información (al menos de momento) que un Excell que acumulará casi 40 columnas. Por tanto creo necesario el encontrar un sistema más intuitivo de introducir datos, tanto para rellenar filas vacías como para completar o eliminar otras ya existentes. He estado trabajando en un formulario que se componga a su vez de otros cuatro: Un formulario "Consola" que tenga los botones "buscar", "Agregar" y "salir", enlazará con un formulario "Búsqueda" y "agregar_datos" respectivamente. El "búsqueda" tendrá un combobox que debería permitir mostrar unos determinado campos que yo elegiría (Expediente, Referencia, Denominación, por ejemplo) y que habilitará la búsqueda en esos campos de la tabla a través de introducir la palabra clave en un textbox del mismo formulario. Tras introducir la palabra clave en el text box, utilizando un botón "filtrar" los registros que contengan la palabra clave aparecerían en un listbox inferior (debería mostrar unas cuatro columnas predeterminadas con sus cencabezados) de forma que yo pueda elegir uno de ellos y así modificarlo (botón "modificar") o "eliminarlo" (botón eliminar). Si elijo "modificar", se abrirá un cuarto formulario "modificar" donde aparecerían unos campos preestablecidos (posiblemente unos 20 campos) que se rellenarían.
Sr. Amor, le he mandado mi código por correo porque no he sido capaz de que al pegarlo aquí me generara la pregunta. Hechos los formularios no consigo que aparezcan datos en el combobox, por lo que no puedo filtrar y no aparece ningún dato en el listbox... En fin, que no funciona nada (bueno el de agregar registros si me funcionó).
Le agradecería ayuda para chequear el código y que me proponga las correcciones que vd considere. Igualmente aceptaría con mucho agrado cualquier propuesta que según su experto punto de vista y aunque no se ciña a lo que yo describo, pueda ser una alternativa ala idea que sugiero.
2 Respuestas
H o l a:
En un correo nuevo me envías tu archivo y tu formulario.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Jose L. García” y el título de esta pregunta.
Hola Dante, ya te he enviado el correo tal y como me pediste.
Gracias por tu interés y quedo en espera de tus noticias.
Un saludo
Subo este hilo. Por favor Sr. Dante Amor ¿alguna novedad al respecto?
Te anexo el código para carga los encabezados
Private Sub UserForm_Activate()
Set h1 = Sheets("REGISTRO")
For i = 1 To 4
'Me.Controls("Label" & i) = Cells(1, i).Value
cmbEncabezado.AddItem h1.Cells(1, i)
Next i
'
'[A1].Select
With Me
.ListBox1.ColumnHeads = True
.ListBox1.ColumnCount = 4
.ListBox1.ColumnWidths = "30 pt;55 pt;50 pt;55 pt"
'.cmbEncabezado.List = Application.Transpose(ActiveCell.CurrentRegion.Resize(1).Value)
'.cmbEncabezado.ListStyle = fmListStyleOption
End With
End SubEl evento es UserForm, aunque le hayas cambiado el nombre al userform a Busqueda, siempre debe ser UserForm
Con mucho gusto te ayudo con todas tus peticiones.
Valora esta respuesta y crea una nueva pregunta en el tema de microsoft Excel. En el desarrollo de la pregunta escribe: "para Dante Amor". Ahí me describes con detalle lo que necesitas.
Sal u dos