Snasui Excel Forum

Code: Select all

'Other...
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
   Range("B2:N" & lastRow).Select
'Other...

Code: Select all

 Sub FillColumn()
 Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Range("B2:N" & lastRow).Select
    Selection.Value = "/"
 End Sub

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lastRow As Long
lastRow = cells(Rows.Count, 1).End(xlUp).Row - 1
If Not Intersect(Target, Range("B2:N2")) Is Nothing Then
   ActiveCell.Resize(lastRow, 1).Value = "/"
End If
End Sub

Code: Select all

Sub FillColumn2()
 Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row - 1
    ActiveCell.Resize(lastRow, 1).Select
    Selection.Value = "/"
 End Sub

Code: Select all

lastRow = Application.CountIf(Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row), ">""")