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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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