hucre boşsa bugunun tarıhını yazdırmak

[kakara]

merhaba ustadlarım sızden rıcam ekte gönderdıgım dosyada tarıh kısımları boş olan hucrelere makro ıle bugunun tarıhını atamak ıstıyorum. yardımlarınız ıcın sımdıden tesekkurler.

 

[Ömer]

Merhaba

Deneyiniz.

Sub tarih_yaz()
    On Error Resume Next
    Range("M2:M" & Cells(Rows.Count, "A").End(3).Row).SpecialCells(xlCellTypeBlanks) = Date
End Sub

 

[kakara]

tesekkurler @Ömer ustadım

 

[kakara]

ustadlarım pekı soyle bırsey sorsam yapılabılır mı acaba boş hucrenın sol tarafındakı hucre yanı cıkıs ve gelıs tarıhlerınde cıkıs tarıhı doluysa gelıs tarıhı boş ise bugunun tarıhı cıkıs tarıhı boş gelıs tarıhı boş ise 0 yazdırma ımkanımız var mıdır ? ılgınız ıcın tesekkur ederım

 

[Ömer]

Deneyiniz.

Sub tarih_yaz()

    Dim son As Long, hcr As Range
    
    son = Cells(Rows.Count, "A").End(3).Row
    
    On Error Resume Next
    For Each hcr In Range("M2:M" & son).SpecialCells(xlCellTypeBlanks)
        If Cells(hcr.Row, "L") <> "" Then
            hcr.Value = Date
        Else
            hcr.Value = 0
            hcr.NumberFormat = "General"
        End If
    Next hcr
    
End Sub