Excel - Sostituire cancelletto(#)

Asked By draleo on 15-Jul-12 12:26 PM
In alcune celle ho delle stringhe, importati da un DB, che in alcuni casi c=
ontengono il simbolo cancelletto, ripetuto uno o pi=F9 volte (es.###,#51,##=
5,51#,ecc). Io vorei sostituire questi cancelletti con uno spazio vuoto.=20
Adopero la seguente routine
Sub toglicancelletto()
Dim riga As Long
Dim zona As Range
With Worksheets("prova")
riga =3D .Range("A65536").End(xlUp).Row
Set zona =3D Range(.Range("G6"), .Range("M" & riga))
zona.Replace What:=3D"#", Replacement:=3D" ", _
SearchOrder:=3DxlByColumns, MatchCase:=3DTrue =20
End With
Set zona =3D Nothing
End Sub

Ma  non funziona:ho controllato i riferimenti, e sono giusti. Anche agendo =
manualmente(menu home-sostituisci)inserendo il simbolo del cancelletto nell=
a casella trova, risponde che non c=92=E8 corrispondenza.
Eppure i cancelletti ci sono !
Come fare ?
draleo


Scossa replied to draleo on 15-Jul-12 02:05 PM
contengono il simbolo cancelletto, ripetuto uno o pi=F9 volte (es.###,#51,=
ndo manualmente(menu home-sostituisci)inserendo il simbolo del cancelletto =
nella casella trova, risponde che non c=92=E8 corrispondenza.

prova ad aggiungere lookat:=3DxlPart

Sub toglicancelletto()
Dim riga As Long
Dim zona As Range
With Worksheets("prova")
riga =3D .Range("A65536").End(xlUp).Row
Set zona =3D Range(.Range("G6"), .Range("M" & riga))
zona.Replace What:=3D"#", Replacement:=3D" ", _
SearchOrder:=3DxlByColumns, MatchCase:=3DTrue, lookat:=3DxlPart
End With
Set zona =3D Nothing
End Sub

Bye!
scossa
draleo replied to draleo on 15-Jul-12 03:21 PM
Perfetto.Ora Funziona
grazie
draleo

Il giorno domenica 15 luglio 2012 18:26:02 UTC+2, draleo ha scritto:
contengono il simbolo cancelletto, ripetuto uno o pi=F9 volte (es.###,#51,=
=20
amp; riga))
_
o manualmente(menu home-sostituisci)inserendo il simbolo del cancelletto ne=
lla casella trova, risponde che non c=92=E8 corrispondenza.