sınıf kitaplık takip

[kjan326300]

forumdaki bir arkadaş eklediğim excel dosyasını kullanabilmem için hazırlamıştı. ancak öğrencimin kitabı hangi gün aldığını takip edebilmem gerekiyor. kitap nosunu girdiğimde o günün tarihini de otomatik yazabilir miyim. teşekkürler şmdiden

 

[Murat OSMA]

Tarihi nereye yazacaksınız ?

 

[kjan326300]

tarih için ayrı bir sütun mu açmam gerekir. kitabın adı olan kısma, aynı yere yazdırabilir miyiz. Son seçenek ayrı bir satır sütuna da olsa olur. aslolan ilgili kitabın o gün tarihli olması.

 

[Murat OSMA]

Öncelikle mesajınızı görmedim, kusura bakmayın...

■ Evet... İlerisi için tarihi ayrı bir sütunda göstermeniz daha mantıklı olur.

Tüm kitap numarası sütunlarından sonra yeni bir sütun ekleyin ve şu kodu sayfanın kod penceresine yapştırın;

[SIZE="2"][FONT="Trebuchet MS"]Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 Or Target.Column = 7 Or Target.Column = 10 _
    Or Target.Column = 13 Or Target.Column = 16 Or Target.Column = 19 _
    Or Target.Column = 22 Or Target.Column = 25 Or Target.Column = 28 Then
    Target.Offset(0, 1).Value = VBA.Date
    End If
End Sub[/FONT][/SIZE]

Ayrıca bir öneri: gereksiz satır sütun renklendirmelerini ve kenarlıkları kaldırın...

 

[kjan326300]

Teşekkürler iyi ki varsınız. Sorun halloldu ve çok makbule geçti. Tavsiyelerinize de uydum

 

[Murat OSMA]

Rica ederim, iyi günler...