2015年6月27日星期六

Excel VBA : set autofiltering

Using VBA to set autofiltering :

Sheets(1).SelectIf ActiveSheet.AutoFilterMode = True Then  ActiveSheet.AutoFilterMode = FalseEnd If    Range("A4:AK4").ActivateActiveSheet.Range("A4:AK4").AutoFilter

2015年6月26日星期五

VBA Code to remove Duplicate Rows consider columns

VBA Code to remove Duplicate rows consider column
ro = getRowCount(0)
Range("A1:Z" & ro).Select
Range("A1:Z" & ro).RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes

VBA sub : DeleteColumns

In order to delete columns of a sheet, we can use below simple sub:
InputString = "C,G,H,I,J,T,U,V,W,X,Y"
DeleteColumns (InputString)
Sub DeleteColumns(InputString As String)
    Dim aString As Variant
    aString = Split(InputString, ",")
    cString = UBound(aString) + 1
    For c = cString To 1 Step -1
        Columns(aString(c - 1)).Select
        Columns(aString(c - 1)).Delete
    Next c
End Sub

Excel VBA : Hide or Unhide columns

To hide or unhide the column by vba:

Columns( 6 ).EntireColumn.Hidden = False
Columns("A:Z").EntireColumn.Hidden = False