Buen dia,

Favor su ayuda con una macro que pueda buscar un texto (por ejemplo "Hola") que este repetido en varias celdas ("A1:D40"). Si en este rango de celdas se encuentra al menos 20 veces el dato "Hola", que los seleccione todos y luego los elimine.

 

Saludos!

Hola manzano, prueba el adjunto y comenta

Repetidos mas de 20.xlsm

Hace 1 hora, JSDJSD dijo:

Hola manzano, prueba el adjunto y comenta

Repetidos mas de 20.xlsm 19 kB · 0 descargas

Hola amigo, esta excelente, es lo que necesito, pero puedes enviarme el código sin el msgbox? es que necesito insertarlo en otra macro que estoy armando. Solo necesito que al ejecutar la macro elimine el dato que yo escriba en el código al instante.

 

Saludos y gracias por tu tiempo

No olvides agradecer a quien te ayuda o intenta ayudar.

Repetidos mas de 20 (1).xlsm

Perdón, no había notado esas reacciones para agradecer.

 

Slds,

Hace 58 minutos , JSDJSD dijo:

No olvides agradecer a quien te ayuda o intenta ayudar.

Repetidos mas de 20 (1).xlsm 19 kB · 1 descarga

Amigo, no me sirve así, necesito que el código este en un modulo, y que yo ponga el dato que quiero eliminar en el editor de visual basic, como referencia, solo debo eliminar el numero 6011, el cual en la planilla que estoy trabajando esta esparcido en muchos lados.

Saludos

Prueba ahora

Repetidos mas de 20 (2).xlsm

Buenisimo, justo lo que necesitaba!! 

 

Muchas gracias por tu tiempo, saludos!

Amigo, tengo un nuevo problema, al querer cambiar el rango de celdas, (en ves de A1:D40 que sea S2:X300) pero al realizar el cambio no se ejecuta la macro.

 

Slds.

Hace 11 minutos , manzano dijo:

Amigo, tengo un nuevo problema, al querer cambiar el rango de celdas, (en ves de A1:D40 que sea S2:X300) pero al realizar el cambio no se ejecuta la macro.

Sustituye el código por este:

Sub buscarrepetido()

Dim t As Variant
Dim cont As Long
Dim rep As Long
Dim buscado As String

buscado = 6011

    For Each t In Hoja1.Range("S2:X300")
        If t = buscado Then
            rep = rep + 1
        End If
    Next
    
    If rep >= 20 Then
        For Each t In Hoja1.Range("S2:X300")
            If t = buscado Then
                t.Clear
            End If
        Next
    End If
End Sub