Xin giúp về code lọc và chép dữ liệu

[xuancanh0209]

Nhà cháu tự lập một cái file bằng excel để trả kết quả chứ hiện tại cháu trả bằng phiếu mẫu người ta in sẵn rồi viết tay vào.
Nhà cháu mới đến làm ở đó nên cũng bở ngở. Cháu muốn tạo file làm sẵn như vậy vừa nhanh vừa bài bản.
Hiện thì cháu trả kết quả ở sheet2 (PHIEU_KQ) và yêu cầu chụp vùng nào thì cháu lại qua sheet1(DATA) để copy và quay lại dán.
Cháu muốn nhờ các bác giúp giùm cháu với.
1. Tại sheet2 (PHIEU_KQ) nếu chọn C16 (Ví dụ Sọ não tiếp tuyến) thì nó sẽ copy ở sheet1(DATA) D219:D222 và dán vào từ ô C26 ở sheet2(PHIEU_KQ). VD:
SỌ NÃO TIẾP TUYẾN
* Phim sọ não tiếp tuyến:
* Xương vòm sọ tại điểm tiếp tuyến: Không thấy bất thường.
* Hình bất thường khác: Không thấy.
Cháu có nhờ bên GPE nhưng chỉ lọc bằng hàm nên khi cháu muốn edit lại mô tả khi có bệnh lý thì không được.
2. Cháu muốn tạo thêm 1 sheet để lưu phần hành chính sau mỗi 1 lần xuất phiếu như sheet4(THONGTIN) như vậy có code nào làm được không.
Rất mong các bác giúp đỡ. Chân thành cám ơn các bác.

[kenvankot]

Mua đi bạn ơi

[xuanha]

Mã: Chọn hết

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, dong As Long, x$, index%
index = 27
dong = Sheets("Data").Range("B" & Rows.Count).End(xlUp).Row
If Target.Address <> "$C$26" Then Exit Sub
    Range("B27:G37").ClearContents
    For i = 2 To dong - 1
        If Sheet1.Range("C" & i).Value = Target.Value And Sheet1.Range("D" & i).Value <> Target.Value Then
            Range("C" & index).Value = Sheet1.Range("D" & i).Value
            index = index + 1
        End If
    Next
End Sub