Snasui Excel Forum

:thup: ขอบคุณค่ะอาจารย์ ได้ตรงตามต้องการแล้วค่ะ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("b3:i19")) Is Nothing Then
        Worksheets("Sheet2").Select
        ActiveSheet.Range("f10").Select
    End If
End Sub

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

[code]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("b3:i19")) Is Nothing Then
Worksheets("Sheet2").Select
ActiveSheet.Range("f10").Select
End If
End Sub[/code]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.Goto Sheets("Sheet2").Cells(10, 6)
End Sub

เรียนอาจารย์และท่านผู้รู้ช่วยปรับโค้ดค่ะ
ตัวอย่างไฟล์แนบมีตารางข้อมูลเซลล์ B3:I19 ที่ชีท Sheet1 ใช้โค้ดด้านล่างนี้

ต้องการปรับโค้ดเมื่อคลิกที่เซลล์ใด ๆ ที่อยู่นอกกรอบข้อมูลเซลล์ B3:I19 ชีทSheet1 เช่นคลิกที่คอลัมน์ K:R ก็ให้ไปวิ่งที่ Sheet2 เซลล์ F10 ค่ะ

โค้ดด้านล่างติดเมื่อคลิกเซลล์ใดก็วิ่งไปที่ชีท Sheet2 ค่ะ ควรปรับโค้ดอย่างไรคะ
[code]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Goto Sheets("Sheet2").Cells(10, 6)
End Sub[/code]