[V.B.] Aiuto per una macro excel

[k4daoal]

Ciao a tutti,
devo implementare una cosa di questo tipo in una macro VB.

-controlla il testo nella cella con coordinate A1, se c'è la parola "ciao" o "CIAO" o "Ciao" scrivi "SI" nella cella A2, altrimenti scrivi "NO"-

quindi ad esempio scrivendo nella cella A1 "Ciao mondo" dovrei ottenere "SI" nella cella A2, mentre scrivendo "mondo" dovrei ottenere "NO" nella cella A2

Spero di essere stato chiaro
Grazie a tutti
Daniele

[MarcoGG]

Dovrebbe essere possibile anche solo con le funzioni di Excel ( RICERCA... ).
In ogni caso via VBA :

    Dim str1 As String
    str1 = StrConv(Range("A1").Text, vbLowerCase)
    Dim test As String
    test = "ciao"
    If InStr(1, str1, test, vbTextCompare) > 0 Then
        Range("A2").FormulaR1C1 = "SI"
    Else
        Range("A2").FormulaR1C1 = "NO"
    End If

[k4daoal]

Originariamente inviato da MarcoGG

Dovrebbe essere possibile anche solo con le funzioni di Excel ( RICERCA... ).
In ogni caso via VBA :

    Dim str1 As String
    str1 = StrConv(Range("A1").Text, vbLowerCase)
    Dim test As String
    test = "ciao"
    If InStr(1, str1, test, vbTextCompare) > 0 Then
        Range("A2").FormulaR1C1 = "SI"
    Else
        Range("A2").FormulaR1C1 = "NO"
    End If

Grazie mille
Daniele