Comparar datos una lista fija

Hola.

La siguiente macro devuelve un mensaje diferente en
función del número de filas del área actual. Para ello
deberás seleccionar una celda del área de referencia.

Sub filasdelrangoactual()
filas = Selection.CurrentRegion.Rows.Count
If filas > 3000 Then
MsgBox filas & " filas ocupadas por el rango actual"
Exit Sub
Else
MsgBox "inferior a 3000 filas"
End If
End Sub

Saludos,


Benito Merino
Barcelona

Hola a todos.

He hecho una macro que recoge datos exteriores y los pega

a una Hoja ocupando un numero de filas que normalmente es
el mismo siempre. Pero, algunas veces, los datos que me
proporciona el servidor, varian, por lo que tengo que
rehacer la macro para adaptarla a mi lista de datos que
siempre es fija .

Lo que quiero es poner en la macro un condicionante: Si

en Hoja contiene mas de 3000 filas o menos de 3000, que
me avise con un sonido, que pare la ejecucion y que la
restablezca.

Muchas gracias y un saludo.

.