prova

ges

Excel/VBA Expert
Amministratore
21 Giugno 2015
29.369
1.865
Como
2011MAC 365WIN
979
Visual Basic:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range
    Dim i As Long
    Set rng = Range("C1:C46")
    For Each cell In rng     
        If InStr(1, cell.Value, "df") <> 0 Then     
           cell.Offset(0, 5).Value = "Lav funzionali t e d" 
        ElseIf InStr(1, cell.Value, "of") <> 0 Then       
           cell.Offset(0, 5).Value = "Lav funzionali opz"     
        Else: Rows("1:1000").EntireRow.AutoFit     
        End If
    Next
End Sub
 

Sostieni ForumExcel

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