Const Rw As Long = 9999
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rws As Long, Dg As Long, Hg As Long, Col As Byte
Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range, Rg0 As Range
Rws = Rw + 99
Set Sh = ThisWorkbook.Worksheets("DuLieu") '*'
Dg = Sh.[G9999].End(xlUp).Offset(9).Row 'Dòng Cuói Có Du Liêu '
If Not Intersect(Target, Range("C19:C" & Rws)) Is Nothing Then
Set Rng = Sh.[B2].Resize(Dg)
Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
If sRng Is Nothing Then
MsgBox "Nothing", , "GPE.COM Xin Chào!"
Else
If sRng.Offset(1).Value <> "" Then
Cells(Target.Row, "T").Value = Sh.Cells(sRng.Row, "G").Value
For Col = 9 To 11 '*'
Cells(Target.Row, 3 * Col - 3).Value = Sh.Cells(sRng.Row, Col).Value
Next Col
Else
Hg = sRng.End(xlDown).Row - sRng.Row 'Xác Dinh Só Dòng Tróng '
If Hg > 9 Then Hg = 9
Cells(Target.Row, "T").Resize(9).ClearContents
Cells(Target.Row, "T").Resize(Hg).Value = Sh.Cells(sRng.Row, "G").Resize(Hg).Value
For Col = 9 To 11
Cells(Target.Row, 3 * Col - 3).Resize(9).ClearContents
Cells(Target.Row, 3 * Col - 3).Resize(Hg).Value = _
Sh.Cells(sRng.Row, Col).Resize(Hg).Value
Next Col
End If
End If
ElseIf Not Intersect(Target, Range("d19:d" & Rws)) Is Nothing Then
Set Rng = Sh.[C2].Resize(Dg)
Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
If sRng Is Nothing Then
MsgBox "Nothing", , "GPE.COM Xin Chào!"
Else
Hg = Target.Row
Cells(Hg, "L").Value = sRng.Offset(, 1).Value
Cells(Hg, "O").Value = sRng.Offset(, 2).Value
Cells(Hg, "Q").Value = sRng.Offset(, 3).Value
End If
Else
Set Sh = Nothing
End If
End Sub
