Scuola forum (scuo.la) - Forum di discussione per le scuole - Macro Excel che agisce solo su celle con determinate sillabe

- Informatica (https://www.scuolaforum.org/informatica/)

- - Macro Excel che agisce solo su celle con determinate sillabe (https://www.scuolaforum.org/informatica/4014-macro-excel-che-agisce-solo-su-celle-con-determinate-sillabe.html)

Macro Excel che agisce solo su celle con determinate sillabe

Ciao a tutti.
In un foglio Excel contenente un elenco di nomi di città in colonna A, faccio una semplice selezione (per esempio A100:A200 ma devo usare riferimenti relativi) e devo fare in modo che alle celle di questa selezione che contengono alcune sillabe (per esempio “reg” e “par”) , gli venga scritto un “NO” nella riga corrispondente ma in colonna B; le celle che invece non contengono quelle sillabe devono restare invariate.
Con le formule sarebbe semplice, ma non posso usarle e devo fare in modo che la macro non vada ad intaccare le celle che vengono prima o dopo la selezione.
Qualcuno può aiutarmi a creare questa macro?
Grazie

Ed ecco la soluzione semplice ma efficace proposta dal buon Mauro Gamberini, Microsoft MVP - Excel:

codice:

Public Sub m()

    Dim c As Range

    For Each c In Selection

        If InStr(LCase(c.Value), "par") Or _

            InStr(LCase(c.Value), "reg") Then

            c.Offset(0, 1).Value = "NO"

        End If

    Next

    Set c = Nothing

End Sub

Superfluo dire che funziona benissimo.
Grazie e alla prossima