
Option Explicit Sub Rendicontazione() Application.ScreenUpdating = False Application.WindowState = xlMinimized Application.WindowState = xlNormal Call Modulo A Call ModuloB ecc ecc End Sub |
If Totale_Pro > 0 Then 'scrivo sul totale solo se presente
IndT = IndT + 1
PtrTot.Cells(IndT, 1) = PtrPro.Cells(IndP, 1)
PtrTot.Cells(IndT, 2) = Totale_Pro
End If
Next IndP
'Rilascio userfom14
Unload UserForm14
DoEvents |
