Find Replace

  • Cancella carattere di Didak
    Ciao a tutti,

    voglio cancellare un carattere dopo averlo cercato in una stringa intutte le celle col metodo find.

    Col seguente codice(vedi in fondo) riesco ad individuare la cella che contine tale carattere, ma non so come cancellare solo il carattere stesso e non tutto il contenuto della cella.


    Spero di essere stato chiaro, saluti di nuovo a tutti e mille grazie in anticipo


    Ecco il mio codice:


    With ActiveSheet.Cells
    Set c = .Find("$", LookIn:=xlValues)
    If Not c Is Nothing Then
    firstAddress = c.Address
    Do
    c.Value = ""
    Set c = .FindNext(c)
    Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
    End With

    di Mauro
    Basta che sostituisci il metodo .find con il metodo .replace....
    esempio:
    NomeCarI = InputBox("Trova: ", "Trova")
    NomeCarF = InputBox("Sostituisci con:", "Sostituisci")
    Cells.Replace What:=NomeCarI, Replacement:=NomeCarF