ilgili tarihe göre satırları eşleştirmek

[Rulemaster]

Sayın arkadaşlar,

Elimdeki tabloda bulunan verileri SQL bağlantısı ile ERP programından çekiyorum.
Ama veri yazılmayan günler boş olarak geliyor.

Örneğin: 9 Mayıs ile 30 Ekim arasındaki tarih aralığında her veriyi ilgili tarihin karşısına düşürmem gerek
Veri olmayan tarihlerde boş olarak kalabilir.
B sütunu normal gün sırasına göre gitmektedir. D sütununda tarihe göre sağ tarafında olan verileri B sütununa nasıl yerleştirebilirim.
Saygılarımla

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu bir modüle kopyalayıp, çalıştırın.
Kodlar aktif sayfada istemiş olduğunuz işlemi gerçekleştirecektir.

Sub test()
    Dim Bak As Long
    Dim Fark As Integer
    Application.ScreenUpdating = False
    For Bak = 2 To Cells(Rows.Count, "B").End(xlUp).Row
        If Cells(Bak, "D") = "" Or Cells(Bak, "B") = "" Then GoTo Tamamlandi
        Fark = Cells(Bak, "D") - Cells(Bak, "B")
        If Fark > 0 Then
            Range("D" & Bak & ":O" & Fark + Bak - 1).Insert Shift:=xlDown
            Bak = Bak + Fark + 1
        End If
            
    Next
Tamamlandi:
    Application.ScreenUpdating = True
    MsgBox "Tamamlandı."
End Sub

 

[Rulemaster]

Muzaffer Bey teşekkür ederim. Elinize sağlık.
Ancak makrolu dosya kullanamıyoruz.
Fonksiyon çözümleri ile eşleştirebilir miyim?

 

[Muzaffer Ali]

Yeni bir sayfa ekledim.
B sütunun tamamını kopyalayıp yeni sayfanın B kolonuna kopyaladım.
D2'ye =EĞERHATA(DÜŞEYARA($B2;Sayfa1!$D:$O;SÜTUN()-3;0);"") formülünü yazıp ilgili hücrelere çoğalttım.
Daha sonra hücre biçimlendirmeleri olduğu gibi gelmediği için yeniden biçimlendirmeleri yaptım.
İsterseniz son aşama olarak formüllerden kurtulmak için yeni sayfadaki tüm hücreleri kopyalayıp Özel Yapıştır / Değerleri seçerek formülleri kaldırabilirsiniz.

 

[Rulemaster]

Muzaffer Bey bu çok güzel olmuş.
Kusursuz çalışıyor.
Emeğinize sağlık. Çok makbule geçti.