tự động copy dự liệu sang sheet khác (có ĐK)

gacondj

Thành viên mới
Tham gia ngày
25 Tháng ba 2015
Bài viết
32
Được thích
1
Điểm
165
Nhờ các bác giúp em bảng dữ liệu này với,
Em muốn các Sheet A, B, sẽ tự động trả dữ liệu theo hàng trong Sheet DATABASE theo điều kiện cột giá trị 2 là A, B và theo ngày từ 1/7 đến ngày 6/7 thì làm như nào ạ?
em sợ copy sang dễ nhầm dữ liệu,
Mong tin của các bác sớm, Cảm ơn các bác!
 

File đính kèm

Lần chỉnh sửa cuối:

gacondj

Thành viên mới
Tham gia ngày
25 Tháng ba 2015
Bài viết
32
Được thích
1
Điểm
165
Bác nào giúp em với đang cần gấp, em cám ơn nhiều
 

hpkhuong

######
Tham gia ngày
20 Tháng năm 2011
Bài viết
4,619
Được thích
4,062
Điểm
560
Nơi ở
Quận 2 - TP.HCM
file đây ạ, sơ suất quá
Cho code vào module
Đứng tại sheet A, chạy code thì nó cập nhập dữ liệu mã A, Đứng tại sheet B chạy thì nó cập nhật mã B,...tương tự vậy cho các mã khác
Mã:
Public Sub GPE()
Dim sArr, dArr, I As Long, J As Long, K As Long
sArr = Sheet1.Range("B2").CurrentRegion.Value
ReDim dArr(1 To UBound(sArr), 1 To 4)
    For I = 2 To UBound(sArr)
        If sArr(I, 2) = ActiveSheet.Name Then
            If sArr(I, 4) >= [D1].Value And sArr(I, 4) <= [D2].Value Then
                K = K + 1
                dArr(K, 1) = K
                For J = 1 To 3
                    dArr(K, J + 1) = sArr(I, J)
                Next J
            End If
        End If
    Next I
    Range("C1").CurrentRegion.Offset(4).ClearContents
    Range("C4").Resize(K, 4).Value = dArr
    Range("C4").Resize(K, 4).Borders.LineStyle = 1
End Sub
 
Top Bottom