Excel Forum

Code: Select all

Sub FillStatus()
    Dim lastRow As Long
    Dim i As Long, r As Range, j As Long
    With Worksheets("Sheet1")
        Set r = .Range("A1")
        Do While r.Offset(i, 0).Value <> ""
            i = i + 1
        Loop
          lastRow = r.Offset(i - 1, 0).Row
            If Selection.Row <= lastRow Then
            Worksheets("Sheet1").Range("B:B").ClearContents
            Worksheets("Sheet1").Range("B1").Select
            .Range(Selection, .Cells(lastRow, Selection.Column)).Value = "เรียน"
            If Selection.Offset(0, 1).Locked Then Exit Sub
            Selection.Offset(0, 1).Select
        End If
        End With
End Sub

Code: Select all

Sub FillStatus()
    Dim lastRow As Long
    Dim i As Long, r As Range, j As Long
    With Worksheets("Sheet1")
        Set r = .Range("A1")
        Do While r.Offset(i, 0).Value <> ""
            i = i + 1
        Loop
          lastRow = r.Offset(i - 1, 0).Row
            If Selection.Row <= lastRow Then
            Worksheets("Sheet1").Range("B:B").ClearContents
            Worksheets("Sheet1").Range("B1").Select
            .Range(Selection, .Cells(lastRow, Selection.Column)).Value = "เรียน"
            If Selection.Offset(0, 1).Locked Then Exit Sub
            Selection.Offset(0, 1).Select
        End If
        End With
End Sub

Code: Select all

Worksheets("Sheet1")

Code: Select all

ActiveSheet