prova tag

ges

Excel/VBA Expert
Amministratore
21 Giugno 2015
29.370
1.865
Como
2011MAC 365WIN
979
Visual Basic:
Option Explicit
Const bScadAss As Byte = 15
Const bScadBolli As Byte = 10
Sub sbRicercaScadenze()
Dim iRighe As Integer, iRiga As Integer, arrAss, arrBolli
iRighe = Sheets("Registro autoriparazioni").Range("B7").End(xlDown).Row
For iRiga = 7 To iRighe
'Verifica assicurazione
  If IsDate(Range("I" & iRiga).Value) And (Range("I" & iRiga).Value < DateAdd("d", bScadAss, Now())) Then
    If IsArray(arrAss) Then
      ReDim Preserve arrAss(UBound(arrAss, 1) + 1)
    Else
      ReDim arrAss(0)
    End If
    arrAss(UBound(arrAss)) = iRiga & "|" & Range("I" & iRiga).Value
  End If 'Range("I" & iRiga).Value < DateAdd("d", bScadAss, Now()) Then
'Verifica bollo
  If IsDate(Range("L" & iRiga).Value) And (Range("L" & iRiga).Value < DateAdd("d", bScadBolli, Now())) Then
    If IsArray(arrBolli) Then
      ReDim Preserve arrBolli(UBound(arrBolli, 1) + 1)
    Else
      ReDim arrBolli(0)
    End If
    arrBolli(UBound(arrBolli)) = iRiga & "|" & Range("L" & iRiga).Value
  End If 'Range("I" & iRiga).Value < DateAdd("d", bScadAss, Now()) Then
Next iRiga
MsgBox "Trovate le scadenze:" & vbNewLine & _
       "Assic: " & UBound(arrAss) + 1 & vbNewLine & _
       "Bolli: " & UBound(arrBolli) + 1, vbOKOnly, "Riepilogo"
For iRiga = 0 To UBound(arrAss)
  Range("I" & Split(arrAss(iRiga), "|")(0)).Select
  MsgBox "In scadenza. Cosa si fa?"
Next iRiga
For iRiga = 0 To UBound(arrBolli)
  Range("L" & Split(arrBolli(iRiga), "|")(0)).Select
Next iRiga
End Sub
 
Ultima modifica di un moderatore:

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!