Ayuda Macro
Hola como podre hacer para ingresar un comando en una macro que me sustituya un carácter en un nombre
Ejem
nuñes lopez isidro
nunes lopez isidro
Ejem
nuñes lopez isidro
nunes lopez isidro
Respuesta de ma_ramirez_r
1
Por lo que entiendo esto es para completar la primera pregunta, bueno lo que debes hacer es agregar lo que te indico más abajo en la anterior a la antepenúltima linea de la rutina anterior, es decir, entre las líneas que dicen: "End Select" y "ActiveCell.Offset(1,0).Select
Nom1 = ActiveCell
Largo = Len(ActiveCell)
For i = 1 To Largo
Dato = Mid(Nom1, i, 1)
If Dato = "ñ" Then
If i = 1 Then
Nom1 = "n" & Right(Nom1, Largo - 1)
ElseIf i = Largo Then
Nom1 = Left(Nom1, i - 1) & "n"
Else
Nom1 = Left(Nom1, i - 1) & "n" & Right(Nom1, Largo - i)
End If
ElseIf Dato = "Ñ" Then
If i = 1 Then
Nom1 = "N" & Right(Nom1, Largo - 1)
ElseIf i = Largo Then
Nom1 = Left(Nom1, i - 1) & "N"
Else
Nom1 = Left(Nom1, i - 1) & "N" & Right(Nom1, Largo - i)
End If
End If
Next
ActiveCell = Nom1
Nom1 = ActiveCell
Largo = Len(ActiveCell)
For i = 1 To Largo
Dato = Mid(Nom1, i, 1)
If Dato = "ñ" Then
If i = 1 Then
Nom1 = "n" & Right(Nom1, Largo - 1)
ElseIf i = Largo Then
Nom1 = Left(Nom1, i - 1) & "n"
Else
Nom1 = Left(Nom1, i - 1) & "n" & Right(Nom1, Largo - i)
End If
ElseIf Dato = "Ñ" Then
If i = 1 Then
Nom1 = "N" & Right(Nom1, Largo - 1)
ElseIf i = Largo Then
Nom1 = Left(Nom1, i - 1) & "N"
Else
Nom1 = Left(Nom1, i - 1) & "N" & Right(Nom1, Largo - i)
End If
End If
Next
ActiveCell = Nom1
