Nöbet Listesi Yapma

[baris1987]

Öncelikle hepinize kolay gelsin benim sorum şu şekilde bir nöbet listesi yapmak ile ilgili
Ek teki dosyada sayfa 1 de bulunan listede nöbet tutan personeller ve nöbet tuttuğu aylarda "x" işareti ile gösterilmekte. Benim istediğim sayfa 2 kısmına ad soyad bölümünde boşluklar olmadan liste halinde sıralı bir biçimde sayfa 1 deki kişilerin sayfa 2 de listelenmesi. Dolu say gibi bir formül aklıma geldi ama çözemedim.
Yardımlarınız için şimdiden teşekkür ederim.

 

[Asri]

Dosyanın vba bölümünde modul1 e yapıştırın ve dosyayı makro içeren .xlsm dosya olarak kaydedin.

Sub Sayfa_kopyala()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set sh1 = Sheets("Sayfa1")
    Set sh2 = Sheets("Sayfa2")
    
    sh2.Select
    sonsatir = Cells(Rows.Count, "A").End(3).Row
    Range("A2:AF" & sonsatir).ClearContents
    Range("A2").Select
    
    sh1.Select
    sonsatir = Cells(Rows.Count, "A").End(3).Row
    Range("A3:AF" & sonsatir).Select
    Selection.Copy
    
    sh2.Select
    Range("A2").Select
    ActiveSheet.Paste
    
    sonsatir = Cells(Rows.Count, "A").End(3).Row
    For i = sonsatir To 2 Step -1
      isim = Cells(i, "A").Value
      If isim = "" Then Rows(i).Delete
    Next i
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Range("A2").Select
End Sub

 

[baris1987]

makrosuz formülle olmaz mı hocam bu arada ilgilendiğiniz için teşekkür ederim. Şirketin güvenlik ayarları makro yapılmasına izin vermiyor