KÜTÜPHANE Programını değiştiremedim.

[TRONTR]

Neresine dokundu isem Rapor kısmını yapamadım.
Kitap okuma Listesi sayfasını tamamen silip/yada orayı kullanmadan;
RAPOR kısmını yapmak istedim.OLMADI.:yardim:
Yardım Lütfen

 

[muygun]

Merhaba;
Eki inceleyin.
Not: her üç sayfada da sadece mavi alanlara veri girişi yapın.
İyi çalışmalar.

 

[TRONTR]

2-3 aşamadan sonra....

Öncelikle ilgilendiğiniz için çok ama çok teşekürler.İlk aşamayı sayenizde hallettim.
2-3 aşamadan sonra mükemmel olacaktı. Ama ilkinde yarım kaldım
1-Öğrenci listesi sayfasında Aralara değişmeyen tarih basmasını istiyordum.Visual basicte kısman başarılı olabildim.Diğer sütünlara atamadım.
2-En önemli kısım bence raporda;
Rapor kısmı yatay olarak ben planladım ama ister yatay yada ister dikey.Okunan kitaplar Alfabetik sıralamada olmalı.Bunları sisteme işlerken epeyce zaman kaybettiriyor.Alfabetik sırada bir türlü olmadı.
Not: raporun Yatay yada dikey olması hiç önemli değil.Hatta keşke yatay olsaydı diyecem.
ÇOKMU ŞEY İSTEDİM ? TEKRAR TEŞEKKÜRLER.
Avatar size aittir.Beğenirseniz

 

[TRONTR]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [d4:d65536]) Is Nothing Or Target = "" Then Exit Sub
Target.Offset(0, 1) = Format(Now, "dd.mm.yyyy")
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [f4:f65536]) Is Nothing Or Target = "" Then Exit Sub
Target.Offset(0, 1) = Format(Now, "dd.mm.yyyy")
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [h4:h65536]) Is Nothing Or Target = "" Then Exit Sub
Target.Offset(0, 1) = Format(Now, "dd.mm.yyyy")
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [j4:j65536]) Is Nothing Or Target = "" Then Exit Sub
Target.Offset(0, 1) = Format(Now, "dd.mm.yyyy")
End Sub

Sanırım yukarıdaki VB kodları hata vermeseler sorunum çözülecek.Hatayıda birleştirildikleri zaman veriyorlar.Terimler yabancı değil. Simon's BASIC ile yaklaşık aynı ama döngüleri ayıklayamadığım için çakışıyorlar.İlk dört satır çalışyor.Ama diğer dörtlüklerinde çalışması lazım.Çünkü birkaç sütuna tarih atacağım.
Bunları tek sayfada nasıl birleştiririz?

 

[muygun]

Merhaba;
Eki inceleyin.
İyi çalışmalar.

Not: Kodlar alıntıdır.

Ayrıca avatar içinde Teşekkürler.