Dynamic formating of a table

[koskesh]

Hi all,

I have a dashboard with a dynamic table.
Sometimes the table has 4 rows, sometimes its >20.
I want the formating to change if the number of rows is less then the maximum displayed (of 9)

See file below.

Thanks!

 

[Somendra Misra]

Hi,

Can you explain what do you mean by formatting in your thread?

Regards,

 

[koskesh]

Hi Somendra,

just found a way to do what I want with VBA:

Option Explicit

Sub BlendeA()
Dim r As Range
Dim w As Range
Dim rBlend As Range
Set rBlend = Range("C11:C19")

Application.ScreenUpdating = False
rBlend.EntireRow.Hidden = False
For Each r In rBlend
If Len(r) = 1 Then
If w Is Nothing Then
Set w = r
Else
Set w = Union(w, r)
End If
End If
Next r
If Not w Is Nothing Then w.EntireRow.Hidden = True
Application.ScreenUpdating = True

End Sub