Jump to content

Dani2020

Members
  • Posts

    38
  • Joined

  • Last visited

Everything 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. Si me pueden ayudar con macro para buscar en base de datos por código, luego que me copie la información en otra hoja automáticamente al ingresar un código en una celda y se vuelva a repetir la misma función en otra celda al ingresar el código Adjunto ejemplo. Libro1.xlsx
  3.  

    Saludos Janlui

    Haces meses usted me ayudo con esta situación de table de control de días libre del persona por trimestres con calendario se actualiza automático por año, lo que ocupo es que cuando 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 pudiera ayudarme en variarla que en lugar de trimestre ponga meses y aparezca el mes  solicitado

    ses usted me ayudo en un código 

    ROL DE TRABAJO DEL PERSONAL POR JORNADA.xlsm

×
×
  • Create New...

Important Information

Privacy Policy