Birleşik sütunda arama ve aktarma

[runfile]

Merhaba;
Excel de şöyle bir arama için visual basic kodunu nasıl yazabilirim?
örn: 3 sütun birleştirilmiş ve tarih bilgisi girilmiş. ben bu tarihe göre arama yapmak istiyorum.ve bulunan hücreleri bir sayfada listelemek istiyorum.
Benzer bir konu varsa lütfen kusuruma bakmayın.
İlginize şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Sorunuzu küçük bir örnek dosya ekleyerek detaylı açıklarmısınız.

 

[runfile]

Örneğin ekteki dökümanda ilk üç sütunu birleştirilmiş olan tarih sütununda arama yapıp sonuçlarını başka bir sayfada listelemek istiyorum.

 

[Ömer]

Örneğin ekteki dökümanda ilk üç sütunu birleştirilmiş olan tarih sütununda arama yapıp sonuçlarını başka bir sayfada listelemek istiyorum.

Bu şekilde deneyin.

Sub Raporla()
 
    Dim c As Range, Adr As String, sat As Long, Sv As Worksheet
    
    Set Sv = Sheets("veri")
    
    Application.ScreenUpdating = False
    
    Sheets("rapor").Select
    Range("4:" & Rows.Count).Clear
 
    sat = 4
    With Sv.Range("A:C")
        Set c = .Find(Range("M2"), LookIn:=xlFormulas, LookAt:=xlWhole)
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                Sv.Range("A" & c.Row & ":J" & c.Row).Copy Cells(sat, "A")
                sat = sat + 1
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        End If
    End With
 
End Sub

Dosya ektedir.

.