implementazione tasto stampa per dati mancanti

[FROST220684Partecipante FROST220684]

Ciao a tutti,

vorrei implementare una funzione all'interno del file in allegato che mi permetta di stampare le righe del foglio transfer che hanno dati mancanti, mi spiego meglio:

1. tramite questo codice mi vengono inseriti in una casella di riepilogo le righe dove ci sono dati mancanti del foglio transfer:

Option Explicit

Public Sub checkDate()
Dim targetDate As Date
Dim rngDate As Range, data As Range
Dim listBox As Object
Dim s As String

targetDate = DateAdd("d", 7, Date)
    
Set rngDate = ThisWorkbook.Sheets("Transfer").Range("B4", ThisWorkbook.Sheets("Transfer").Range("B4").End(xlDown))
Set listBox = ThisWorkbook.Sheets("Pannello di Controllo").OLEObjects("ListBox1").Object

listBox.Clear
s = ""
For Each data In rngDate
    If DateValue(data.Value) >= Date Then
 
        If DateValue(data.Value) <= DateValue(targetDate) Then
            Select Case data.Offset(, 9)
                Case "A"
                    If data.Offset(, 5) = "" Then
                        s = s & vbCrLf & """Ora Arrivo"" del cliente " & data.Offset(, 1) & " del " & data & " non compilato."
                        listBox.AddItem data.Offset(, 1).Value & "  -  " & data.Value
                    End If
                Case "R"
                    If data.Offset(, 6) = "" Or data.Offset(, 7) = "" Then
                        s = s & vbCrLf & """Ora Partenza/Trasfer"" del cliente " & data.Offset(, 1) & " del " & data & " non compilato."
                        listBox.AddItem data.Offset(, 1).Value & "  -  " & data.Value
                    End If
            End Select
        End If
    End If
Next data

Set rngDate = Nothing
Set listBox = Nothing

End Sub

2. tramite l'userform stampa invece ho la possibilità di stampare le righe facendo una ricerca per data.

 

3. vorrei quindi fare un mix dei due, cosa deve fare?

- filtrare le righe dove mancano dati e che compaiono anche nella casella di riepilogo (la ricerca della casella riepilogo viene fatta a 7 giorni di distanza)

- Stampare solo quelle righe come fa l'userform stampa quando gli chiedo di stampare le righe per data facendomi scegliere la stampante desiderata

- come avvio della macro vorrei farla autonoma con un tasto sotto la casella riepilogo dati mancanti

Grazie a tutti per l'aiuto

Allegati:

You must be logged in to view attached files.

[Autore]

Articoli