tarihe gore listeleme hk.

[zetkatamet]

Arkadaslar,
Ekteki dosyada doneme gore listeleme hakkinda yardimci olabilirmisiniz. Tesekkurler.

 

[Orion1]

Dosyanız ektedir.

Sub listele()
Dim ay As Byte, yil As Integer, i As Long, sat As Long
Sheets("INDEX").Select
Application.ScreenUpdating = False
Range("H9:N65536").ClearContents
ay = Range("B1").Value
yil = Range("F1").Value
sat = 9
With Sheets("YAKIT")
    For i = 4 To .Cells(65536, "C").End(xlUp).Row
        If ay = Month(.Cells(i, "C").Value) And yil = Year(.Cells(i, "C").Value) Then
            Range("H" & sat & ":N" & sat) = .Range("C" & i & ":I" & i).Value
            sat = sat + 1
        End If
    Next i
End With
Application.ScreenUpdating = True
MsgBox "İşlem tamadır", vbOKOnly + vbInformation, Application.UserName
            
End Sub

 

[zetkatamet]

Evren bey, cok tesekkurler. Mutlaka bu cozumden de birileri faydalanacaktir, fakat formullerle cozum konusunda yardimci olabilirmisiniz. Iyi calismalar.

 

[Ali]

Dosyanız ektedir.

.

 

[zetkatamet]

Ali bey,
Cok tesekkurler.
Saygilar.
İyi calismalar.

 

[Orion1]

Ali bey,
Cok tesekkurler.
Saygilar.
İyi calismalar.

Hani bize teşekkür.!
Yoksa fonksiyon ile yapmadığım içinmi?
Eğer öyleyse sorunuzu Fonksiyonlar bölümünde sorunuz bizde boşuna kürek çekmeyelim.Site kurallarındada bu durumu söylüyor zaten sorunuzu ugun bölümde sorunuz diye.
Kolay gelsin.

 

[zetkatamet]

Tesekkurler Ali bey.iyi calismalar.

 

[zetkatamet]

Evren bey, sizede 3.mesajda tesekkur etmistim. Tekrar tesekkur ederim. Emeginize saglik. Iyi calismalar. Saygilar.

 

[Orion1]

Evren bey, sizede 3.mesajda tesekkur etmistim. Tekrar tesekkur ederim. Emeginize saglik. Iyi calismalar. Saygilar.

rica ederim.
Sonradan gördüm.
Saygılar benden.

 

[Ali]

Ali bey,
Cok tesekkurler.
Saygilar.
İyi calismalar.

Rica ederim.

.