Soru Listeyi Koşula Göre Diğer İki Sayfaya Aktarma Hk.

[cicosz]

Merhaba, elimdeki personel dosyasıyla ilgili yardım istiyorum.
Amacım Genel Personel Listesi'nde önce "kadroSn" ve "iseBaslama1" göre küçükten büyüğe sıralama yaptırıp "istenCikis" kısmı dolu olanlari "Ayrilan" sayfasına, "istenCikis" sütunu boş olanları da "Calisan" sayfasına "Özel Yapıştır" ile kopyalamak istiyorum.
Teşekkürler.

Not: Dosyayı siteye yüklerken hata aldığım için harici bir siteye yükledim.

Giden.xlsx dosyasını indir - download

Giden.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu dosyadaki herhangi bir kod sayfasına ekleyip kullanabilirsiniz.

Sub Aktar()
    Dim syfGenel As Worksheet
    Dim syf As Worksheet
    Dim Say As Integer
    Dim Bak As Integer
    Dim Sayfa As String
    Set syfGenel = ThisWorkbook.Worksheets("Genel_Personel_Liste")
    For Bak = 3 To syfGenel.Cells(Rows.Count, "B").End(xlUp).Row
        If syfGenel.Cells(Bak, "H") = "" Then
            Sayfa = "Calisan"
        Else
            Sayfa = "Ayrilan"
        End If
        Set syf = ThisWorkbook.Worksheets(Sayfa)
        Say = syf.Cells(Rows.Count, "B").End(xlUp).Row + 1
        syfGenel.Rows(Bak).Copy syf.Rows(Say)
    Next
End Sub

 

[cicosz]

Teşekkürler.