Jump to content

Archived

This topic is now archived and is closed to further replies.

GIOVANNYVANEGAS

Configurar fecha en formula

Recommended Posts

Buenos días compañeros.

Os cuento, estoy preparando un archivo excel año 2019 para controlar gastos y tengo una formula que funciona perfectamente en el calculo que realizamos, pero quería saber si alguien me puede echar una mano para configurar un parámetro de dicha formula para que cada año no tenga que coger cientos de casillas y ir cambiando la fecha de forma manual una a una. ADJUNTO EXCEL.

Me tratare de explicar si abren el archivo; 

Ahora mismo estoy ubicado en p7/8/9 donde dicha celda tiene la formula que en la barra se muestra. ¿Que pasa con esa formula?; esa formula esta bien, pero lo que trato de cambiar en esa formula es la dos fechas que señalo en azul por algo que nos sea mas facil modificar cada año y no ir celda por celda modificando esas dos fechas en un nuevo mes o año.

=SUMAR.SI.CONJUNTO(Tabla1[€/GASOIL];Tabla1[FECHA];">=01/01/2019";Tabla1[FECHA];"<=31/01/2019";Tabla1[DESCRIPCIÓN DEL SERVICIO];"Repostar GASOIL / TALLER")

Si os vais a la pagina DATOS PARA LISTA DE MENU, queremos llamar esas fechas que están en azul por cada campo correspondiente para solamente en el futuro tener que cambiar esas fechas y no de forma manual casilla por casilla cada fecha.

No se si me entendeis, si alguien me puede echar una mano os agradecería.

 

CONTROL VEHICULOS - 2019.xlsm

Link to post
Share on other sites

Hola @GIOVANNYVANEGAS

Siendo que tu duda es bastante básica, seria conveniente que leas sobre lo mas básico de Excel

Esto se resuelve, a lo que se llama referencia [a celdas] absolutas, por lo que solo debes reemplazar, tus referencias estáticas a variables de celdas

Esto
">=01/01/2019"
Por esto
">="&$A$1 [aqui pon la celda que mas te conviene], y asi con la otra fecha...

PD: no he visto tu archivo, pero con el cambio que te indico, seguro no habrá problemas, y los signos $ nos ayudan a que la referencia dentro de la celda, no se mueva, es decir siempre estará apuntando a esa celda, aunque la formula se mueva/copie

Cualquier duda, por aquí andamos

 

Saludos 

Link to post
Share on other sites

Hola,

Ya le han hecho las sugerencias con respecto a su pregunta

Adicional a la propuesta de Silvia, donde personaliza los formatos de las celdas "Gastos enero", "Gastos febrero", etc..., (Formato personalizado ("Gastos" mmmm), si quiere seguir usando textos en "mayúsculas" como lo muestra en su archivo, yo le quitaría la palabra "Gastos" y solo dejaría el mes "ENERO", "FEBRERO", etc..., y construyo la fecha con la función =FECHA(

Con respecto a las listas de validación que esta usando en la segunda hoja, le he dejado una sugerencia.

Le recomiendo nombrar las tablas, los nombres por defecto "Tabla1", "Tabla2", etc..., dejan de ser "amigables", use la casilla "Nombre de la tabla" de la ficha "Diseño" de las herramientas de tabla.

Saludos

CONTROL VEHICULOS - 2019 GR.xlsm

Link to post
Share on other sites

Compañeros de Foro, muchas gracias por sus aportes que sin duda son excelentes para ayudar a personas que no tienen un nivel avanzado en el excel. Comentar que con las sugerencias recibidas por parte de  Gerson Pineda Silvia GabrielRaigosa he logrado construir de manera adecuada para ahorrar futuro trabajo.

Muchas gracias compañeros.

Un feliz año.

Link to post
Share on other sites
Hace 23 minutos , Silvia dijo:

buscando un Listado

Sub ShowInstalledFonts()
Const StartRow As Integer = 4
Dim FontNamesCtrl As CommandBarControl, FontCmdBar As CommandBar, tFormula As String
Dim fontName As String, i As Long, fontCount As Long, fontSize As Integer
    fontSize = 0
    fontSize = Application.InputBox("Enter Sample Font Size Between 8 And 30", _
         "Select Sample Font Size", 12, , , , , 1)
    If fontSize = 0 Then Exit Sub
    If fontSize < 8 Then fontSize = 8
    If fontSize > 30 Then fontSize = 30
    Set FontNamesCtrl = Application.CommandBars("Formatting").FindControl(ID:=1728)
    ' If Font control is missing, create a temp CommandBar
    If FontNamesCtrl Is Nothing Then
        Set FontCmdBar = Application.CommandBars.Add("TempFontNamesCtrl", _
            msoBarFloating, False, True)
        Set FontNamesCtrl = FontCmdBar.Controls.Add(ID:=1728)
    End If
    Application.ScreenUpdating = False
    fontCount = FontNamesCtrl.ListCount
    Workbooks.Add
    ' list font names in column A and font example in column B
    For i = 0 To FontNamesCtrl.ListCount - 1
        fontName = FontNamesCtrl.List(i + 1)
        Application.StatusBar = "Listing font " & _
            Format(i / (fontCount - 1), "0 %") & " " & _
            fontName & "..."
        Cells(i + StartRow, 1).Formula = fontName
        With Cells(i + StartRow, 2)
            tFormula = "abcdefghijklmnopqrstuvwxyz"
            If Application.International(xlCountrySetting) = 47 Then
                tFormula = tFormula & "æøå"
            End If
            tFormula = tFormula & UCase(tFormula)
            tFormula = tFormula & "1234567890"
            .Formula = tFormula
            .Font.Name = fontName
        End With
    Next i
    Application.StatusBar = False
    If Not FontCmdBar Is Nothing Then FontCmdBar.Delete
    Set FontCmdBar = Nothing
    Set FontNamesCtrl = Nothing
    ' add heading
    Columns(1).AutoFit
    With Range("A1")
        .Formula = "Installed fonts:"
        .Font.Bold = True
        .Font.Size = 14
    End With
    With Range("A3")
        .Formula = "Font Name:"
        .Font.Bold = True
        .Font.Size = 12
    End With
    With Range("B3")
        .Formula = "Font Example:"
        .Font.Bold = True
        .Font.Size = 12
    End With
    With Range("B" & StartRow & ":B" & _
        StartRow + fontCount)
        .Font.Size = fontSize
    End With
    With Range("A" & StartRow & ":B" & _
        StartRow + fontCount)
        .VerticalAlignment = xlVAlignCenter
    End With
    Range("A4").Select
    ActiveWindow.FreezePanes = True
    Range("A2").Select
    ActiveWorkbook.Saved = True
End Sub

Ejecuta esta macro para listar las fuentes

https://www.exceltip.com/general-topics-in-vba/display-all-installed-fonts-excel-using-vba-in-microsoft-excel.html

 

Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy