Kéo fill xuống
Nói chính xác hơn là NGÀY THÁNG NĂM trong file đã được gõ tầm bậy tầm bạ hết trơn, cái thì dạng DATE, còn cái thì dạng TEXT
Hỏng hiểu! Trong file bạn đang dùng công thức cơ mà, sao lại có code VBA ở đây nữa?
Month(nv.Offset(0, 1)) = Sheet4.cbthang.Value
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NS As Range, Clls As Range
Dim k As Integer
If Target.Address = "$C$4" Then
[A6:D1000].ClearContents
Set NS = Sheet1.Range("C4:C" & Sheet1.[C65536].End(xlUp).Row)
k = 6
For Each Clls In NS
If Month(Clls) = Sheet2.[C4] And Clls <> "" Then
Sheet2.Cells(k, 1).Value = k - 5
Sheet2.Cells(k, 2).Resize(1, 3).Value = Clls.Offset(, -1).Resize(1, 3).Value
k = k + 1
End If
Next Clls
End If
End SubOption Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DS As Range, NS As Range, Loc As Range
Dim Luu As Variant
Application.ScreenUpdating = False
If Target.Address = "$C$4" Then
[A6:D1000].ClearContents
Set DS = Sheet1.[A3].CurrentRegion
Set NS = Sheet1.Range("C4:C" & Sheet1.[B65536].End(xlUp).Row)
Luu = DS.Value
NS.NumberFormat = "mmm"
DS.Sort Key1:=Sheet1.[C4], Order1:=1, Header:=1, _
OrderCustom:=4, Orientation:=1, DataOption1:=xlSortNormal
DS.AutoFilter Field:=3, Criteria1:=Sheet1.[J3]
DS.SpecialCells(xlCellTypeVisible).Copy: [A5].PasteSpecial xlPasteValues
[A6] = "1": [A7] = "2"
[A6:A7].AutoFill Destination:=Range("A6:A" & [B65536].End(xlUp).Row)
Sheet1.AutoFilterMode = False
NS.NumberFormat = "dd/mm/yyyy"
DS.Value = Luu
Target.Select
End If
End Sub
