CORREGIR CÓDIGO

Codigo corregido con Codigo erróneo

Edición/Reemplazar… por la coma

1 1 1 1
1 1‚ 1‚ 1
0 0 0
0 0 0
0 0 0
49 49 Public Function MSUSTITUIR(txt As String,
49 Public
busc, _Function MSUSTITUIR(txt As String‚ busc‚ _
25 25 sust As String) As String 25 sust As String) As String
23 23 On Error GoTo ManejoErr 23 On Error GoTo ManejoErr
18 18 For Each i In busc 18 For Each i In busc
27 27 txt = Replace(txt, i, sust) 27 txt = Replace(txt‚ i‚ sust)
6 6 Next i 6 Next i
16 16 MSUSTITUIR = txt 16 MSUSTITUIR = txt
13 13 Exit Function 13 Exit Function
10 10 ManejoErr: 10 ManejoErr:
37 37 MSUSTITUIR = Replace(txt, busc, sust)37 MSUSTITUIR = Replace(txt‚ busc‚ sust)
12 12 End Function 12 End Function

‚ , 44 44
‚ , 44 44
‚ , 44 44
‚ , 44 44
‚ , 44 44
‚ , 44 44

http://www.cs.tut.fi/~jkorpela/www/windows-chars.html#list
http://www.cs.tut.fi/~jkorpela/www/wind … .html#list
ƒ„…†‡ˆ‰Š‹Œ‘’“”•–—˜™š›œŸ

Windows name ISO 10646 nameWin Unicode

of character # ref.
1 baseline single quote
single low-9 quotation130 markU+201A ‚
2 florin 131
Latin small letter f with hookU+0192 ƒ
3 baseline double
double
quotelow-9 quotation132 U+201E
mark „
4 ellipsis horizontal ellipsis133 U+2026 …
 5 dagger dagger 134 U+2020 †
6 double daggerdouble dagger 135 U+2021 ‡
7 circumflex accent
modifier letter circumflex
136 U+02C6
accent ˆ
8 permile per mille sign 137 U+2030 ‰
9 S Hacek Latin capital letter138
S with
U+0160
caron Š
10 left single guillemet
single left-pointing
139angle
U+2039
quot. m. ‹
11 OE ligature Latin capital ligature 140 OE
U+0152 Œ
12 left single quote
left single quotation
145mark
U+2018 ‘
13 right single quote
right single quotation
146 U+2019
mark ’
14 left double quote
left double quotation
147 mark
U+201C “
15 right double quote
right double quotation
148 U+201D
mark ”
16 bullet bullet 149 U+2022 •
17 endash en dash 150 U+2013 –
18 emdash em dash 151 U+2014 —
19 tilde accent small tilde 152 U+02DC ˜
20 trademark ligature
trade mark sign 153 U+2122 ™
21 s Hacek Latin small letter 154
S with
U+0161
caron š
22 right single guillemet
single right-pointing
155angle
U+203A
quot. m. ›
23 oe ligature Latin small ligature 156oeU+0153 œ
24 Y Dieresis Latin capital letter159 Y with
U+0178
diaeresis Ÿ
 Codigo corregido con
Documento de SUSTITUIR()
WordPad

TRUE sustituir
, FALSE SUSTITUIR()

SUSTITUIR(txt As String‚ busc‚ _ FALSE Public Function MSUSTITUIR(txt As String‚ busc‚ _

TRUE sust As String) As String
TRUE On Error GoTo ManejoErr
TRUE For Each i In busc
FALSE txt = Replace(txt‚ i‚ sust)
TRUE Next i
TRUE MSUSTITUIR = txt
TRUE Exit Function
TRUE ManejoErr:
eplace(txt‚ busc‚ sust) FALSE MSUSTITUIR = Replace(txt‚ busc‚ sust)
TRUE End Function
TRUE
TRUE
TRUE

, , ‚
, ,
, ,
, ,
, ,
, ,

#REF! Err:502 Err:502 Err:502

‚ƒ„…†‡ˆ‰Š‹Œ‘’“”•–—˜™š›œŸ Err:502 Err:502 Err:502 Err:502
‚ƒ„…†‡ˆ‰Š‹Œ‘’“”•–—˜™š›œŸ Err:502 Err:502 Err:502 Err:502
http://www.cs.tut.fi/~jkorpela/www/wind … .html#listErr:502 Err:502 Err:502 Err:502
http://www.cs.tut.fi/~jkorpela/www/windows-chars.html#list

u
‚
ƒ
„
…
†
‡
ˆ
‰
Š
‹
Œ
‘
’
“
”
•
–
—
˜
™
š
›
œ
Ÿ
0 0 FALSE FALSE
0 0 FALSE FALSE
0 0 FALSE FALSE
0 0 FALSE FALSE
C:\Documents and Settings\fren\Escritorio\Excel
Nombre Tama–o Tipo
09Calendario.zip 11246 Carpeta comprimida (en zip)
1FELICIDAD.PPS 91648 Presentaci—n de Microsoft PowerPoint
casos.01.txt 7615 Documento de texto
Copia de SuDoku.xls 132608 Hoja de c‡lculo de Microsoft Excel
corregir c—digo.xls 227840 Hoja de c‡lculo de Microsoft Excel
decima.sexagesimal....xls 19456 Hoja de c‡lculo de Microsoft Excel
Divisas.xls 56832 Hoja de c‡lculo de Microsoft Excel
Elegir 5 temas para la Alerta BOE.doc 301568 Documento de Microsoft Word
Exc0AA01.doc 114688 Documento de Microsoft Word
Exc0AA02.doc 261120 Documento de Microsoft Word
Excel 2002.zip 2076604 Carpeta comprimida (en zip)
excel-1.zip 70732 Carpeta comprimida (en zip)
excel-2.zip 39093 Carpeta comprimida (en zip)
excel-3.zip 32002 Carpeta comprimida (en zip)
experien.rar 292357 Archivo RAR
fechas.xls 17408 Hoja de c‡lculo de Microsoft Excel
filColumCentimetros.doc 69120 Documento de Microsoft Word
Libro1.xls 152576 Hoja de c‡lculo de Microsoft Excel
paginas interesantes.doc 357376 Documento de Microsoft Word
plantilla texto.xls 608256 Hoja de c‡lculo de Microsoft Excel
pon.xls 1461248 Hoja de c‡lculo de Microsoft Excel
Pregunta javier.01.doc 50176 Documento de Microsoft Word
sedo.Dominios.xls 57344 Hoja de c‡lculo de Microsoft Excel
SuDoku.xls 93696 Hoja de c‡lculo de Microsoft Excel
SuDoku.zip 50938 Carpeta comprimida (en zip)
sudokucorrige.xls 25088 Hoja de c‡lculo de Microsoft Excel
~$ginas interesantes.doc 162 Documento de Microsoft Word
~WRL1061.tmp 353280 Archivo TMP
~WRL1682.tmp 350720 Archivo TMP
~WRL2462.tmp 348160 Archivo TMP
~WRL2799.tmp 123904 Archivo TMP
C:\DOCUME~1\fren\ESCRIT~1\Excel
Creado Acceso Modificado ShortName
11/30/2005 11:30:47 PM 12/25/2005 12:26:08 PM 11/30/2005 11:30:49 PM 09CALE~1.ZIP
12/13/2005 3:36:22 PM 12/30/2005 6:05:01 PM 12/13/2005 3:36:27 PM 1FELIC~1.PPS
11/29/2005 4:18:48 PM 10/12/2005 0:54 10/12/2005 0:54 CASOS0~1.TXT
12/26/2005 11:40:27 PM 12/30/2005 1:19:24 AM 12/27/2005 1:53:32 AM COPIAD~1.XLS
12/28/2005 7:05:31 PM 12/30/2005 5:31:03 PM 12/30/2005 5:31:04 PM CORREG~1.XLS
11/12/2005 19:06 12/25/2005 11:15:54 AM 12/18/2005 3:38:47 AM DECIMA~1.XLS
12/16/2005 1:49:13 AM 12/28/2005 10:23:46 PM 12/16/2005 1:49:14 AM Divisas.xls
11/30/2005 10:56:30 PM 12/30/2005 6:05:03 PM 11/30/2005 10:56:32 PM ELEGIR~1.DOC
10/23/2005 10:35:40 PM 11/30/2005 7:22:13 PM 10/29/2005 11:06:13 PM Exc0AA01.doc
11/14/2005 12:08:10 AM 12/22/2005 8:24:43 PM 12/22/2005 8:24:43 PM Exc0AA02.doc
11/12/2005 23:54 12/26/2005 12:11:52 AM 11/12/2005 23:54 EXCEL2~1.ZIP
12/16/2005 1:17:13 PM 12/25/2005 12:26:09 PM 12/16/2005 1:17:24 PM excel-1.zip
12/16/2005 1:17:32 PM 12/25/2005 12:26:09 PM 12/16/2005 1:17:38 PM excel-2.zip
12/16/2005 1:17:46 PM 12/28/2005 6:38:33 PM 12/16/2005 1:17:49 PM excel-3.zip
12/16/2005 1:19:48 PM 12/16/2005 1:19:48 PM 12/16/2005 1:19:48 PM experien.rar
5/12/2005 1:44 12/28/2005 10:26:28 PM 5/12/2005 1:44 fechas.xls
11/12/2005 19:05 12/29/2005 10:30:08 PM 11/12/2005 19:05 FILCOL~1.DOC
10/26/2005 8:03:26 PM 12/14/2005 2:36:35 PM 10/27/2005 8:48:21 PM Libro1.xls
12/21/2005 1:40:30 AM 12/30/2005 6:01:11 PM 12/30/2005 6:01:11 PM PAGINA~1.DOC
12/13/2005 8:01:07 PM 12/30/2005 1:19:21 AM 12/30/2005 5:12:55 PM PLANTI~1.XLS
11/22/2005 12:02:43 AM 12/14/2005 2:36:56 PM 11/30/2005 11:47:50 PM pon.xls
11/30/2005 1:05:47 PM 12/29/2005 10:30:07 PM 12/28/2005 7:14:20 PM PREGUN~1.DOC
12/13/2005 2:52:23 PM 12/25/2005 11:15:56 AM 12/13/2005 2:52:23 PM SEDODO~1.XLS
12/26/2005 11:38:19 PM 12/26/2005 11:40:18 PM 12/26/2005 11:40:19 PM SuDoku.xls
12/26/2005 11:34:45 PM 12/26/2005 11:34:49 PM 12/26/2005 11:34:49 PM SuDoku.zip
12/27/2005 1:54:13 AM 12/28/2005 10:26:27 PM 12/27/2005 1:54:14 AM SUDOKU~1.XLS
12/30/2005 5:29:25 PM 12/30/2005 5:29:25 PM 12/30/2005 5:29:25 PM ~$GINA~1.DOC
12/21/2005 1:40:30 AM 12/30/2005 5:54:08 PM 12/30/2005 5:54:08 PM ~WRL1061.tmp
12/21/2005 1:40:30 AM 12/30/2005 5:51:11 PM 12/30/2005 5:51:11 PM ~WRL1682.tmp
12/21/2005 1:40:30 AM 12/30/2005 5:30:10 PM 12/30/2005 5:30:11 PM ~WRL2462.tmp
12/21/2005 1:40:30 AM 12/29/2005 11:36:09 PM 12/29/2005 10:43:17 PM ~WRL2799.tmp