Foro Excel

Tengo un documento en donde la macro debe de buscar los asteriscos (*) en la columna “F” y sustituir los asteriscos (*) por “-“, y además debe de buscar por toda la columna hasta la última celda con información, sin importar las celdas en blanco, que haya entre celda y celda que contenga información, pero mi macro marca un error y además no busca en toda la columna F, se detiene en la primera celda vacía.

Anexo el ejemplo

Hola

Podrias se un poquito más especifico, en el archivo hay varias hojas, cometanos en cual de ellas es en la que deseas trabajar con la macro.

Recomentaciones:

Si vas a trabajar los reemplazos desde excel, usa el metodo Replace del objeto range Range.Replace (En la ayuda de VBA te podras documentar) y combinalo con formulas nativas de Excel (De esa forma es como si vba le encargara la chamba a excel) y se gana velocidad.

Si deseas usar funciones nativas de VBA, te conviene mas pasar los datos a una matriz y desde ahi tratarlos, una vez finalizado el proceso los regresas todos a excel, asi evitas la sobre carga de envio y recepcion de informacion entre VBA y Excel y ganas velocidad.

Saludos cordiales

Hola:

Prueba con esta macro, no es tan óptima como sería siguiendo los consejos de neverdelimon, pero saldrás del paso.

Código: Seleccionar todo

Sub Reemplazar()
On Error Resume Next
Application.ScreenUpdating = False
  For x = 1 To ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, _
                           SearchDirection:=xlPrevious).Row
   ActiveSheet.Cells(x, 6) = Replace(ActiveSheet.Cells(x, 6), "*", "-")
Next x
End Sub

Salu2. Antoni.

Y algo asi?

Sub Reemplazar()
ActiveSheet.Cells.Replace What:="~*", Replacement:="-", LookAt:=xlPart
End Sub
GALILEOGALI
http://excelgali.mejorforo.net/