Hola.

Tengo hecha una macro muy sencilla cuyo objetivo es mostrar en otra hoja aquellas celdas que están en blanco. Este es el código:

Public Sub blancos()

Dim f As Integer

Dim f_max, c_max As Long

ActiveWorkbook.Worksheets("Hoja1").Copy after:=Worksheets("Hoja2")

'Para saber cuantas filas y columnas hay como maximo rellenas

f_max = ActiveSheet.Cells.SpecialCells(xlLastCell).Row

c_max = ActiveSheet.Cells.SpecialCells(xlLastCell).Column

'Para situarse en la celda

Range("AE").Select

'Cells(4, 10).Select

'Rows(4, 10).Select

For f = 4 To f_max

If ActiveCell.Value <> "" Then ActiveCell.EntireRow.Delete

If ActiveCell.Value = "" Then ActiveCell.Offset(1, 0).Select

Next f

ActiveWorkbook.Worksheets(3).Name = "Sin correo"

End Sub

Al ejecutar el código me sale el siguiente error:

Error de compilación:

No se ha definido Sub o Function

Al ejecutarlo paso a paso el error me salta en otro procedimiento que tengo con el código:

Public Sub Workbook_Open()

Call blancos

End Sub

El código del otro procedimiento lo tengo en la hoja1.

Si ejecuto solo el procedimiento de la hoja1 me sale el error:

Se ha producido el error 1004 en tiempo de ejecución:

Error definido por la aplicación o el objeto

Este error se produce en la línea

Range("AE").Select

¿Como puedo solucionar estos errores?

Gracias.

Buenas,

El Range("AE") no existe, pues solo le estás indicando la columna....te faltaría algún tipo de número para indicarle la fila, por ejemplo Range("AE1")....

Un saludo,

Tese

Gracias por la respuesta. He cambiado el Range("AE") por Range("AE4") y me sigue dando el mismo error.

____________________________________________________________________________

Complementando lo que dice tese1969, al que aprovecho para saludarlo, te comento que la macro blancos debes invocarla así:

Call Hoja1.blancos[/CODE]

Gracias por la respuesta. Lo he probado y me da el error: se requiere un objeto

Sube el archivo.