listenin sonundaki satırların gizlenmesi

[berkitay]

okulumuzda kullandığımız ders dağıtım programında sınıf listeleri alırken, 39 satırdan sonra ki satırları gizliyor 40.41 ,42 . satırlar göster deyince gösteriyor ancak liste alınca gizleniyor program linki aşağıda yardımcı olabilirseniz sevinirim.

http://s7.dosya.tc/server11/p1djp0/SINAV_DAGITIM_PROGRAMI.rar.html

 

[hamitcan]

Kodlarınız çok uzun anlamakta zorluk çektim. Ama bahsettiğiniz sayfada aşağıdaki kodu denedim çalıştı. İlgili sayfanın kod kısmına ekleyerek deneyin.

Private Sub Worksheet_Activate()
    Cells.EntireRow.AutoFit
End Sub

 

[berkitay]

ustadım ilginiz için teşekkür ederim ancak kodu girdiğimde bir değişiklik olmadı acaba ben mi yanlış yere giriyorum Size zahmet kaydettiğiniz dosyayı eklerseniz sevinirim.

 

[Ömer BARAN]

Merhaba.

MODULE2'deki Sub SinifListesiYaz(Sinif As String, Sube As String) isimli makroda yer alan aşağıdaki
kırmızı satırları, yeşil olanlarla değiştirerek dener misiniz?

........
    Range(Sayfa16.Cells(8, 2), Sayfa16.Cells(57, 23)).ClearContents
    Range(Sayfa16.Cells(8, 2), Sayfa16.Cells(47, 23)).ClearContents
........
    Satirlar = LTrim(Str(LSatir)) + ":57"
    Satirlar = LTrim(Str(LSatir)) + ":47"