Code VB ลบข้อมูลในเซล

[tigerwit]

จากไฟล์ที่แนบมา

Code: Select all

Sub ClearSelection()
Dim i As Long

lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To lastrow
        If Range("F" & i).Value = Range("G1").Value Then
            Range("B" & i, "F" & i).ClearContents
        End If
        Next i
        MsgBox "D O N E !!!"
        Application.ScreenUpdating = False
        Call Rank
      Application.ScreenUpdating = True
End Sub

กรณีที่ไม่มีครูย้ายแล้ว มีการกดปุ่มลบข้อมูลครูย้าย
ให้แสดง Msgbox ว่า "ไม่มีครูย้าย"
จะต้องเพิ่ม Code อย่างไรครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub ClearSelection()
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    If Application.CountIfs(Range("f3:f" & lastrow), "<>") = 0 Then
        MsgBox "ไม่มีครูย้าย", vbInformation
        Exit Sub
    End If
    
    For i = lastrow To 3 Step -1  'i = 3 To lastrow
        If Range("F" & i).Value = Range("G1").Value Then
'            Range("B" & i, "F" & i).ClearContents
            Range("b" & i).EntireRow.Delete Shift:=xlUp
        End If
    Next i
    
'    Call Rank
    Application.ScreenUpdating = True
    
    MsgBox "D O N E !!!"
End Sub

[tigerwit]

ขอบคุณครับ