Yoklama Takip Dosyası Hk.

[gshakan88]

Merhaba,

Bir yoklama takip dosyası yapmak istiyorum. Bir anasayfa, anasayfada aylara gidilecek butonlar olacak. Anasayfadaki Öğrenci Listesini güncelleyip ilgili butona basıldığında diğer aylardaki öğrenci listesinin güncellenmesini istiyorum. Ay sayfalarında ve anasayfada basit toplama formülleri bulunuyor. Bunların da tüm aylarda ve anasayfada yeni satırlara kopyalanmasını istiyorum. Bir kısmını kendim oluşturdum. Öğrenci Listesini Güncelle butonunu tamamlayamadım. Konuyla ilgili olarak yardımcı olabilir misiniz?

 

[DoğanD]

Merhaba,

Aşağıdaki kodu dener misiniz?

Sub ogr()
For i = 2 To Sheets.Count
Sheets(i).Range("A5:D100").Value = Sheets("ANASAYFA").Range("A5:D100").Value
Sheets(i).Select
Range("E5:GO" & Sheets(i).Range("A" & Rows.Count).End(xlUp).Row).Select
Selection.FillDown
Next i
End Sub

 

[gshakan88]

Merhaba Doğan Bey,
Elinize sağlık. Çalışıyor. Sadece listedeki öğrenci sayısı azaldığında aylardaki fazla olan satırları temizlemiyor.

 

[DoğanD]

Merhaba,

Aşağıdaki kod ile dener misiniz? Bu arada makro ile yapıyoruz fakat aslında tüm sayfalardaki ilk 4 sütundaki bilgileri için, AnaSayfa sayfanıza direk başvuru vererek çok daha kolay çözülebilirdi. Uzantıyı xlsm görünce direk devam ettim ama bence bunu da bir değerlendirin

Özetle;
Ocak Sayfası:
A5 = EĞER(ANASAYFA!A5<>"";ANASAYFA!A5;"")
B5 = EĞER(ANASAYFA!B5<>"";ANASAYFA!B5;"")
C5 = EĞER(ANASAYFA!C5<>"";ANASAYFA!C5;"")
D5 = EĞER(ANASAYFA!D5<>"";ANASAYFA!D5;"")

Sub ogr()
For i = 2 To Sheets.Count
Sheets(i).Range("A5:D" & Sayfa1.Range("A" & Rows.Count).End(xlUp).Row).Value = Sheets("ANASAYFA").Range("A5:D" & Sayfa1.Range("A" & Rows.Count).End(xlUp).Row).Value
Sheets(i).Select
Rows(Sayfa1.Range("A" & Rows.Count).End(xlUp).Row + 1 & ":" & Range("A" & Rows.Count).End(xlUp).Row + 1).ClearContents
Range("E5:gt" & Sheets(i).Range("A" & Rows.Count).End(xlUp).Row).Select
Selection.FillDown
Next i
Sayfa1.Select
End Sub

 

[gshakan88]

Çok haklısınız. Benim de kafam durmuş. O kadar değişti ki kurgu ben de ne yaptığımı karıştırdım. Bir ara user form ekleyip öğrenciyi o şekilde kaydettiriyordum. Makroya hiç gerek yokmuş. Tekrar teşekkür ederim. Emeğinize sağlık.