Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
VBA help for functions
VBA help to add tickmark to range that has data only trying this code 'Format the column to Add Ticks Dim X As Variant If WorksheetFunction.CountA(Range("E4:E2300")) 0 Then If Len(X) 0 Then 'Find cells with data X.FormulaR1C1 = Chr(39) & X.Text '39 is code for tick Else X.FormulaR1C1 = "" 'If empty do not put tick End If End If end sub This works but it takes too long to go through the range and when I have 19 sheets to have 1hr just to format too long ' Format the column to Add Ticks ' Dim Z As Variant, X As Variant ' 'Range("E4:E" & Lastrow).Select ' Range("E4").Select ' Range(Selection, Selection.End(xlDown)).Select ' Z = Selection.Address 'get the address ' For Each X In ActiveSheet.Range(Z) 'Do while ' If Len(X) 0 Then 'Find cells with data ' X.FormulaR1C1 = Chr(39) & X.Text '39 is code for tick ' Else ' X.FormulaR1C1 = "" 'If empty do not put tick 'End If 'Next End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
formula/functions for average and if functions | Excel Worksheet Functions | |||
XL2003 FILTER FUNCTIONS VS. XL2007 FILTER FUNCTIONS | Excel Worksheet Functions | |||
efficiency: database functions vs. math functions vs. array formula | Excel Discussion (Misc queries) | |||
Looking for a site with functions that substitute the ATP functions | Excel Worksheet Functions | |||
Nesting functions in the functions dialog box | Excel Worksheet Functions |