KISS Excel VBA

Sub Hide_Row()

'Hide selected Rows

 

    Selection.EntireRow.Hidden = True

     

End Sub

'--------------------------------------------------------------------------

 

Sub Unhide_Row()

'Show selected Rows

 

    Selection.EntireRow.Hidden = False

 

End Sub

'--------------------------------------------------------------------------

 

Sub Hide_Column()

'Hide selected Columns

 

    Selection.EntireColumn.Hidden = True

 

End Sub

'--------------------------------------------------------------------------

 

Sub Unhide_Column()

'Show selected Columns

     

    Selection.EntireColumn.Hidden = False

 

End Sub

'--------------------------------------------------------------------------

 

Sub Insert_Row()

'Insert selected Rows

     

    Selection.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

 

End Sub

'--------------------------------------------------------------------------

 

Sub Delete_Row()

'Delete selected Rows

 

    Selection.EntireRow.Delete Shift:=xlUp

 

End Sub

'--------------------------------------------------------------------------

 

Sub Insert_Column()

'Insert selected Columns

     

    Selection.EntireColumn.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

 

End Sub

'--------------------------------------------------------------------------

 

Sub Delete_Column()

'Delete selected Columns

 

    Selection.EntireColumn.Delete Shift:=xlUp

 

End Sub

'--------------------------------------------------------------------------

 

Sub Columns_10_Rows_15()

'Columns=10 Rows=15

 

    Cells.ColumnWidth = 10

    Cells.RowHeight = 15

 

End Sub

'--------------------------------------------------------------------------

 

Sub ColumnWidths()

     

    Columns("A:A").ColumnWidth = 8#

    Columns("B:B").ColumnWidth = 7#

    Columns("C:C").ColumnWidth = 7#

    Columns("D:D").ColumnWidth = 7#

    Columns("E:E").ColumnWidth = 8#

    Columns("F:F").ColumnWidth = 7#

'    Columns("G:G").ColumnWidth = 2#

'    Columns("H:H").ColumnWidth = 2#

'    Columns("I:I").ColumnWidth = 2#

'    Columns("J:J").ColumnWidth = 2#

'    Columns("K:K").ColumnWidth = 8#

'    Columns("L:L").ColumnWidth = 4#

'    Columns("M:M").ColumnWidth = 2#

'    Columns("N:N").ColumnWidth = 2#

'    Columns("O:O").ColumnWidth = 2#

'    Columns("P:P").ColumnWidth = 7#

'    Columns("Q:V").ColumnWidth = 2#

'    Columns("W:W").ColumnWidth = 9#

'    Columns("X:AI").ColumnWidth = 4#

'    Columns("S:V").ColumnWidth = 4#

     

'    Columns("A:A").EntireColumn.AutoFit

 

End Sub

'--------------------------------------------------------------------------

 

Sub RowHeight_Title_row()

'Makes the 1st row 35 in height

 

    Rows("1:1").RowHeight = 35

 

End Sub

'--------------------------------------------------------------------------

 

Sub Return_Column_Number()

'Uses Column_Number(X) function to find the Priority title

 

    'MsgBox Column_Number("Priority")

    Cells(2, Column_Number("Priority")).Select

 

End Sub

'--------------------------------------------------------------------------

 

Function Column_Number(x)

'Used by Return_Column_Number() sub to find the Priority title

   

  Column_Number = Rows("1:1").Find(What:=[x], After:=Cells(1, 1), LookIn:=xlFormulas, _

        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

        MatchCase:=False, SearchFormat:=False).Column

         

End Function

'--------------------------------------------------------------------------

 

Sub delete_empty_rows()

'Deletes empty rows for the UsedRange

 

    lastlow = ActiveSheet.UsedRange.Rows.Count

    For i = 1 To lastlow

    If Application.CountA(Rows(i).EntireRow) = 0 Then

         Rows(i).EntireRow.Delete Shift:=xlUp

         'MsgBox "Row Empty " & i

    End If

    Next i

 

End Sub

'--------------------------------------------------------------------------

 

Sub delete_empty_columns()

'Deletes empty columns for the UsedRange

 

    LastCol = ActiveSheet.UsedRange.Columns.Count

    For i = 1 To LastCol

    If Application.CountA(Columns(i).EntireColumn) = 0 Then

         Columns(i).EntireColumn.Delete Shift:=xlUp

         'MsgBox "Row Empty " & i

    End If

    Next i

 

End Sub

'--------------------------------------------------------------------------

 

Sub delete_empty_rows_n_columns()

    delete_empty_rows

    delete_empty_columns

End Sub