
Dim dif As Integer, dif1 As Integer, X As Integer
Application.ScreenUpdating = False
Label127.SpecialEffect = fmSpecialEffectRaised
Worksheets("Matrici").Select
dif = WorksheetFunction.Count(Range("A:A")) - Int(WorksheetFunction.Count(Range("A:A")) / 5) * 5 'Calcolo numero Schedine
If dif <> 0 Then: dif1 = 1: Else: dif1 = 0
Label130 = Int(WorksheetFunction.Count(Range("A:A")) / 5) + dif1
Label130 = " Schedine n° : " & format(Label130, "#,0 ") 'Riga che si blocca su format |
