Formularios en Excel
¿Es posible en excel crear un formulario que al llenar celdas específicas me alimente automáticamente una base de datos que se tenga en otra hoja? Y de ser posible, ¿cómo se hace?
1 Respuesta
Respuesta de fejoal
2
En MS Excel, cuando dices "formularios", puedes estar refiriéndote a tres cosas distintas:
- Un UserForm creado con Visual basic.
- La herramienta "Formulario" de la Opción "Datos"
- Una hoja simple donde se ingresan los datos directamente en la celda
Asumo que lo que tienes es esta última opción, es decir una especie de máscara de entrada, de forma tal que al ingresar los datos en ella se transfieran a la segunda hoja *agregando las líneas una después de la otra*.
Para que alimente automáticamente -como solicitas- usaremos el evento Change, controlando que la celda final sea D2 (pero puedes cambiarlo si esa no fuera la celda final)
Vale decir que ingresas datos en A2, B2, C2 y al llegar a D2 esos datos se transfieren a la otra hoja dejando tales celdas disponbles para continuar la carga del registro siguiente.
Para que funcione, activa el editor de Visual Basic (presiona Alt+F11) y busca la hoja donde quieres que esto ocurra (donde harás la carga de datos). Da doble click sobre ella.
Copia el código siguiente y pégalo en el panel desplegado a la derecha de su Editor de Visual Basic:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(False, False) = "D2" Then FormCarga
End Sub
Este código controla que estuvieras en la celda D2 y, si así fuera, dispara la macro FormCarga.
Inserta un módulo nuevo y allí pegarás el código siguiente:
Sub FormCarga()
OrigSheet = ActiveSheet.Name
Range("A2:D2").Copy
'================== Modificar de acuerdo a tus datos reales
HojaDest = "Hoja2"
Firstcell = "A1"
'==================
Sheets(HojaDest).Select
Range(Firstcell).Select
LCol = Selection.Column
LCell = Selection.Row
LCell = LCell + Selection.CurrentRegion.Rows.Count
Cells(LCell, LCol).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Cells(LCell, LCol).Select
Sheets(OrigSheet).Select
Range("A2:D2").ClearContents
Range("A2").Select
End Sub
(Hay dos variables entre las líneas de ==== que deberás reemplazar por tus datos propios. Corresponden a la hoja donde se deben volcar los datos y la primer celda superior de la derecha donde comienza tu tabla)
Esta macro sirve para identificar la última celda ocupada en la hoja de carga y allí pega los datos cargados, luego, borra la hoja original para una nueva carga.
Entiendo que tu caso podría llegar a ser diferente pero con una pregunta de tres líneas sin más especificaciones, tuve que imaginarme tu escenario.
Cierra el editor de Visual Basic y graba el archivo.
Pruébalo y dime si funciona OK.
aclarando qué entendí mal o qué faltó.
- Un UserForm creado con Visual basic.
- La herramienta "Formulario" de la Opción "Datos"
- Una hoja simple donde se ingresan los datos directamente en la celda
Asumo que lo que tienes es esta última opción, es decir una especie de máscara de entrada, de forma tal que al ingresar los datos en ella se transfieran a la segunda hoja *agregando las líneas una después de la otra*.
Para que alimente automáticamente -como solicitas- usaremos el evento Change, controlando que la celda final sea D2 (pero puedes cambiarlo si esa no fuera la celda final)
Vale decir que ingresas datos en A2, B2, C2 y al llegar a D2 esos datos se transfieren a la otra hoja dejando tales celdas disponbles para continuar la carga del registro siguiente.
Para que funcione, activa el editor de Visual Basic (presiona Alt+F11) y busca la hoja donde quieres que esto ocurra (donde harás la carga de datos). Da doble click sobre ella.
Copia el código siguiente y pégalo en el panel desplegado a la derecha de su Editor de Visual Basic:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(False, False) = "D2" Then FormCarga
End Sub
Este código controla que estuvieras en la celda D2 y, si así fuera, dispara la macro FormCarga.
Inserta un módulo nuevo y allí pegarás el código siguiente:
Sub FormCarga()
OrigSheet = ActiveSheet.Name
Range("A2:D2").Copy
'================== Modificar de acuerdo a tus datos reales
HojaDest = "Hoja2"
Firstcell = "A1"
'==================
Sheets(HojaDest).Select
Range(Firstcell).Select
LCol = Selection.Column
LCell = Selection.Row
LCell = LCell + Selection.CurrentRegion.Rows.Count
Cells(LCell, LCol).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Cells(LCell, LCol).Select
Sheets(OrigSheet).Select
Range("A2:D2").ClearContents
Range("A2").Select
End Sub
(Hay dos variables entre las líneas de ==== que deberás reemplazar por tus datos propios. Corresponden a la hoja donde se deben volcar los datos y la primer celda superior de la derecha donde comienza tu tabla)
Esta macro sirve para identificar la última celda ocupada en la hoja de carga y allí pega los datos cargados, luego, borra la hoja original para una nueva carga.
Entiendo que tu caso podría llegar a ser diferente pero con una pregunta de tres líneas sin más especificaciones, tuve que imaginarme tu escenario.
Cierra el editor de Visual Basic y graba el archivo.
Pruébalo y dime si funciona OK.
aclarando qué entendí mal o qué faltó.
