You are here:Home-Domande su Excel VBA e MACRO-[RISOLTO] Funzione trova in vba-Rispondi a: [RISOLTO] Funzione trova in vba
Rispondi a: [RISOLTO] Funzione trova in vba2018-01-30T10:29:58+01:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Funzione trova in vba Rispondi a: [RISOLTO] Funzione trova in vba

sidsid
Moderatore
    Post totali: 752

    Una possibile soluzione

    Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim cl As Range
    Dim sElenco As String
    
    If TextBox1.Text = "" Then
        MsgBox "NON HAI INSERITO NESSUN COLORE"
        Exit Sub
    End If
    
    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
            
            Case "Foglio1", "Foglio2" ' nomi dei fogli che non vanno ciclati
            
            Case Else
                Set cl = ws.UsedRange.Find(Me.TextBox1.Value, , , xlWhole)
                If Not cl Is Nothing Then
                    sElenco = sElenco & ws.Name & vbLf
                    Set cl = Nothing
                End If
        End Select
    Next ws
    
    If Not sElenco = vbNullString Then
        MsgBox "Il criterio di ricerca si trova nei fogli " & vbLf & sElenco, vbInformation, "RICERCA " & TextBox1.Value
    Else
        MsgBox "Nessun crtiterio trovato", vbInformation, "RICERCA " & TextBox1.Value
    End If
    End Sub
    • Questa risposta è stata modificata 2 anni, 7 mesi fa da sidsid.
    • Questa risposta è stata modificata 2 anni, 7 mesi fa da sidsid.