Excel de tarihler arasında olmayan tarihleri eklemek satır şeklinde

[papriko22]

Excel de aşağıdaki şekilde verilerimiz var. Yapmak istenilen olmayan tarihleri aralıklara eklemek ve karşılığında boş veri koymak.

Elimizdeki excel
Tarih Veri
01.04.2010 546545
02.04.2010 465445
05.04.2010 445454

İstenilen excel tablosu
Tarih Veri
01.04.2010 546545
02.04.2010 465445
03.04.2010
04.04.2010
05.04.2010 445454
06.04.2010

 

[Ömer]

Merhaba,

Module kopyalarak çalıştırınız.

Sub ArayaYaz()
 
Dim i As Long, son As Long
 
son = Range("A" & Cells(Rows.Count, "A").End(xlUp).Row) - Range("A1")
 
Application.ScreenUpdating = False
 
For i = 1 To son
    If Cells(i, "A") + 1 <> Cells(i + 1, "A") Then
        Rows(i + 1).Insert Shift:=xlDown
        Cells(i + 1, "A") = Cells(i, "A") + 1
    End If
Next i
 
Application.ScreenUpdating = True
 
End Sub

.

 

[T rex]

Merhaba.
Buyurun kodunuz aşğıdadır.
Aktif sayfada A ssütundaki tarihleri sorgular B sütununu önce siler sonra sırası ile oraya yazar.
Kolay gelsin.

Sub tarih_trex()
Dim buyuk As Date, kucuk As Date, sat As Long, tar As Date
Range("B:B").ClearContents
kucuk = WorksheetFunction.Min(Range("A:A"))
buyuk = WorksheetFunction.Max(Range("A:A"))
Application.ScreenUpdating = False
sat = 1
For tar = kucuk To buyuk
    Cells(sat, "B").Value = tar
    sat = sat + 1
Next
Range("B1:B" & sat - 1).NumberFormat = "dd.mm.yyyy"
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı." & vbLf & "T rex", vbOKOnly + vbInformation, "DİNOZORUN HASI"
End Sub

 

[papriko22]

teşekkürler. Sayenizde sorun çözülmüştür.