• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Daha Önce Girilmiş Verileri Değiştirme ve Üzerine Kaydetme

Hocam yine hata verdi. Hata ekranının ekran görüntüsü aşağıdaki linkte.
Windows 10 Enterprise sürümünü kullanıyorum.

Aşağıdaki kod ile listenin tamamını sorunsuz yazdırabiliyorum ama süzemiyorum işte.

1.png.html



http://dosya.co/rzjll9wceqdy/1.png.html
 
Hocam aşağıdaki kod tüm listeyi yazdırıyor, süzme yapamıyor.


Kod: 
Private Sub yazdir_Click()

    
    Dim sat As Long
    
    sat = [A:M].Find("*", , , , xlByRows, xlPrevious).Row
 
    ActiveSheet.PageSetup.PrintArea = "$A$1:$M$" & sat
    ActiveSheet.PrintOut


End Sub
 
Son düzenleme:
:) Ve oldu! Emeğinize sağlık! Çok ama çok teşekkür ederim.
Bugün sizden çok şey öğrendim. :)
 
Orion1' Alıntı:
Rica ederim.
İyi çalışmalar.:cool:
Genişletmek için tıkla ...

Hocam sizi tekrar rahatsız ediyorum ama küçük birkaç eksiklik kaldı:

1- YAZDIR butonuyla sınıf seçip sorunsuz yazdırıyouz. Ancak öğrenci numaraları küçükten büyüğe sıralanmadığından alınan listeler okuldaki listelerle uyuşmuyor. Yani Ali gerçek listede ilk sıradayken bizim listemizde ortada veya sonda olabiliyor. Bu da dijital karneye not girerken listeden öğrenci aramayı gerektiriyor. Oysa listeler aynı olsa öğretmen sırayla, hızlı hızlı notları girebilir. Yazdırmayla ilgili girdiğiniz kodda sayfanın dikeyliği vs ilgili bir seçim var mı ayrıca? Ben dikey istiyorum ama yatay geliyor; yazıcı aylarıyla ilgili değil.

2- SINIF EKLE butonunda yanlışlıkla "123" yazılsa 123 sürekli listede görünecek; çünkü kullanıcı UserForm üzerinden çalışacak; aplikasyon gizlenecek yani. Dolayısıyla ya sınıf isimlerine biçimsel kısıtlama getireceğiz ki yanlış girilemesin ya da hiç bununla uğraşmayıp bir tane de SINIF SİL butonu ekleyeceğiz.

İlginiz için tekrar teşekkür ediyorum.

Çalışmanın son halinin linki aşağıda. Aplikasyonda şifre yok; direk giriş derseniz açılır.

http://dosya.co/3emthfvugs4l/OPN.xlsm.html


Selam ve saygılarımla.
 
Son düzenleme:
Öğrenci numarasına göremi,ad soyada göremi sıralama Yapılacak?
Ayarın yatay olmasını ben kodlar ile yaptım.Dikey yapılırsa sayfaya sığmıyor.Genişliği daraltırsak bu seferde küçülüyor.Ama isterseniz küçülterek dikey yazdırabiliriz.
 
Orion1' Alıntı:
Öğrenci numarasına göremi,ad soyada göremi sıralama Yapılacak?
Ayarın yatay olmasını ben kodlar ile yaptım.Dikey yapılırsa sayfaya sığmıyor.Genişliği daraltırsak bu seferde küçülüyor.Ama isterseniz küçülterek dikey yazdırabiliriz.
Genişletmek için tıkla ...

Hocam,

Öğrenci numarasına göre olacak; küçükten büyüğe doğru... 9-A deyip YAZDIR dediğimizde, 9-A'daki öğrenciler numaraları küçükten büyüğe doğru olacak şekilde sıralanacaklar.

Hocam dikey yazdıralım, sütunları ayarlayınca sığıyor. Bir sınıf tek sayfaya gelmiş olur böylece.

Tekrar teşekkür ederim.

Selam ve saygılarımla.
 
BedriA' Alıntı:
Hocam,

Öğrenci numarasına göre olacak; küçükten büyüğe doğru... 9-A deyip YAZDIR dediğimizde, 9-A'daki öğrenciler numaraları küçükten büyüğe doğru olacak şekilde sıralanacaklar.

Hocam dikey yazdıralım, sütunları ayarlayınca sığıyor. Bir sınıf tek sayfaya gelmiş olur böylece.

Tekrar teşekkür ederim.

Selam ve saygılarımla.
Genişletmek için tıkla ...
Dosyanız ektedir.:cool:
Link aşağıdadır.:cool:
DOSYAYI İNDİR
..
 

Ekli dosyalar

Orion1, Mustafa Mutlu ve Korhan Ayhan;

Çok teşekkür ederim. Sayenizde program sorunsuz çalışıyor artık! :)

Emeğinize sağlık.
 
Orion1' Alıntı:
Seçilmeden işlem yapmıyor.
Dosya linktedir.:cool:
DOSYAYI İNDİR
Genişletmek için tıkla ...

Çok teşekkürler Evren Hocam.

Programı biraz sadeleştirmeye çalıştım ama SİL ve DEĞİŞTİR butonlarında hata alıyorum: Sil dediğimde siliyor ama "Set k = Range("B2:B" & sonsat).Find(ListBox1.Column(1), , xlValues, xlWhole)" kodunu sarıya boyuyor.

Değiştir dediğimde değiştirdi diyor ama listede bir değişiklik yok.

Son halinin linki aşağıda.

http://dosya.co/nwysjnc3yoz5/OPN--2.DONEM.xlsm.html
 
Konu günceldir.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst