Soru Veri sayfasından başka sayfaya verileri sıralamak

[Romalı]

Değerli arkadaşlar exelde bilgim kısıtlı sizin yardımlarınızla gerektikçe işimin gereği olarak sizlerin bilgilerine ihtiyaç duyuyorum iyiki değerli değerli dostlar var soruma gelince

Üstatlar eklediğim dosyada kuruluş hizmet hizmet (vefat / ayrıldı / nakil oldu) gibi sayfada yer alan satırların kuruluş yaşlıları sayfasından süzerek Vefat Ayrılan Nakil sayfasına otomatik olarak süzerek bilgi istiyorum.
Makro Veya formülle olabilir.
Belki ilgili sayfalarda vardır bu sorunun cevabı ama armama rağmen bulamadım.a
Değerli arkadaşlar yardımlarınız için şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Deneyiniz.

Sub Aktar()
    
    Dim S1 As Worksheet, S2 As Worksheet, i As Long, sat As Long
    
    Set S1 = Sheets("Kuruluş Yaşlıları")
    Set S2 = Sheets("Vefat  Ayrılan Nakil")
    
    Application.ScreenUpdating = False
    S1.Select
    S2.Range("A3:L" & Rows.Count).ClearContents
    
    sat = 3
    For i = 3 To Cells(Rows.Count, "L").End(xlUp).Row
        Select Case Cells(i, "L")
            Case "VEFAT", "AYRILDI", "NAKİL OLDU"
            Cells(i, "A").Resize(1, 12).Copy S2.Cells(sat, "A")
            sat = sat + 1
        End Select
    Next i
    
    S2.Select
    Application.ScreenUpdating = True
    MsgBox "Aktarıldı", vbInformation
    
End Sub

 

[Romalı]

Üstadım ömer hocam resmen aklım durdu ilgili dosyaya uygulama şansınız varmı gerçekten bu konuda bilgim çok çok sınırlı uygulayamadım. Umarım sizleri cahilliğimle üzmüyorumdur. Allaha emanet olun

 

[Romalı]

veya neler yapılması gerektiği hakkında bilgi olursa başarırım umarım

 

[NADİR YILDIZ]

ömer beyin kodlarını ekledim
Butona basarsanız
sonucu elde edersiniz

 

[Romalı]

Nadir Yıldız Üstadım çok teşekkür ederim emeğinize sağlık. Allah sizden razı olsun.

 

[NADİR YILDIZ]

benim değil üstad ömer beyin makro kodunu butona bağladım.
asıl Allah ondan razı olsun

iyi çalışmalar