โค้ด Delect มีปัญหาค่ะ ขึ้น เมธอด Select ของคลาส range ล้มเหลว

[thinatda]

โค้ด Delect มีปัญหาค่ะ ขึ้น error เมธอด Select ของคลาส range ล้มเหลว ที่บรรทัด Sheet4.Cells(x, 2).EntireRow.Select From ชื่อ ของแข็ง,ของเหลว,สารมาตรฐาน ติด error เมธอด Select ของคลาส range ทุก Fromค่ะ

Code: Select all

Count = Sheet4.Cells(Rows.Count, 1).End(xlUp).Row
For x = 2 To Count
If Sheet4.Cells(x, 2) Like TextBox1 Then
If Sheet4.Cells(x, 7) Like TextBox2 Then
        answer = MsgBox("คุณต้องการลบข้อมูลหรือไม่", vbYesNo + vbQuestion, "Delete")
If answer = vbYes Then
        Sheet4.Cells(x, 2).EntireRow.Select
        Selection.Delete
        End If
        End If
        End If
    
        Next x

[snasui]

ค่อย ๆ ถามตอบกันไปครับ

กรุณาระบุ Form ระบุ Procedure มาอีกรอบพร้อมวิธีทดสอบเป็นลำดับที่ทำให้เจอปัญหานั้นครับ

[thinatda]

ค่อย ๆ ถามตอบกันไปครับ

กรุณาระบุ Form ระบุ Procedure มาอีกรอบพร้อมวิธีทดสอบเป็นลำดับที่ทำให้เจอปัญหานั้นครับ

ค่ะ ขอบคุณค่ะ แก้ได้แล้วค่ะ