Snasui Excel Forum

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("D9:D24")) Is Nothing Then
        Sheets("Sheet2").Range("C7").Value = Target.Value
    End If

    If Not Intersect(Target, Range("E9:E24")) Is Nothing Then
        Sheets("Sheet2").Range("C9").Value = Target.Value
    End If
End Sub

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rw As Long
    rw = Cells(Rows.Count, 4).End(xlUp).Row
    If Not Intersect(Target, Range("D9:D" & rw)) Is Nothing Then     '// ตรวจสอบการคลิกช่วง cell "D8:Dxxx..
        Sheets("Sheet2").Range("C7").Value = Target.Value         '// ถ้าใช่ให้ส่งค่าใน Cell นั้นไปที่ชีท Sheet2 ที่ "C7"
    End If

    If Not Intersect(Target, Range("E9:E" & rw)) Is Nothing Then     '// ตรวจสอบการคลิกช่วง cell "E8:Exxx.
        Sheets("Sheet2").Range("C9").Value = Target.Value         '// ถ้าใช่ให้ส่งค่าใน Cell นั้นไปที่ชีท Sheet2 ที่ "C9"
    End If
End Sub