Verileri listelemek

[1903emre34@gmail.com]

Merhaba,

Ekteki dosyada, sayfa 3 D4 hücresine herhangi bir yazdığım zaman (büyük-küçük harf duyarlı değil) Ocak-Şubat sayfalarda arayıp varsa listelenmektedir, örneğin cc yazdığım zaman sadece 04.01.2021 listelenmesi gerekirken, diğer tarihler listeleniyor, istenen sayfada yapılmıştır, yardımcı olabilir misiniz

 

[ÖmerFaruk]

Bu mudur?

Sub analiz()
Application.ScreenUpdating = False
On Error Resume Next
Range("c6:e65536").ClearContents
sat = 6
    For sayfa = 1 To Sheets.Count
        If Sheets(sayfa).Name <> ActiveSheet.Name Then
        Set s2 = Worksheets(Sheets(sayfa).Name)
            For k = 4 To 34
                If InStr(1, s2.Cells(k, "b"), "(" & UCase(Cells(4, 4)) & " ") Then
                    kactane = UBound(Split(WorksheetFunction.Proper(s2.Cells(k, "b")) & WorksheetFunction.Proper(s2.Cells(k, "c")), WorksheetFunction.Proper(Cells(4, 4))))
                    'If InStr(WorksheetFunction.Proper(s2.Cells(k, "b")) & WorksheetFunction.Proper(s2.Cells(k, "c")), WorksheetFunction.Proper(Cells(4, 4))) >= 1 Then
                    yýll = Year(s2.Cells(1, 3))
                    ayy = Month(s2.Cells(1, 3))
                    günn = k - 3
                    tarihh = günn & "." & ayy & "." & yýll
                    Cells(sat, 4) = Format(tarihh, "dd.mm.yyyy")
                    Cells(sat, 3) = kactane * 4
                    Cells(sat, 5) = s2.Cells(k, 3)
                    sat = sat + 1
                End If
            Next k
        End If
    Next sayfa
Application.ScreenUpdating = True
MsgBox "Ýþlem TAMAM.", vbInformation
End Sub

 

[ÖmerFaruk]

Özel mesaja gerek yok. Buradan yazın lütfen.
Aşağıdaki satırda koyu karakterle yazdığım değişikliği yapın.

Cells(sat, 5) = s2.Cells(k, 2)