yıla göre listeleme

[igultekin2000]

iyi günler; 2014-2018 arası detay bilgilerim oluyor. FIS_DTY sayfasına ilgili yıla ait FİŞ' in detayının gelmesine çalışıyorum. Düşeyara ile denedim ama sonuca ulaşamadım. Teşekkürler.

 

[çıtır]

Dosyanızın Formülle çözümü.Diğer yıl sayfalarını oluşturarak deneyebilirsiniz.

 

[Mustafa MUTLU]

Macro kodunuz..

Sub MUSTAFA()
Dim s As Worksheet
Dim a As Long, b As Long, c As Long
Dim MM
Set s = Sheets("FIS_DTY")
Sheets("FIS_DTY").Range("A4:I65536").ClearContents
MM = 4
For a = 1 To Sheets.Count
    If s.Cells(2, "A") Like Sheets(a).Name Then
        For b = 2 To Sheets(a).Cells(65536, "A").End(3).Row
        If s.Cells(2, "B") = Sheets(a).Cells(b, "B") Then
            For c = 1 To 9
            s.Cells(MM, c) = Sheets(a).Cells(b, c)
            Next
            MM = MM + 1
        End If
        Next
    End If
Next
End Sub

 

[igultekin2000]

Teşekkürler

Dosyanızın Formülle çözümü.Diğer yıl sayfalarını oluşturarak deneyebilirsiniz.

anladığım kadarıyla her yıl için yeni sayfa oluşturup aynı formüllerle işlemi yapabilirim. Teşekkürler.

 

[Mustafa MUTLU]

Yıl yazan yer sayfa adıdır. İster yıl yazın ister a,b,c gibi isim verin fark etmez.
Burada Önemli olan şey, A2 ye yazılan sayfa adı dır.

 

[igultekin2000]

Sorunsuz çalışıyor

Yıl yazan yer sayfa adıdır. İster yıl yazın ister a,b,c gibi isim verin fark etmez.
Burada Önemli olan şey, A2 ye yazılan sayfa adı dır.

Teşekkürler sorunsuz çalışıyor, ben cevabı formülle çözümde yazmıştım, sizin çözümü henüz görünmüyordu. daha pratik çözüm oldu. tekrar teşekkürler, iyi çalışmalar.

 

[Mustafa MUTLU]

Teşekkürler sorunsuz çalışıyor, ben cevabı formülle çözümde yazmıştım, sizin çözümü henüz görünmüyordu. daha pratik çözüm oldu. tekrar teşekkürler, iyi çalışmalar.

Rica ederim.
İşinizi görüyorsa ne mutlu.
İyi çalışmalar..