Excel Gratis

Plantillas de Excel gratis, sin contraseñas

Plantilla en libro de Excel que puede descargar a continuación de las imagenes ejemplos la cual nos puede servir de ayuda o referencia para crear diferentes tipos de base de datos.
En la hoja formulario ponemos los nombres de los campos de la base de datos que deseamos crear y después tenemos que introducir los datos que corresponde a cada campo y pulsamos guardar registro.
El formato de los datos se encuentran en formato general si lo cambia en la hoja formulario lo tiene que cambiar en la celda/s del campo/s correspondiente de la hoja visualizar y en la columna de la hoja listados.
Debe tener activada las MACROS para que funcione correctamente.
Imagen de la hoja formulario (clic para ampliar)
Por lo tanto, en la hoja formulario es donde cambiamos los nombres de los campos e introducimos los datos, en las demás hojas es para visualizar los registros introducidos una se visualiza independiente y la otra todos los registros.
En la hoja formulario primer dato que se introduce NIF/Código/Referencia (o el nombre que deseemos), debemos emplear uno diferente para cada registro, para no duplicarlos y así posteriormente poder visualizar de forma individual.
NOTA.
La hoja Formulario es para cambiar los nombres de los campos e introducir los datos.
La hoja visualizar se introduce el dato del registro y visualizamos de forma individual
La hoja listado podemos visualizar todos los registros guardados, así como borrar registros.

imagen de la hoja formulario (clic para ampliar)
Imagen formulario para introducir registro de datos

Imagen ejemplo de la hoja visualizar (donde podemos visualizar los registros de forma individual) clic para ampliar.
Imagen ejemplo de la hoja visualizar

clic para Descargar Libro de registro de datos-1
clic para Descargar Libro de Registro-de-datos-2

Modelo base datos

5 Responses so far.

  1. Dante says:

    Hola, como estas ? Pude agregar columnas, ahora lo que necesito es que cuando guardo un registro me los guarde en forma cronologica que no me los acomode por orden de numero o abc. necesito que a medida que se carguen asi queden sin ser ordenado, como lo podre solucionar ? Intente eliminar un par de order= pero no logre hacerlo funcionar. Muchas gracias

  2. Excel gratis says:

    Hola Gustavo, La plantilla tiene una regla de validación en la fila en la fila 1, para cambiarla.
    Desproteges la hoja
    Seleccionas la fila 1
    En l a barra de herramientas seleccionas datos y en el menú haces clic en validación de datos- en configuración seleccionas en permitir cualquier valor y pulsas aceptar.
    Si lo deseas puedes descargar el libro de Registro-de-datos-2, no tiene regla validación
    Saludos

  3. Gustavo says:

    Estimado tal como señalaba Ruben tengo un problema parecido, cuando en la base de datos quiero agregar la columna AA con =datos!$C28, el archivo no me lo permite, e modificzado la macros para lograr esto y tampoco me deja ¿Que estoy haciendo mal?

    Nota: Corrijo,agregar =datos!$C28 en este caso.

    Gracias!!

  4. Excel gratis says:

    Hola Rubén,
    Desprotege la hoja y prueba cambiando en la Macro todos los rangos, donde ponga
    Range(“D2:D27”).Select por Range(“D2:D31”).Select
    y
    Range(“A1:Z1555”).Select Range(“A1:AD1555”).Select

    saludos

    MACRO

    Sub Listado()

    ‘ Listado Macro


    Range(“D2:D31”).Select
    Selection.Copy
    Sheets(“Base de datos”).Select
    Range(“A1555”).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=True
    Range(“A1:AD1555”).Select
    Range(“A1555”).Activate
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets(“Base de datos”).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets(“Base de datos”).Sort.SortFields.Add Key:=Range( _
    “A2:A1555”), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
    xlSortNormal
    ActiveWorkbook.Worksheets(“Base de datos”).Sort.SortFields.Add Key:=Range( _
    “B2:B1555”), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
    xlSortNormal
    ActiveWorkbook.Worksheets(“Base de datos”).Sort.SortFields.Add Key:=Range( _
    “C2:C1555”), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
    xlSortNormal
    ActiveWorkbook.Worksheets(“Base de datos”).Sort.SortFields.Add Key:=Range( _
    “G2:G1555”), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
    xlSortNormal
    ActiveWorkbook.Worksheets(“Base de datos”).Sort.SortFields.Add Key:=Range( _
    “I2:I1555”), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
    xlSortNormal
    ActiveWorkbook.Worksheets(“Base de datos”).Sort.SortFields.Add Key:=Range( _
    “J2:J1555”), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
    xlSortNormal
    ActiveWorkbook.Worksheets(“Base de datos”).Sort.SortFields.Add Key:=Range( _
    “K2:K1555”), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
    xlSortNormal
    ActiveWorkbook.Worksheets(“Base de datos”).Sort.SortFields.Add Key:=Range( _
    “L2:L1555”), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
    xlSortNormal
    With ActiveWorkbook.Worksheets(“Base de datos”).Sort
    .SetRange Range(“A1:AD1555”)
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
    End With
    Range(“A1”).Select
    Sheets(“datos”).Select
    Range(“D2:D31”).Select
    Selection.ClearContents
    ActiveSheet.Shapes.Range(Array(“Button 2”)).Select
    Selection.OnAction = “Listado”
    Range(“D33”).Select
    End Sub

  5. Ruben says:

    Buenas, he descargado y modificado para su uso la hoja, es estupendo, lo único que cuando quiero ampliar los campos a AA AB AC AD. AL rellenar los datos perfecto pero despues en la hoja base de datos solo se me autorrellena hasta la Z.

    ¿Podrías ayudarme?