Xin giúp đỡ về hàm lọc dữ liệu với nhiều điều kiện, cách sửa đối tượng ... (2 người xem)

[nguyet1982db]

Mình tạo một file nhập liệu danh sách cán bộ và muốn rút, trích dữ liệu thỏa mãn các điều kiện xang sheet1 nhưng đang còn vướng mắc một số vấn đề mong các bạn giúp đỡ
1. Form nhập liệu code của phần sửa, xóa dữ liệu trong sheet DATA
2. Sheet 1 mình muốn lọc bất kỳ dữ liệu nào thỏa mẫn điều kiện
Rất mong các bạn giúp đỡ mình. Chân thành cảm ơn

 

[nguyet1982db]

Trong file đính kèm trên em có sử dụng macro để load ảnh vào vùng đã định trong bảng tính, nhưng bị lỗi chỉ hiện được người mang mã số 2, Code em nhờ các bác xem dùm xem sai ở chỗ nào:

(Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
Dim ExcelApp, p As Object
Dim pathApp, path1 As String
pathApp = ThisWorkbook.Path & "\Thuc hanh.xls"
Set ExcelApp = GetObject(pathApp)
Dim Wkb As New Excel.Workbook
Dim targetCell As Range, t As Double, l As Double, w As Double, h As Double, d As Double, r As Double
On Error Resume Next
Set p = ExcelApp.Sheets("SO_YEU").Pictures(1)
p.Delete
Set p = ExcelApp.Sheets("SO_YEU").Pictures(2)
p.Delete
path1 = Trim(ExcelApp.Sheets("SO_YEU").Range("B7"))
path1 = ExcelApp.Path & "\Anh\\" & path1 & ".jpg"
Set p = ExcelApp.Sheets("SO_YEU").Pictures.Insert(path1) 'chen anh
Set targetCell = ExcelApp.Sheets("SO_YEU").Range("A5")
With targetCell
t = .Top
l = .Left
End With
Set targetCell = Nothing
Set targetCell = ExcelApp.Sheets("SO_YEU").Range("C10")
With targetCell
d = .Top + .Height
r = .Left + .Width
End With
With p
.Top = t
.Left = l
.Width = r - l
.Height = d - t
End With
End If
End Sub