Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Coding Convention
Thanks in advance.
Which of the following ways is the best coding convention and why? Private Sub() Sheets("DevData").Range("SourceDev").AdvancedFilte r Action:=xlFilterCopy, CriteriaRange:=Sheets("FilterControl").Range("A28: Y29"), _ CopyToRange:=Sheets("Results").Range("A2:W2"), Unique:=False end sub Public Sub FilterDbase_Click() Dim filtercontrolSheet As Worksheet Dim resultsSheet As Worksheet Dim devdataSheet As Worksheet Set filtercontrolSheet = Sheets("FilterControl") Set resultsSheet = Sheets("Results") Set devdataSheet = Sheets("DevData") devdataSheet.Range("SourceDev").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=filtercontrolSheet.Range("A28:Y29") , _ CopyToRange:=resultsSheet.Range("A2:W2"), Unique:=False End Sub Public Sub FilterDbase_Click() Dim SourceRng Dim CritRng Dim CopyToRng Set SourceRng = Sheets("DevData").Range("SourceDev") Set CritRng = Sheets("FilterControl").Range("A28:Y29") Set CopyToRng = Sheets("Results").Range("A2:W2") SourceRng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=CritRng, _ CopyToRange:=CopyToRng, Unique:=False End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
modified following business day convention | Excel Worksheet Functions | |||
Copying Column in R1C convention | Excel Programming | |||
Formatting convention for code | Excel Programming | |||
Error 49: Bad .dll Calling Convention | Excel Programming | |||
Bad DLL Calling Convention (Error 49) | Excel Programming |