
For Each ce In Range("B176:B246").SpecialCells(xlCellTypeVisible)
Select Case LCase(ce)
Case "sabato"
ce.Offset(0, 1) = "Sab"
Case "domenica"
ce.Offset(0, 1) = "Dom"
Case Else
ce.Offset(0, 1) = "8.00"
End Select
Next |
=SE(B176="sabato";"Sab";SE(B176="domenica";"Dom";"8.00")) |
