Jump to content

Max2005

Members
  • Content Count

    202
  • Joined

  • Last visited

  • Days Won

    2

Posts posted by Max2005


  1. Hola [uSER=83431]@Celest3[/uSER],

    Hice una modificación a tu macro te anexo el código solo pegalo en tu hoja y comentas

    Sub MiniGrafico()
    Dim i As Double
    Dim Rango As Range
    Dim Uf, Uc As Double

    Uf = HistorialT.Range("A1").End(xlDown).Row
    Uc = HistorialT.Range("A1").End(xlToRight).Column

    'Borramos cualquier gráfico creado cada vez que active el código
    HistorialT.Columns("B:B").Select
    Selection.SparklineGroups.Clear
    HistorialT.Range("B1").Select

    For i = 2 To Uf
    Set Rango = HistorialT.Range(Cells(i, 3), Cells(i, Uc)) 'rango desde C2 hasta Ultima columna con dato
    If HistorialT.Cells(i, 1) <> "" Then
    HistorialT.Cells(i, 2).SparklineGroups.Add Type:=xlSparkLine, SourceData:=Rango.Address
    End If
    Next

    End Sub
    [/CODE]

    Mucha Suerte !!!

    Saludos

    Max2005


  2. caso contrario deberás subir el archivo para analizar el caso e igualmente deberás explicar mejor cuál es tu problema.

    Hola [uSER=175568]@marco1099[/uSER] toma en cuenta el mensaje del amigo [uSER=140867]@jonetoja[/uSER]

    ¡¡¡ Y si nos compartes tu archivo !!!, sería más fácil revisar sobre este para no asumir soluciones ;)

    Saludos !!!


  3. Hola Nady

    No te he comprendido del todo, (como decimos aquí en México Barájamela más despacio) .... :mad:

    Actualmente con lo que entendí se mantiene el mismo consecutivo en todas las hojas

    pero necesito que todas se les cambie el mismo numero cada vez que imprimo

    en la hoja BONO, XIII MES, VACACIONES Y LIQUIDACIONES

    Por favor pruébalo con esta modificación

    Saludos !!!

    comprobante_de_Egreso 2.zip

×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png