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
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 Sub

Sigue las Instrucciones para poner la macro en los eventos de worksheet

  1. Abre tu libro de excel
  2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
  3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
  4. 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

.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas