Giúp viết Code: Nếu Cell D9 còn trống thì cell D9 có giá trị bằng Cell B9... (1 người xem)

[Hong.Van]

Em nhờ Thầy cô & anh chị giúp em viết code trên Module như sau

Nếu cell D9 chưa có số liệu thì cell D9 có giá trị bằng cell B9, nếu cell D9 đã có số liệu thì khi chạy code số liệu của cell D9 không thay đổi.

Xin xem File đính kèm (trong file có 2 sheet, Sheet "Bandau" là khi chưa chạy code, còn Sheet "KetQua" là đã chạy code.
Em cảm ơn

 

[hoangvuluan]

Dùng thử macro sau:

Sub filDate()
Dim ra As Range, i As Long
    Set ra = Sheet2.Range("B9") ' diem bat dau xu ly - neu can thay doi o day - ke ca ten sheet'
    Set ra = ra.Resize(ra.End(xlDown).Row - ra.Row + 1, 3) ' cot thu 3 se xu ly - can thi thay doi '
    For i = 1 To ra.Rows.Count
        If ra(i, 3) = "" Then ra(i, 3) = ra(i, 1)
    Next
End Sub

 

[Hong.Van]

Dùng thử macro sau:

Sub filDate()
Dim ra As Range, i As Long
    Set ra = Sheet2.Range("B9") ' diem bat dau xu ly - neu can thay doi o day - ke ca ten sheet'
    Set ra = ra.Resize(ra.End(xlDown).Row - ra.Row + 1, 3) ' cot thu 3 se xu ly - can thi thay doi '
    For i = 1 To ra.Rows.Count
        If ra(i, 3) = "" Then ra(i, 3) = ra(i, 1)
    Next
End Sub

Cảm ơn anh đã giúp đỡ!
Nhưng ý em là chạy code ở Sheet nào thì cho kết qủa tại sheet đó luôn.
Anh vui lòng giúp em chỉnh sửa lại code.

 

[hoangvuluan]

Chỉ cần thay từ Sheet2 thành Activesheet là được

 

[TrungChinhs]

Bạn thử code này xem ?

Sub Macro1()
    Range("d9:d" & [b65000].End(3).Row).SpecialCells(4) = "=RC[-2]"
End Sub