Tarihleri listelenmesi hakkında

[1903emre34@gmail.com]

Merhaba,

D4 hücresine ab yazdığım zaman, aylar sayfasında bulunan ab veya AB olanların tarihleri aşağıdaki gibi listenmesi için ve kodlarda nasıl değişiklik yaparız. (Kodların büyük veya küçük harflere dikkate alması)

 

[YUSUF44]

Aşağıdaki gibi dener misiniz?

Sub analiz()
Application.ScreenUpdating = False
On Error Resume Next
Range("d6:d65536").ClearContents
sat = 6
    For sayfa = 1 To Sheets.Count
        If Sheets(sayfa).Name <> ActiveWorkbook.Name Then
        Set s2 = ThisWorkbook.Worksheets(Sheets(sayfa).Name)
            For k = 4 To 34
            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
                    sat = sat + 1
                End If
            Next k
        End If
    Next sayfa
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

 

[1903emre34@gmail.com]

Teşekkürler,