Jump to content

Modificar Macro trimestre


Dani2020
Go to solution Solved by Antoni,

Recommended Posts

 Tengo este archivo con un calentaría el cual uso  para control de trimestre cuando pongo  en la  celda G2  Trimestre i aparece solo los meses Ene, Feb, Mar; Trimestre II aparece solo Abril, May, Jun; Trimestre III aparece solo Jul, Agos, Set; Trimestre IV aparece solo Oct, Nov, Dic, lo que ocupo no me aparezcan  en trimestre si no solo un mes ejemplo, se pongo el la celda G2 enero aparezca todo enero 

adjunto archivo 

ROL DE TRABAJO DEL PERSONAL POR JORNADA.xlsm

Link to comment
Share on other sites

Saludos Antoni

No se si me podes explicar un poco el código es que necesito hacer otros trabajos parecidos 

Sub MESES()
Application.ScreenUpdating = False
Set datos = Rows("4:" & Range("FIN").Row)
datos.EntireRow.Hidden = True
For x = 4 To Range("FIN").Row Step 18
   If Range("F" & x) = Range("G2") Then
      Rows(x & ":" & x + 17).EntireRow.Hidden = False
      Range("F" & x).Select
      Exit Sub
   End If
Next
End Sub

Link to comment
Share on other sites

Sub MESES()
Application.ScreenUpdating = False        'Evita el refresco de panatalla
Set datos = Rows("4:" & Range("FIN").Row) 'Fijamos el rango a ocultar filas 4:fila FIN
datos.EntireRow.Hidden = True             'Ocultamos todo
For x = 4 To Range("FIN").Row Step 18     'Entramos en bucle desde la fila 4 hasta el final de 18 en 18 filas
   If Range("F" & x) = Range("G2") Then   'Si el mes de la columna F coincide con el de la celda G2
      Rows(x & ":" & x + 17).EntireRow.Hidden = False 'Mostramos la fila del mes y las 17 siguientes
      Range("F" & x).Select                           'Seleccionamos la celda del mes en la columna F
      Exit Sub                                        'Salimos de la macro
   End If
Next 'Siguiente fila del bucle
End Sub

 

Link to comment
Share on other sites

Creo que ya está. Los meses pueden tener cualquier número de filas y pueden ser distintos.

Revisa el adjunto, en especial ENERO, FEBRERO y MARZO.

Elimina/añade filas y verás que sigue funcionando.

Si dejas la celda G2 vacía, te mostrará todos los meses.

ROL DE TRABAJO DEL PERSONAL POR JORNADA.xlsm

Edited by Antoni
Link to comment
Share on other sites

Hace 7 horas, Antoni dijo:

Creo que ya está. Los meses pueden tener cualquier número de filas y pueden ser distintos.

Revisa el adjunto, en especial ENERO, FEBRERO y MARZO.

Elimina/añade filas y verás que sigue funcionando.

Si dejas la celda G2 vacía, te mostrará todos los meses.

ROL DE TRABAJO DEL PERSONAL POR JORNADA.xlsm 65.17 kB · 3 descargas

Hace 20 horas, Dani2020 dijo:

Saludos Antoni

Le modifique la cantidad de filas a los meses cuando le cambio la cantidad de filas al cogido solo me funciona el los meses de enero y febrero

Saludos Antoni

Hice unos modificaciones al Archivo, y me da un erro le adjunto el archivo modificado para ver si me puede ayudar a corregir el error. a la vez si no es mucha la molestia va un código que esta como lectura de procedimiento change como hago para unirlo con el otro change

Adjunto archivo y imagen del error 

Captura.PNG

ROL DE DÍAS LIBRES POR JORNADA III TRIMESTRE ESTACION DE OROTINA VERSION 2.xlsm

Link to comment
Share on other sites

  • Solution

A diferencia de las fórmulas de Excel, VBA no se adapta de forma automática cuando añadimos/eliminamos filas/columnas.

El problema se ha originado al añadir 2 filas al principio de la hoja Datos.

La lista de meses debe estar si o si en el rango Datos!F3:F14, de lo contario, hay que modificar la macro MESES.

Te he reestructurado un poco el evento Change.

ROL DE DÍAS LIBRES POR JORNADA III TRIMESTRE ESTACION DE OROTINA VERSION 2.xlsm

Link to comment
Share on other sites

  • 2 weeks later...

Saludos Antoni

Una ayudita mas como hago para que automaticamente se rellenen las celdas de 2 en 2  cuando se complete los dias en la plantilla ROL DE DIAS LIBRE POR JORNADA

Otro favor un codigo para cuando se borre el contenido de celdas automaticamente se borre un rango deternimado

Gracias

Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

    • La parte de intercalar no la había captado Adjunto de nuevo mi método Espero ahora si, quede listo   Saludos! Mover filas filtradas otra hoja_GP.xlsm
    • Buenas noches nuevamente a los Foristas. A sugerencia de JSD  de los problemas que le planteaba sobre el formulario, abro un nuevo tema. Ofrezco disculpas porque realmente es así como debe ser. El tema es el siguiente: Tengo en este formulario otros problemas que quizás puedan ayudarme: realmente he tratado de ver dónde está el error, pero mis conocimientos no alcanzan y ustedes son los MAESTROS. 1.- En el FrmPersonal trabajo lo que es el listado de Personal con todos los datos y las Nóminas de Salario. En la parte de las nóminas (LstNomina) ya lo configuré de tal manera que con el evento DobleClick pueda traer cualquier trabajador y poder modificar algún dato que por error se haya introducido. Este trabaja Bien, pero en el LstPersonal, estoy tratando de hacer lo mismo y no me está queriendo tomar los datos para su modificación. No me da error, pero no lo hace y he buscado, pero no encuentro el posible problema. 2.- En este mismo Formulario (FrmPersonal), no acabo de poner bien el código VBA para los OptionButton de Sexo. 3.- En este Proyecto también tengo o quiero en el FrmBuscarEntradas poder modificarlo y que a través de un ComboBox o de Botones de Opción poder hacer la búsqueda no sólo de las Entradas, sino también de las Salidas y la Existencia. Esto para evitarme tener que hacer uno para cada uno y reducir los Formularios. ¿Podrías ayudarme con estos temas? Un abrazo a todos. Espero puedas ayudarme y excelente semana para todos. Un abrazo caluroso y cordial. Pino.   Mi Negocio Foro.xlsm
    • Buenas Noches a todos los Foristas. Gracias JSD por su aporte. Revisaré dónde estaba el problema para evitar el mismo error en lo adelante y aprender. Gracias a los demás miembros del Foro también. Tema cerrado.
    • Hola, Gerson. Pues es que solo se mueven todas las salidas de golpe tanto si filtras a mano como si no y todos las referencias de producto a la vez de salidas. No es el ejemplo 2.. no sé... pensaba que la pregunta era clara y tendría fácil solución. El código de mi ejemplo es super sencillo y lo he explicado paso a paso en la macro. En el ejemplo 1 funciona y en el ejemplo 2 es exactamente igual solo que los registros están filtrados.  Comienzo siempre con una salida y luego se van alternando (una entrada, una salida... hay condiciones) hasta que ya no quedan datos en las hojas. Primero para Referencia 1 (filtrada). La idea es al terminar quitar el filtro y hacer lo mismo para referencia 2 (como en el ejemplo 1 que funciona). Gracias.  
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy