Jump to content
Sign in to follow this  
blueangelzx

VBA Buscar Reemplazar y MSGBOX

Recommended Posts

Hola! tengo esta macro que funciona super! ahora lo que quiero es un MSGBOX en el caso que no haya ocurrencias y el caso que alla ocurrencias me diga cuantas veces cambio mi demanda? ejemplo en replace what le digo me busque la letra A, en Replace with le digo B.. puede ser no haya A en el libro.. o puede ser que si.. si es si necesito saber cuantas veces estaba A en el libro.

 

Gracias!

 

Sub FindandReplace()
    '   Find a string in every sheet and replace it with something else
    Dim x As String, y As String
    Dim ws As Worksheet
    
        x = InputBox("Replace What?", "Replace What")
        y = InputBox("Replace With?", "Replace With")
        
        For Each ws In ActiveWorkbook.Worksheets
            On Error Resume Next
                ws.Cells.Replace What:=x, replacement:=y
            On Error GoTo 0
        Next ws
        
End Sub

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png