Soru Tarihe göre numaraları bulma

[NADİR YILDIZ]

B ve C sütunlarındaki tarih ve no ları
E ve F sütunundaki gibi nasıl oluşturabilirim.
B sütununda birden fazla tarih varken numaralar birbirini takip ediyor
E sütunundaki tarihe göre F sütununda numaları nasıl aktarım yapabilirim
birde ilk tarihten küçük tarih varsa 1.5.2022 den önce 30.04.2022 ve daha eski bunları
E ve F sütununa aktarmasın

fonksiyon yada makrolu çözüm hangisi daha pratik olabilir

teşekkürler

 

[ÖmerFaruk]

E3 hücrenize
=$B$3+SATIR()-3

F3 hücrenize
=METİNBİRLEŞTİR("-";1;EĞER($B$3:$B$15=E3;$C$3:$C$15;""))

Aşağı doğru sürükleyerek çoğaltabilirsiniz

 

[NADİR YILDIZ]

Ömer bey teşekkür ederim

sanırım excel versiyonundan kaynaklı #AD? hatası verdi

teşekkürler

 

[ÖmerFaruk]

Aşağıdkai kodu kullanabilirsin.
Kaynak ve hedef aralıkları farklı ise uyarlaman lazım. Ben dosyanıza göre yaptım.

Sub Birleştir()
Dim row As Integer, Dict1 As Object, MinDate As Date, MaxDate As Date
   Set Dict1 = CreateObject("Scripting.Dictionary")
   MinDate = Range("B3")
   MaxDate = WorksheetFunction.Max(Range("B3:B" & Range("B3").End(xlDown).row))
   For i = MinDate To MaxDate
      Dict1.Add i, ""
   Next i
   For i = 3 To Range("B3").End(xlDown).row
      If Range("B" & i) >= MinDate Then
         Dict1(CDate(Range("B" & i))) = Dict1(CDate(Range("B" & i))) & "-" & Range("C" & i)
      End If
   Next i
   For Each Key In Dict1.Keys
      Range("E3").Offset(row, 0) = Key
      Range("E3").Offset(row, 1) = Mid(Dict1(Key), 2, Len(Dict1(Key)))
      row = row + 1
   Next Key
End Sub

 

[NADİR YILDIZ]

Teşekkürler ömer bey