Jump to content

Dani2020

Members
  • Posts

    38
  • Joined

  • Last visited

Posts posted by Dani2020

  1. Ocupo unir el código

    Private Sub Worksheet_Change(ByVal Target As Range)

    Dim uFo&, nom%

    If Not Intersect(Range("F:F"), Target) Is Nothing Then
        If Target.Text <> "" Then
            With Sheets("Datos")
                uFo = .Range("A" & Rows.Count).End(xlUp).Row
                nom = Target
                Target.Offset(, 1) = WorksheetFunction.VLookup(nom, .Range("$A$1:$B$" & uFo), 2, 0)
            End With
        End If
    Else
        Exit Sub
    End If

    End Sub

    Con este otro

    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Salida
    '--
    If Target.Address = "$G$2" Then
       MESES
       Exit Sub
    End If
    '--
    Application.ScreenUpdating = False
    Dim celda As Range
    If Not Intersect(Target, Range("I7:AM" & Range("FIN").Row)) Is Nothing Then
       Application.EnableEvents = False
       For Each celda In Target
          celda = UCase(celda)
          Select Case celda
             Case "T":    celda.Interior.Color = RGB(0, 204, 204)
             Case "L":    celda.Interior.Color = RGB(119, 210, 85)
             Case "DLJ":  celda.Interior.Color = RGB(255, 204, 204)
             Case "V":    celda.Interior.Color = RGB(255, 255, 204)
             Case "C":    celda.Interior.Color = RGB(255, 229, 204)
             Case "BI":   celda.Interior.Color = RGB(189, 183, 107)
             Case "HA":   celda.Interior.Color = RGB(65, 105, 225)
             Case "RDF":  celda.Interior.Color = RGB(255, 0, 0)
             Case Else:   celda.Interior.ColorIndex = xlNone
          End Select
       Next
    End If
    '--
    Salida:
       Application.EnableEvents = True
    End Sub

    ROL VERSION 3.xlsm

  2. 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

  3. 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

  4.  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

  5. En 28/4/2020 at 11:04 , Janlui dijo:

    espero te sirva y no olvides dar clic en el corazoncito lado izquierdo si tu petición fue atendida.

    Saludos

    TRIMESTRES.xlsm 55.87 kB · 8 descargas

    Saludo amigo hace mes me ayudaste con este archivo que   ponga Trimestre i aparezca solo los meses Ene, Feb, Mar; Trimestre II aparezca solo Abril, May, Jun; Trimestre III aparezca solo Jul, Agos, Set; Trimestre IV aparezca solo Oct, Nov, Dic, se estuviera a su alcance me lo pudiera corregir solos que aparezcan por mes se pongo enero me aparezca solo enero y así sucesivamente con los otros meses gracias 

  6. Saludos quiero mejora el archivo trimestres pero ahora que las celdas se rellenen automáticamente saltado las celdas de 2 en 2 como ejemplo 

      63328453_Sinttulo.thumb.png.32f45dc077f16aa79a6d1a29bd058465.png                                                                    
                                                                           
                                                                           
                                                                           
×
×
  • Create New...

Important Information

Privacy Policy