Información definida por meses.

[pinoji]

Buenas noches colegas. Espero se encuentren bien de salud.

Ya retomé el trabajo de Control de Combustible y Mantenimiento que mi jefe me había pedido y que les comenté. Y también comencé con las “MOLESTIAS” a ustedes.

Esta vez es para ver si en algún momento tienen un tiempo libre y me pueden ayudar.

Varias son las dudas, pero quiero ir poco a poco para que ustedes puedan ayudarme en la medida de lo posible.

A ver; el Proyecto aun no está terminado, me faltan algunos elementos de carácter técnicos sobre la manipulación del Transporte y el control de combustible que esta semana debo aclarar porque tengo una cita con mi Jefe y la persona que va a manipular este Proyecto para definir las acciones finales, pero de antemano yo sé que hay un problema IMPORTANTE que ellos van a notar y que es imprescindible como la INFORMACIÓN acotada por meses.  También me falta validar algunas cajas de texto para que sólo se ingresen números y otras para texto, validar qué información es obligatoria y cuál no y cosas así, para tratar de evitar los menos errores posibles, teniendo en cuenta que no voy a ser yo quien opere este sistema, pero eso no es problema, eso me llevará tiempo, pero sé cómo hacerlo, el principal problema está en lo siguiente.

Voy a explicarme:

En la Hojas “InformaciónTransporte”, “InformacionCombustible” y “Resumen” yo hago un compendio (Balance), de los “Hechos” sucedidos durante el mes o los meses, pero a medida que transcurran estos las informaciones se harán de la totalidad de los datos y yo voy a necesitar obtener la misma información que contienen esas hojas pero por meses, o sea, que cuando yo solicite un mes determinado (por ej:. Agosto 2022) obtener sólo las informaciones correspondientes a ese mes, independientemente del acumulado.

Por favor, no tengo la más mínima idea de como hacerlo y necesito ideas, ayuda, que alguno de ustedes me eche una mano. Puede ser con el propio Excel mediante Fórmulas o Funciones, puede ser en VBA con macros… no sé ustedes son los maestros, los que tienen experiencia, los que saben. Pueden MODIFICAR lo que entiendan, no hay problema en eso, recuerden, soy aprendiz y trato de sacar todo lo que puedo con sus consejos.

Adjunto el archivo

Gracias de antemano a todos.

Un abrazo

Pino

Sistema de Matto v5.4.2.xlsm

[JSDJSD]

En 4/9/2022 at 3:23 , pinoji dijo:

En la Hojas “InformaciónTransporte”, “InformacionCombustible” y “Resumen” yo hago un compendio (Balance), de los “Hechos” sucedidos durante el mes o los meses

Si puedes explica algo más extenso el proceso que sigues y lo que necesitas

[pinoji]

Buenas noches, colegas. Espero se encuentren bien de salud.

Buenas noches, profesor JSD, qué alegría tenerlo nuevamente por acá. Le he enviado saludos con algunos miembros del Foro. Espero se encuentre bien de salud.

A ver profesor, como explicaba anteriormente, en esta Base de Datos se van a ir insertando registros días tras días y mes tras mes, pero yo necesito que las informaciones que yo pueda obtener sean, además de la totalidad o la suma de la Base de Datos, sea también por meses. Imaginemos que ya estoy trabajando en el mes de diciembre de 2022, voy a tener datos de Septiembre, datos de Octubre y datos de Diciembre, pero cuando termine Diciembre voy a necesitar los datos propios de ese mes, como son el gasto de combustible por cada una de las tarjetas, pero del mes de Diciembre, las Recargas de combustible del mes de Diciembre, los kilómetros recorridos del mes de Diciembre, en la Hoja Resumen necesito Saldo Inicial, Carga, Consumo y Saldo Final del mes de Diciembre, y así sucesivamente. No solo tienen que ser del mes de Diciembre, es solo un ejemplo, pueden ser del mes de Octubre, de Noviembre o cualquier mes que yo necesite.

Créeme que yo lo he intentado, pero no lo he logrado. Si estuviera trabajando directo en la Hoja no es problema, porque con la función Sumar.Si.Conjunto resuelvo el problema, porque haría algo así:

=Sumar.Si.Conjunto(B2:B24,A2:A24,F2,C2:C24,">="&H2)         (es un ejemplo)

haciendo referencias a las celdas adecuadas, incluso usando la función Fin.Mes para determinar el ultimo día del mes en cuestión, pero no logré hacerlo con VBA. También puedo usar la función SumaProducto.

Las hojas a las que hago referencias arriba (“InformaciónTransporte”, “InformacionCombustible” y “Resumen”), las tengo formuladas y estos datos son GENERALES, yo necesito que además de esta, yo pueda tenerlos por un MES específico. Otra cosa, La formulación de estas Hojas no dependen directamente de una fecha porque como dije son Datos Generales (TODOS), pero ya cuando solicite un mes en específico tengo que declarar Fecha Inicio y Fecha Fin.

Ya un poco más "Chapucero", pensé en crear una Hoja con la misma plantilla de las hojas anteriores, formularlas con cualquiera de estas dos Funciones y escoger dos Celdas para Fecha Inicio y Fecha Fin y desde un Formulario declararles ambas fechas y a través de un Botón me lo muestre en un ListBox o lo Imprima.

No sé si con esto tenga más elementos. Yo les comentaba a los demás miembros del Foro que tomé, esté proyecto a propuesta de mi Jefe, pero aun sabiendo que iba a estar más allá de mis conocimientos, pero los RETOS me gustan y siempre aprendo de ellos, además sé que puedo contar con la ayuda de muchos de ustedes.

Usted es el que sabe, me comenta si necesita más argumentos, que le explique algo en específico y estaré a sus órdenes.

Un abrazo a todos.

Pino

 

[JSDJSD]

Puedes subir un ejemplo con datos de dos meses pero solo con las hojas involucradas, en el que muestres los datos que tienes en esos dos meses y el resultado que necesitas?

[pinoji]

Buenos días a todos.

Buenos días profesor.

Realmente tengo que montar un ejemplo con lo que me pide, quizás adecuar el archivo que adjunté para el Foro, porque el sistema no se está explotando aun. Deme un chance y en cuanto puedo se lo hago llegar.

Gracias por su atención.

Saludos a todos y mis respetos.

Pino

[JSDJSD]

Ok, por aquí andamos

[pinoji]

Buenos días a todos los miembros del Foro. Espero se encuentre buen de salud.

Buenos días Profesor JSD.

Realmente es muy difícil trabajar en las circunstancias que tenemos hoy acá, con pocas horas de corriente eléctrica y el poco tiempo que nos deja el trabajo, sumado a mi dependencia de cuando puedo trabajar con el ordenador de mi amigo, pero no voy a rendirme. Traté de hacer algo para que usted vea que es lo que necesito. No sé si le sirva, pero de no ser así, por favor, le agradecería me lo informe y trataremos de seguir profundizando en el tema.

En el archivo yo creé un formulario (FrmResumenC) que pudiera servir a los efectos, usted valore y haga los cambios que estime necesarios.

En la Hoja7 (Combustible) se imprimen los datos que se van insertando. Si te fijas hay datos con fecha de Agosto y datos con fecha de Septiembre, todos del 2022. En la Hoja Resumen se calculan (por medio de fórmulas) el total de los datos contenidos en la Hoja7, pero si haces un filtro de dicha hoja y pides los datos correspondientes a septiembre 2022 (Fecha Inic 01/09/2022   Fecha Fin  30/09/2022) se listaran las Tarjetas:

9510110203133956, 9510110103429636, 951011012994952 y 9510110103429644 con sus respectivos datos de Saldo, Carga, Venta y Existencia con sus respectivos valores monetarios (Hoja Resumen). Esto es lo que necesito obtener mediante el Filtro que estoy pidiendo me ayuden.

Resumiendo, Que se cree una Hoja, que pude llamarse ResumenC y que allí se imprima el resultado de ese Filtro, con un formato parecido  al de la Hoja Resumen (Si fuera posible) y obtener los datos correspondientes a cualquier mes de cualquier año.

Con respecto a las demás Hojas que comenté al Comienzo de este Tema (“InformaciónTransporte”, “InformacionCombustible”), yo me encargaría siguiendo su código y adecuándolo y así aprendo algo más.

Con los TextBox de Existencia e Importe Total no se preocupe, yo puedo agregarle el código para que me sume los totales filtrados.

Adjunto archivo

Un abrazo al profesor Antoni, Haplox, Abraham, Raigosa, JasallBCN, y demás.

Saludos y mis respetos.

Pino

 

Sistema de Matto v5.4.2.xlsm

[Haplox]

Quçe tal @pinoji, si no te he entendido mal, usa el siguiente cçodigo. Faltan algunas cosas como borrar los datos de la hoja FiltroC antes de pasar los nuevos datos, definir las columnas que quieres pasar tanto a la hoja como al listbox (mediante los Offset)

Por cierto, cambia la propiedad "ColumnCount" del listbox a aquellas que quieras mostrar
 

Private Sub CommandButton1_Click()
Dim fech1 As Date, fech2 As Date
Dim uF&, h&
Dim cel As Range
Dim datos()

fech1 = TxtFechaI
fech2 = TxtFechaF

uF = Sheets("Combustible").Range("A" & Rows.Count).End(xlUp).Row

ReDim datos(1 To uF, 1 To 5)
h = 1

For Each cel In Sheets("Combustible").Range("E4:E" & uF)
    If cel >= fech1 And cel <= fech2 Then
        datos(h, 1) = cel
        datos(h, 2) = cel.Offset(, 1)
        datos(h, 3) = cel.Offset(, 2)
        datos(h, 4) = cel.Offset(, 3)
        datos(h, 5) = cel.Offset(, 4)
        h = h + 1
    End If
Next cel

Sheets("FiltroC").Range("A5").Resize(h - 1, 5) = datos
LstResumenC.RowSource = Sheets("FiltroC").Range("A5:E" & (h - 1) + 4).Address

End Sub

 

[pinoji]

Buenos días amigo Haplox. Espero se encuentre bien de salud al igual que su familia, al menos son mis deseos.

Probaré su propuesta y le comento, no obstante -y espero no se ofenda- veré la propuesta de JSD. De cualquier manera serán dos "Caminos" para un solo "Destino" y algo aprendo yo todo esto. Cuando comencé en esto de VBA alguien me dijo " ...trata de aprender unicamente una sola línea de código cada tres días y en un año veras el resultado..." Verdaderamente trato de hacerlo porque me apasiona esto de Programar, Excel y VBA, pero me es algo difícil independientemente de las circunstancias que todos ustedes conocen. No tengo base ninguna, todo es empírico y no tengo a quién acudir ante una duda, solo a ustedes a los que doy Gracias a Dios por tenerlo.

Sabes algo, no uso mucho el Offset y aunque he analizado algunos códigos no lo veo difícil, sólo tengo que emplearlo más para poder dominarlo, al igual que Tarjet que me lo encuentro cada rato en algún documento que consigo para leer, pero esto son metas que tengo.

Amigo Haplox, quizás las palabras no alcancen la dimensión exacta para agradecer sus AYUDAS, pero créeme que es inmenso, no solo a usted, sino al profesor Antoni, JSD que es (como he dicho) "Mi Padrino", al amigo Abraham y muchos otros.

Gracias mil.

Mis respetos.

Pino

 

[JSDJSD]

Algo parecido a esto es lo que necesitas ?

[pinoji]

Buenos días colegas. Espero se encuentren bien de salud.

Buenos días profesor JSD, mis deseos que su salud sea excelente.

Perfecto la solución que usted me brinda.

Espero el archivo para ver qué aprendo del código y continuar.

Gracias mil.

Mis respetos

Pino

[JSDJSD]

Cuando llegue a casa te lo mando, quedan cosas por pulir que las dejos en tus manos.

[pinoji]

Ok, gracias mi hermano. Mis agradecimientos eternos.

Mis saludos y respetos.

Un abrazo

Pino

[JSDJSD]

Aquí lo tienes

Prueba.xlsm

[pinoji]

Buenas Tardes a todos.

Gracias profesor JSD, ahora yo pulo las cosas que me hablaste y termino de darle forma.

Una vez más gracias mil.

Un abrazo y mis respetos.

Pino

[JSDJSD]

Cualquier duda comentala