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. 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
  4. 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)
  5. 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
  6. 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
  7. Muchas Gracias Antoni, excelente trabajo era lo que ocupaba
  8. 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
  9. 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
  10. 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
  11. 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
  12.  

    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

  13. 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
  14. Saludos quiero mejora el archivo trimestres pero ahora que las celdas se rellenen automáticamente saltado las celdas de 2 en 2 como ejemplo
  15. Lo que necesito es que cuando escriba un texto en una celda este se copie automaticamente cada 17 celdas en la misma fila en un rango determidado
  16. Saludos Muchas gracias por su aporte Si puede ayudarme con este otro problema necesito que una celda escriba un texto y cierta cantidad de celta lo vuelva a repetir Ejemplo Se escribo el al celda A1 ( LJO) horizontalmente al contar 17 celdas vuelva a escribir (LJO) automáticamente, como esta en la plantilla Gracias TRIMESTRES 1.xlsm
×
×
  • Create New...

Important Information

Privacy Policy