• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Verileri listelemek

1903emre34@gmail.com

Altın Üye
Katılım
29 Mayıs 2016
Mesajlar
943
Excel Vers. ve Dili
Microsoft Excel 2013 Türkçe
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
 

Ekli dosyalar

Bu mudur?
C++:
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
 
Ö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)
 
Geri
Üst