Visual Basic para Aplicaciones - No Existen Celdas Visibles

Life is soft - evento anual de software empresarial
   
Vista:

No Existen Celdas Visibles

Publicado por Francisco Andrés (11 intervenciones) el 08/05/2015 13:57:32
Estimados, como hago para asignarle a una macro, que en el caso de que no se encuentren celdas visibles para seleccionar, me tire un msg.
Ademas necesitaría saber como hacer para que en el caso de una vez aplicados los filtros avanzados en una base mediante un código de vba no me deje seguir con un proceso.
Aguardo respuestas.
Gracias,


Private Sub Prueba_Cod()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Workbooks.Open "K:\Francisco Torre\Proyecto Mejoras Continuas\Mejoras Continuas.xlsx", Password:="2160sara"


ActiveSheet.Range("$A$1:$K$1001").AutoFilter Field:=9, Criteria1:= _
"OK"
Columns("J:J").Select
Selection.SpecialCells(xlCellTypeBlanks).Select

If Selection.SpecialCells(xlCellTypeVisible).Select = False Then (Este código me da error, como lo puedo hacer)

Else
Selection.Value = "Enviado"
Application.CutCopyMode = False
ActiveSheet.ShowAllData
End If
Application.ScreenUpdating = True

End Sub

Saludos.-
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

No Existen Celdas Visibles

Publicado por renzo (2 intervenciones) el 16/07/2015 21:24:30
primero que todo puedes contar la columna donde estan los datos principales y con la siguiente formula obtienes cuantos datos hay

Dim a
a = WorksheetFunction.Subtotal(3, Range("a:a"))

Luego evaluas si tiene datos

if a > 1 then

msgbox("Hay datos")

else

msgbox("No hay datos")
end if
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar