G
Guest
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
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