Validar frase en celda de excel
Como Puedo hacer para que cuando copie un mensaje o frase en una celda, esta elimine palabras con tilde por ejemplo si copio la frase y dice acción, la corrija y ponga accion, y que también elimine los doble espacio, por ejemplo
Había una vez -------> habia una vez
1 respuesta
Respuesta de Dante Amor
3
Pon la siguiente macro en los eventos de tu hoja
Cambia en la macro "B:B" por las columnas donde quieras la validación.
Funciona así, escribes la palabra o frase, presionas enter y la macro se activa y realiza las correcciones.
Private Sub Worksheet_Change(ByVal Target As Range)
'Validar frase, eliminar tilde
If Not Intersect(Target, Range("B:B")) Is Nothing Then
If Target.Count > 100 Then Exit Sub
str1 = Array("á", "é", "í", "ó", "ú", "Á", "É", "Í", "Ó", "Ú")
str2 = Array("a", "e", "i", "o", "u", "A", "E", "I", "O", "U")
For Each c In Target
If c.Value <> "" Then
frase = c.Value
For i = LBound(str1) To UBound(str1)
If InStr(1, frase, str1(i)) > 0 Then
frase = Replace(frase, str1(i), str2(i))
End If
Next
Application.EnableEvents = False
c.Value = WorksheetFunction.Trim(frase)
Application.EnableEvents = True
End If
Next
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- En el panel del lado derecho copia la macro
.
.Sal u dos. Dante Amor. Si es lo que necesitas R ecuerda valorar la respuesta. G racias
.
