Lọc và gán giá trị có đồng thời nhiều điều kiện VBA (1 người xem)

[anhtb82]

Xin chào mọi người, mình hiện tại có một bài t oán mong được mọi người chỉ giáo. File ví dụ mình đã Att.

Mô tả: file mình có 2 sheet Data + Ngày/tháng
* Tại sheet Data:
- Nếu Ô I2 = "Thu2" thì
+, Nếu giá trị Ô C2 >= Ô A8 (sheet ngày/tháng) thì sẽ xóa cả dòng C2 (Ctrl + -) đi
+, Nếu giá trị Ô C2 < Ô A8 (sheet ngày/tháng) thì ô J2 = giá trị A1 (sheet ngày/tháng).

Mình muốn hỏi code cho phần này để làm những phần tương tự cho những ngày khác. Mong mọi người chỉ giúp
Xin cảm ơn mọi người.

 

[AutoReply]

Dùng công thức được hông??? VBA tôi chịu

=IF(C2>=LOOKUP(2,1/(SUBSTITUTE(I2,"hu","")='ngày, tháng'!$B$1:$B$14),'ngày, tháng'!$A$1:$A$14),"XÓA",LOOKUP(2,1/(SUBSTITUTE(I2,"hu","")='ngày, tháng'!$B$1:$B$14),'ngày, tháng'!$A$1:$A$14))

Filter thằng nào là "XÓA" thì "Cần trô trừ nó đi"

em chỉ muốn code thôi anh hpkhuong ơi, chứ làm thủ công nhìn nó không "chuyên nghiệp" , không thị uy được với các em nữ kế toán. Anh giúp em với

 

[anhtb82]

Tạo sheet mới. Rồi chạy code sau

Public Sub GPE()
Dim sArr, dArr, tArr, I As Long, J As Long, K As Long, N As Long
sArr = Sheet1.Range("A1").CurrentRegion.Value
ReDim dArr(1 To UBound(sArr), 1 To UBound(sArr, 2))
tArr = Sheet3.Range("A1").CurrentRegion.Value
For I = 2 To UBound(sArr)
    For J = 1 To UBound(tArr) / 2
        If Replace(sArr(I, 9), "hu", "") = tArr(J, 2) Then
            If sArr(I, 3) < tArr(J + 7, 1) Then
            K = K + 1
                For N = 1 To UBound(sArr, 2)
                    If N = 10 Then
                        dArr(K, 10) = tArr(J, 1)
                    Else
                        dArr(K, N) = sArr(I, N)
                    End If
                Next
            End If
        End If
    Next
Next
If K Then Sheet2.Range("A2").Resize(K, UBound(sArr, 2)).Value = dArr
End Sub

bị lỗi rồi bạn ơi