¿De que manera excel busca en una fila 3 letras iguales consecutivas e informa con un mensaje?
Necesito saber como hacer para que en una fila ej A2:H2 busque si hay 3 letras consecutivas iguales y de encontrarlas me escriba un texto infomando. Gracias
1 respuesta
Respuesta de jrgces
1
Prueba con esta función VBA:
Public Function TresLetras(rngR As Range) As String Dim rngC As Range Dim n As Integer For Each rngC In rngR.Cells If Len(rngC.Value) > 3 Then For n = 1 To Len(rngC.Value) - 2 If (Mid(rngC, n, 1) = Mid(rngC, n + 1, 1)) And (Mid(rngC, n + 1, 1) = Mid(rngC, n + 2, 1)) Then TresLetras = "La celda " & rngC.Address & " tiene la letra " & Mid(rngC, n, 1) & " repetida 3 veces consecutivas." End If Next n End If Next rngC End Function
que devolverá la 1ª celda donde se repita tres veces consecutivas una letra.
La forma de llamarla para que evalúe el rango A2:H2 sería:
=TresLetras(A2:H2)
