işleri sıraya koy renklendir

[mutluedenercan]

hastanedeki sıra numarası gibi , bişi nasıl yapılır

exel in bir hücresine gelen işin konusunu yazacaz ..program hücrenin yanına tarihi otomatik yazacak ...

işleri tarih sırasına göre listeliyecek

tarihinden birgün sonra o satırın rengi sarı

2. gün başka renk

1 hafta sonra o iş silinmemişse o satır kırmızı olacak

mümkünmü

 

[hamitcan]

Bir Module içine;

Sub Kontrol()
    [a4:b5000].Font.ColorIndex = xlAutomatic
For i = 4 To [a65536].End(3).Row
    If Day(Date) - Day(Cells(i, 2)) = 1 Then
    Range(Cells(i, 1), Cells(i, 2)).Font.Color = vbYellow
    ElseIf Day(Date) - Day(Cells(i, 2)) = 2 Then
    Range(Cells(i, 1), Cells(i, 2)).Font.Color = vbBlue
    ElseIf Day(Date) - Day(Cells(i, 2)) > 2 Then
    Range(Cells(i, 1), Cells(i, 2)).Font.Color = vbRed
    End If
Next
End Sub

ThisWorkBook kısmına;

Private Sub Workbook_Open()
[b2] = Date'Bu satırı değiştirdim.
Kontrol
End Sub

Sayfa1'in kod kısmına;

Private Sub CommandButton1_Click()
    s = [a65536].End(3).Row + 1
    Cells(s, 1) = [b1]
    Cells(s, 2) = [b2]
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$1" Then [b2] = Date
    Kontrol
End Sub

 

[mutluedenercan]

Teşekkür

ilk iki satırı nasıl sabitledin ...( o satırlar kaymıyor altı kayıyor , nasıl yapıldığını merak ettim)

B2 dekitarihi otomatik mi yazıyor...( gün değiştikçe b2 o tarihemi gelecek )

 

[hamitcan]

Bölmeleri dondur ile. Menüsünü hatırlamıyorum. (2003'de)
B2 otomatik geliyor.

 

[mutluedenercan]

2007 bölmeleri dondur nasıl,,,,

bu gün tekrar açtım b2 deki tarih hala dünkü tarihi veriyor

renklendirme yazı olarak deyilde tarih ve işi kapsıyacak şekilde arka plan renklenebilirmi

bu programı useformda yapabilirmiyiz ...

işi gireceğimiz bir satır...altta ise işleri sıralıyan ikinci bir pencere ( geçen tarihe göre rengide değişecek tabii)

iş bitiminde o işin yanındaki bir düğme ile ( iş bitti düğmesi) o satırı silem

TEŞEKKÜR

 

[hamitcan]

2007 bölmeleri dondur nasıl,,,,

Görünüm Menüsü>Bölmeleri Dondur

bu gün tekrar açtım b2 deki tarih hala dünkü tarihi veriyor

Koda ekleme yaptım.

Private Sub Workbook_Open()
[b2] = Date'Bu satırı değiştirdim.
Kontrol
End Sub

renklendirme yazı olarak deyilde tarih ve işi kapsıyacak şekilde arka plan renklenebilirmi

font.color ile sonlanan satırları interior.color olarak değiştirip deneyin.

bu programı useformda yapabilirmiyiz ...

Yapılabilir ama benim zamanım yok. Forumdaki arkadaşlardan yardım alarak siz de yapabilirsiniz.

 

[mutluedenercan]

Hocam ,

Private Sub Workbook_Open()
[b2] = Date'Bu satırı değiştirdim.
Kontrol
End Sub

baktım satır aynı değiştirilmiş halini eklememişsiniz

 

[mutluedenercan]

Hocam b2 deki tarih bugünü vermiyor

 

[hamitcan]

Kodu aşağıdaki değiştirin. Burada Sayfa1 yerine ilgili sayfanın ismini (Örn: Sheets("deneme") gibi) de yazabilirsiniz.

Sayfa1.[b2] = Date