A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Question is, line 1 selects a fixed Range but I would like to change this to the equivalent of "Shift + Ctrl + End" ie from current cell to the last cell in the row. End Right won't work because there are gaps.
Range("L1:YF1").Select Selection.EntireColumn.Hidden = False For Each Cell In Selection Count = Count + 1 Next Cell Range("L1").Select For Ch = 1 To Count If ActiveCell.Value <> "" And ActiveCell.Value = 0 Then Selection.EntireColumn.Hidden = True Else End If ActiveCell.Offset(0, 1).Range("$A$1").Select Next Ch Range("$K$2").Select