Dani2020

Muy agradecido Antoni y Haplox por la ayuda.

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

Muchas Gracias Haplox.

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

Muchas Gracias Antoni

Pruebe este Sub CreaPDF() Dim NombreArchivo, RutaArchivo As String NombreArchivo = ActiveSheet.Name RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaArchivo, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub

Saludos Antoni Ejemplo cuando escriba un texto en la celda A1, que automáticamente se rellene con el mismo texto la calda A3, A5, A7,A9 , A11. Así sucesivamente en un rango determinado. Y otro macro que al borrar el contenido de una celda, se borre a la vez un rango determinado ejemplo borro A1 y se borren el Rango (E1:E20)

Macro que automáticamente rellene celdas de 2 en 2 cuando se escriba algún texto y macro para que cuando se borre el contenido de celdas automáticamente se borre un rango determinado Gracias

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

Muchas Gracias Antoni, excelente trabajo era lo que ocupaba

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 ROL DE DÍAS LIBRES POR JORNADA III TRIMESTRE ESTACION DE OROTINA VERSION 2.xlsm

Muchas gracias Antoni

Saludos Antoni Le modifique la cantidad de filas a los meses cuando le cambio la cantidad de filas al código solo me funciona el los meses de enero y febrero

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

Excelente muchas gracias Antoni