Điền ngày hiện tại vào những ô trống theo điều kiện

[AnhThu-1976]

Nhờ anh chị giúp, em có ghi mô tả trong file
Em xin cảm ơn

 

[Thóc Sama]

Thử chơi chơi cái cũng chạy được
Bạn thử xem!
Sub abc()
Dim lr As Long, i As Long
lr = Sheet1.Range("K" & Rows.Count).End(xlUp).Row
For i = 10 To lr
If Cells(i, 11) <> "" And Cells(i, 2) = "" Then
Cells(i, 2).Value = "=today()"
End If
Next i
End Sub

 

[AnhThu-1976]

Thử chơi chơi cái cũng chạy được
Bạn thử xem!
Sub abc()
Dim lr As Long, i As Long
lr = Sheet1.Range("K" & Rows.Count).End(xlUp).Row
For i = 10 To lr
If Cells(i, 11) <> "" And Cells(i, 2) = "" Then
Cells(i, 2).Value = "=today()"
End If
Next i
End Sub

Như vậy thì ngày mai mở file ra thì ngày today thành ngày 11/05/2022 rồi bạn, làm sao để nó được paste values luôn được không bạn

 

[bebo021999]

Option Explicit
Sub dienngay()
Dim cell As Range
    For Each cell In Range("K9:K" & Cells(Rows.Count, "K").End(xlUp).Row).SpecialCells(xlCellTypeConstants)
        If IsEmpty(cell.Offset(0, -9)) Then cell.Offset(0, -9).Value = Date
    Next
End Sub

 

[BuiQuangThuan]

Như vậy thì ngày mai mở file ra thì ngày today thành ngày 11/05/2022 rồi bạn, làm sao để nó được paste values luôn được không bạn

Thêm cái này vào chắc là được

Cells(i, 2).Value=Cells(i, 2).Value

 

[bebo021999]

Như vậy thì ngày mai mở file ra thì ngày today thành ngày 11/05/2022 rồi bạn, làm sao để nó được paste values luôn được không bạn

Mai mở thử xem nó có thay đổi không nhé? Cells(i,2) lúc này <>"" rồi mà.