
Sheets("lista").Select
Range("B65536").Select
Selection.End(xlUp).Select
numero = ActiveCell
ActiveCell.Offset(1, 0).Select
ActiveCell = numero + 1
ActiveCell.Offset(0, 1) = nattuatore2
ActiveCell.Offset(0, 2) = ComboBoTipo
ActiveCell.Offset(0, 3) = dataultima
ActiveCell.Offset(0, 4) = dataprossima |
ActiveCell.Offset(0, 4) = "=SUM(RC[-1]+1095)" |
