Excel - AYUDA CON MACRO PARA REEMPLAZAR CARACTERES

 
Vista:
sin imagen de perfil
Val: 18
Ha aumentado 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

AYUDA CON MACRO PARA REEMPLAZAR CARACTERES

Publicado por LUIS H (10 intervenciones) el 03/01/2018 20:56:28
Buen día a todos

Tengo la siguiente macro que busca y reemplaza las ñ por n en el rango de celdas que tenga seleccionado, la macro funciona perfectamente, pero lo que quiero es que al final de salga un mensaje indicandome cuantos caracteres reemplazo, aun no lo he podido hacer, muchas gracias

1
2
3
Public Sub Reemplazar_ñ()
Selection.Replace What:="~" & "ñ", Replacement:="n", MatchCase:=True
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

AYUDA CON MACRO PARA REEMPLAZAR CARACTERES

Publicado por JuanC (1237 intervenciones) el 03/01/2018 21:29:57
sin exquisiteces... ahí te dejo una chapuza hecha en 5' (x ahí te sirve!)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
Sub test()
Dim n%, s$
s = "año año ñ"
n = Reemplazar(s, "ñ", "n")
MsgBox s & " " & CStr(n)
End Sub
 
Public Function Reemplazar(ByRef t As String, ByVal c As String, ByVal d As String) As Integer
Dim s$, n%
If VBA.InStr(1, t, c) > 0 Then
begin:
   s = VBA.Replace(t, c, d, 1, 1)
   n = n + 1
   If VBA.InStr(1, s, c) > 0 Then
      t = s
      GoTo begin
   End If
   t = s
End If
Reemplazar = n
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 18
Ha aumentado 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

AYUDA CON MACRO PARA REEMPLAZAR CARACTERES

Publicado por LUIS H (10 intervenciones) el 03/01/2018 22:30:16
Hola,

Muchas gracias por tu respuesta, tengo las siguientes inquietudes

Me interesa la función que creas creo que de alguna forma puedo llamarla a mi macro para que haga el calculo, sin embargo creo que funciona en celdas individuales, osea al ingresarle un rango de celdas dentro de sus parametros, da error
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

AYUDA CON MACRO PARA REEMPLAZAR CARACTERES

Publicado por JuanC (1237 intervenciones) el 03/01/2018 23:02:48
estás en lo correcto, hay que hacer una implementación acorde a tu necesidad, yo apenas hice el remplazo con conteo...
si das más detalles de lo que estás haciendo por ahí soy más preciso con el código...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar