[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]

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