Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [l3]) Is Nothing Then
Dim Sh As Worksheet, Rng As Range, sRng As Range
Dim Jj As Byte, MyAdd As String, Format_ As String, Dat As Date
Set Sh = Sheet1: Set Rng = Sh.Range(Sh.[b4], Sh.[b65500].End(xlUp))
Format_ = Rng.NumberFormat: Rng.NumberFormat = "MM/DD/yyyy"
[b6].Resize(Rng.Rows.Count, 13).ClearContents
For Jj = 0 To 4
Dat = Jj + [l3].Value
Set sRng = Rng.Find(Format(Dat, "mm/DD/yyyy"), , xlFormulas, xlWhole)
If sRng Is Nothing Then
MsgBox "Nothing", , Dat
Else
MyAdd = sRng.Address
Do
[b65500].End(xlUp).Offset(1).Resize(, 13).Value = sRng.Resize(, 13).Value
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
Next Jj
[b6].Resize(Rng.Rows.Count).NumberFormat = "DD/mm/YYYY"
Rng.NumberFormat = "dd/mm/yyyy"
End If
End SubLời đầu tiên mình cũng xin cám ơn bạn đã nhiệt tình giúp đỡ . Nhưng ý của mình là thế này :
cách đơn giản nhất Bạn tạo thêm 1 cột phụ bên sheet 1 sau đó dùng hàm VLOOKUP bên sheet 2 để lọc.
Bạn có thể cho mình một mẫu ví dụ cụ thể không ạ ! Hoặc công thức để mình xem nha bạn .
Có thể là như thế này
Private Sub CommandButton1_Click()
Dim Vung As Range, Ws As Worksheet
Range([a6], [a6].End(xlDown).Offset(1)).Resize(, 15).Clear
Set Ws = Sheets("DSKH tonghop")
Set Vung = Ws.Range(Ws.[b4], Ws.[b5000].End(xlUp))
With Vung
.Offset(0, -1).Resize(, 15).AutoFilter Field:=2, Criteria1:=">=" & Range("dau"), Criteria2:="<=" & Range("cuoi")
.Offset(1, -1).Resize(, 15).SpecialCells(12).Copy [a6]
.AutoFilter
End With
Range([b6], [b6].End(xlDown)).Offset(0, -1) = [row(A:A)]
End SubBài này có thể dùng Pivot. Nhưng Tôi chưa rành về nó, để cho các cao thủ về pivot làm giúp nhé!
