. 
Private Sub Worksheet_Activate()
Dim Dat As Date, Rng As Range, sRng As Range, Rg0 As Range
Dim StrC As String, MyAdd As String
If Day(Date) = 8 And [iA1].Value <> "R" Then '<=|'
2 StrC = Choose(Month(Date), "C", "K", "D", "E", "L", "Y", "S", "T", "J", "U", "M", "P")
StrC = StrC & "R0"
Set Rng = Range([C4], [C65500].End(xlUp))
Set sRng = Rng.Find(StrC, , xlValues, xlPart)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
If Rg0 Is Nothing Then
Set Rg0 = Cells(sRng.Row, "a")
Else
Set Rg0 = Union(Rg0, Cells(sRng.Row, "A"))
End If
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
MsgBox Rg0.Address
' [iA1].Value = "R"'
ElseIf Day(Date) <> 8 Then
[uA1].Value = "GPE" '<=|'
End If
End Sub
Chào các anh chị,
Em muốn viết 1 đoạn code có chức năng: Cứ mối khi đến ngày cuối cùng của tháng thì nó tự động copy vùng có dữ liệu (<>"") và paste vào đúng vùng đó ở dạng Value (giữ nguyên định dạng). Còn các vùng có công thức vẫn được giữ nguyên.
mong các anh chị giúp đỡ. Em làm hoài mà chẳng được
Cảm ơn các anh chị nhiều.
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
If Day(Date + 1) = 1 Then
Range([a5], [a65000].End(3).Resize(, 17)).Copy
[a5].PasteSpecial 3
Application.CutCopyMode = False
[a65000].End(3).Select
End If
End Sub
Thay vì copy paste sao anh không dùng chiêu .Value = .Value cho nó sướng
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
With Range([a5], [a65000].End(3).Resize(, 17))
If Day(Date + 1) = 1 Then .Value = .Value
End With
End Sub
