[macro excel] cancellare caratteri speciali

[Claudio P.]

Vorrei fare una cosa apparentemente semplice ma che mi sta cmq
sfuggendo di mano :
il codice seguente dovrebbe cancellare tutte le celle dove è scritto
#N/D in tre fogli excel.
Queste celle contengono errori di Cerca Verticale.
Prima di eseguire il codice di seguito ho selezionato tutto il foglio ,
l'ho copiato ed ho incollato i valori; di conseguenza le celle "#N/D"
che voglio sostituire con "" non rappresentano + degli errori ma sono
solo testo.
Si può sapere perchè se faccio a mano l'operazione di sostituzione mi
riesce tutto bene e se lo faccio fare alla macro seguente non succede
nulla ?

BOH !!

----------------------------------------------CUT
HERE---------------------------------------------------------
' elimina #N/D

Sheets("Report Interventi").Select
ActiveWindow.LargeScroll Down:=2
Range("E:E,C:C").Select
Range("C1").Activate
Selection.Replace What:="#N/D", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Sheets("Scost. Negativi").Select
Columns("C").Select
Selection.Replace What:="#N/D", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Sheets("Scost. Positivi").Select
Columns("C").Select
Range("C124").Activate
Selection.Replace What:="#N/D", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
----------------------------------------------CUT
HERE---------------------------------------------------------

 

[Otto Moehrbach]

This newsgroup is an English language newsgroup. Post your message in a
newsgroup that supports your language. HTH Otto
Vorrei fare una cosa apparentemente semplice ma che mi sta cmq
sfuggendo di mano :
il codice seguente dovrebbe cancellare tutte le celle dove è scritto
#N/D in tre fogli excel.
Queste celle contengono errori di Cerca Verticale.
Prima di eseguire il codice di seguito ho selezionato tutto il foglio ,
l'ho copiato ed ho incollato i valori; di conseguenza le celle "#N/D"
che voglio sostituire con "" non rappresentano + degli errori ma sono
solo testo.
Si può sapere perchè se faccio a mano l'operazione di sostituzione mi
riesce tutto bene e se lo faccio fare alla macro seguente non succede
nulla ?

BOH !!

----------------------------------------------CUT
HERE---------------------------------------------------------
' elimina #N/D

Sheets("Report Interventi").Select
ActiveWindow.LargeScroll Down:=2
Range("E:E,C:C").Select
Range("C1").Activate
Selection.Replace What:="#N/D", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Sheets("Scost. Negativi").Select
Columns("C").Select
Selection.Replace What:="#N/D", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Sheets("Scost. Positivi").Select
Columns("C").Select
Range("C124").Activate
Selection.Replace What:="#N/D", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
----------------------------------------------CUT
HERE---------------------------------------------------------