Excel eksik tarih ekleme

[SnakErdem]

https://www.hizliresim.com/7r61tds

İyi forumlar, fotoğrafta gözüktüğü gibi tarihler arasında ayın 15,18,19 yok bunları aynı bu şekilde sütun ekleyip nasıl yazdırabilirim.

Böyle çok fazla veri olduğu için otomatik bir sistem olması lazım

 

[hasankardas]

A sütununda olduğunu varsaydım. Diğer Husus verilerin sıralı olduğunıu düşündüm
B1 satırına kopyalayıp çoğaltınız
=EĞER(A1-A2<-1;"Tarihi Kontrol ediniz";"")

 

[SnakErdem]

A sütununda olduğunu varsaydım. Diğer Husus verilerin sıralı olduğunıu düşündüm
B1 satırına kopyalayıp çoğaltınız
=EĞER(A1-A2<-1;"Tarihi Kontrol ediniz";"")

Cevabınız için teşekkür ederim demek istediğim 15 yoksa araya sütün ekleyip 15i eklesin

 

[emreVBA]

Aşağıdaki VBA kodu, A sütunundaki tarihleri tarayacak, eksik olan tarihleri bulacak ve altlarına yeni bir satır ekleyerek eksik tarihleri dolduracaktır.

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

 

[SnakErdem]

Aşağıdaki VBA kodu, A sütunundaki tarihleri tarayacak, eksik olan tarihleri bulacak ve altlarına yeni bir satır ekleyerek eksik tarihleri dolduracaktır.

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

Çok teşekkür ederim Emre Bey

 

[Necdet]

Merhaba,

Alternatif olsun. Verinin A1 den itibaren olduğu varsayılmıştır.

Sub Makro1()
   
Dim i As Long
Dim fark As Integer

For i = Cells(Rows.Count, "A").End(3).Row To 2 Step -1
   
    If Not Cells(i, "A") = Cells(i - 1, "A") + 1 Then
        fark = Cells(i, "A") - Cells(i - 1, "A")
        Rows(i & ":" & i + fark - 2).Insert shift:=xlDown
    End If
   
Next i
   
i = Cells(Rows.Count, "A").End(3).Row
Range("A1:A" & i).DataSeries Date:=xlDay

End Sub