Ayuda para mostrar condición si la boleta fue impresa

[jeaa]

Buenos días, expertos por favor me pueden dar una mano con una macro donde me debe mostrar un mensaje si la boleta fue impresa con anterioridad, para que me diga por lo menos se esta duplicando con la impresión de dicha boleta algo así, de lo contrario que me imprima normalmente, por favor los agradecería un montón.

Adjunto el archivo

Planilla-de-remuneraciones-y-boletas-de-pago-1-1.xlsm

[JasallBcn]

Buenas tardes, una idea es , añadir una columna en la tabla, consultar la columna antes de imprimir y actualizarla cuando imprimas.

te paso ejemplo, espero te de ideas o te sirva.

saludos, Javier

 

Planilla_Nimpresiones_v1.xlsm

[jeaa]

JasallBcn, muchas gracias voy a probarle lo agradezco infinitamente

[JSDJSD]

Suponiendo que los datos de la hoja BOL los tomas de la hoja PLANILLA aquí te dejo una posible solución a lo que solicitas.

 

Prueba 24-03-2022.xlsm

[JSDJSD]

El código utilizado

Sub imprimir()
    Application.ScreenUpdating = False
    If MsgBox("¿Desea Imprimir la boleta de pago?", vbQuestion + vbYesNo, "Trabajador") = vbYes Then
        VALIDAR
    End If

End Sub
Sub VALIDAR()
    Dim nBoleta As String
    Dim buscado As Variant
    
    With Hoja3
        nBoleta = Hoja1.Cells(13, 2)
        Set rango = .Range("A10", "A" & .Range("A" & Rows.Count).End(xlUp).Row)
        For Each buscado In rango
            If buscado = nBoleta And .Cells(buscado.Row, 31) = "P" Then
                MsgBox "Planilla impresa anteriormente"
                Exit Sub
            ElseIf buscado = nBoleta Then
                .Cells(buscado.Row, 31) = "P"
                .Range("AE" & buscado.Row).Font.Color = VBA.vbGreen
                .Range("AE" & buscado.Row).Font.Bold = True
                .Range("AE" & buscado.Row).Font.Name = "Wingdings 2"
                ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
                Application.ScreenUpdating = True
                MsgBox "La boleta fue Impreso con éxito"
                Exit For
            End If
        Next
    End With
End Sub

 

[jeaa]

JSDJSD, muy bueno funciona bien solo me falta entender alguna parte de código, muy agradecido con la solución 

[JSDJSD]

Que parte no entiendes ?

 

[jeaa]

la parte seleccionada por favor

[JSDJSD]

If buscado = nBoleta And .Cells(buscado.Row, 31) = "P" Then 
                MsgBox "Planilla impresa anteriormente"
                Exit Sub
-->comprueba si la variable buscado es igual número de boleta que 
queremos imprimir y al mismo tiempo comprueba si en la fila correspondiente
de la columna AE se encuentra la letra P, en caso afirmativo te da el mensaje
de que dicha boleta ya ha sido impresa termina el proceso.

ElseIf buscado = nBoleta Then
                .Cells(buscado.Row, 31) = "P"
                .Range("AE" & buscado.Row).Font.Color = VBA.vbGreen
                .Range("AE" & buscado.Row).Font.Bold = True
                .Range("AE" & buscado.Row).Font.Name = "Wingdings 2"
--> En el caso que no se cumpla lo anterior comprueba si la variable buscado
    es igual al número de boleta y en caso afirmativo en la fila correspondiente
    de la columna AE añade la letra P.
    A continuación simplemente a esa letra P le damos color verde, la ponemos
    en negrita y le asignamos el tipo de letra "Wingdings 2" que corresponde al   
    simbolo mostrado.

 

[jeaa]

JSDJSD, muchas gracias muy bien explicado, sobre este voy seguir consultando pero mas adelante ahora necesito practicarlo....nuevamente muchas gracias