Emektar Üye
Excel eksik tarihlerin yerine otomatik tarih ekleme makrosu
Aşağıda örnek verdiğim fotoğrafta ayın 10 ve 11 gözükmemektedir. Makro otomatik satır ekleyerek 10 ve 11 tarihlerini ekliyor.
Bu eksik tarihler bir çok olabilir ayın başka günleri olabilir hiç fark etmiyor.
Kod:
Sub eksikTarihleriDoldur()
Dim sonSatir As Long
Dim tarih As Date
Dim i As Long
' Son satırı bul
sonSatir = Cells(Rows.Count, "A").End(xlUp).Row
' Eksik tarihleri bul ve aralara satır ekleyerek doldur
For i = 1 To sonSatir - 1
tarih = Cells(i, "A").Value
If Cells(i + 1, "A").Value - tarih > 1 Then
Rows(i + 1).Insert
Cells(i + 1, "A").Value = tarih + 1
End If
Next i
MsgBox "Eksik tarihler aralara satır ekleyerek başarıyla dolduruldu!", vbInformation
End Sub