Snasui Excel Forum

Code: Select all

Sub ClearContentsG16toG21()
    Application.ScreenUpdating = False
    Dim r1, r2 As Range
    Dim i As Integer
    With Worksheets("ตัดสรุป")
        Set r1 = .Range(.Range("D5"), .Range("D65536").End(xlUp))
        Set r2 = .Range(.Range("G5"), .Range("G65536").End(xlUp))
    End With
        For i = r1.Rows.Count To 1 Step -1
        If r1(i) = "รวม B/C จัดเตรียม 10 รายการ" Then
            Exit For
        End If
        If r1(i) <> "" Then
            r2(i).ClearContents
        End If
    Next i
    Application.ScreenUpdating = True 
End Sub

Code: Select all

If r1(i) = "รวม B/C จัดเตรียม 10 รายการ" Then
            Exit For

Code: Select all

If r1(i) = "รวม B/C จัดเตรียม 10 รายการ" Then
            Exit For

Code: Select all

Sub ClearContents()
Application.ScreenUpdating = True
Dim r1, r2 As Range
    Dim i As Integer
    With Worksheets("ตัดสรุป")
        Set r1 = .Range(.Range("E5"), .Range("E65536").End(xlUp))
        Set r2 = .Range(.Range("G5"), .Range("G65536").End(xlUp))
    End With
        For i = r1.Rows.Count To 1 Step -1
        If r1(i) <> "" Then
            Exit For
        End If
        If r1(i) = "" Then
            r2(i + 1).ClearContents
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

Code: Select all

Set r1 = .Range(.Range("E5"), .Range("E65536").End(xlUp))