tag:blogger.com,1999:blog-4623278671508370136.post5174815593159620902..comments2023-08-01T13:39:53.991+02:00Comments on EXCEL FORO: Un blog de Excel: VBA: función personalizada SUSTITUIR.Excelforo - Ismael Romerohttp://www.blogger.com/profile/17680553534095355222noreply@blogger.comBlogger4125tag:blogger.com,1999:blog-4623278671508370136.post-16304549260290376552015-10-21T09:03:03.872+02:002015-10-21T09:03:03.872+02:00Hola Irvic,
la macro no diferiría mucho del proces...Hola Irvic,<br />la macro no diferiría mucho del proceso manual.. <br />Necesitarías una tabla de equivalencias para luego recorrerla con algún tipo de loop (por ejemplo, for each.. next) que realice el reemplazamiento (empleando Replace).<br />Espero haberte orientado.<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-85580394533175589622015-10-21T00:18:14.848+02:002015-10-21T00:18:14.848+02:00Hola que tal espero estén bien, necesito su ayuda,...Hola que tal espero estén bien, necesito su ayuda, pues requiero una macro para evaluar en grandes y muy dinámicos listados todos los caracteres especiales que se puedan presentar, para remplazarlos por los caracteres que correspondan, (ej.:Ã --> Á y así), estuve revisando por Internet y no consigo nada tan dinámico y variable pues todos definen cada variable y serian muchísimas.... de antemano muchas gracias por la ayuda que me puedan brindar...<br />Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-28210798146917194732011-04-06T13:02:40.904+02:002011-04-06T13:02:40.904+02:00Muchas gracias por el aporte cllach!!!
una forma m...Muchas gracias por el aporte cllach!!!<br />una forma muy buena de definir fuera de la macro (en la hoja de cálculo) los caracteres a 'eliminar'.<br />Un saludo!!Excelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-514966163491783722011-04-06T12:05:19.420+02:002011-04-06T12:05:19.420+02:00Que tal :
Public Function SacarCharsDe(strText As...Que tal :<br /><br />Public Function SacarCharsDe(strText As String, ListaChars As String) As String<br />SacarCharsDe = ""<br /> For n = 1 To Len(strText)<br /> SacarCharsDe = SacarCharsDe & IIf(InStr(ListaChars, Mid(strText, n, 1)) > 0, "", Mid(strText, n, 1))<br /> Next<br />End Function<br />==============================================<br />Por ejemplo :<br />b3="00qwerty123qwerty124"<br />b5="02468"<br />b6="13579"<br />c3= SacarCharsDe(B3;CONCATENAR(B5;B6))cllachnoreply@blogger.com