otomatik sıralamak

[isodem]

bir çek listesi hazirlamak istiyorum tarihlere göre otomatik olarak sıralanmasini istiyorum yani sütunlar şu şekilde ;

A(vade) B(açıklama) C(tutar)
12.08.2007 veli bey 10000 ytl
15.09.2007 ali bey 15000 ytl
20.09.2007 veli bey 10000 ytl
18.08.2007 ali bey 5000 ytl

kendim sıralama yapmadan otomatik olarak en son yazdıgım satirin tarih sırasina göre sıralanmasini ve de günü geldiginde otomatik olarak dolgu rengi olarak sari ile işaretlenmesini istiyorum bunu yapmam mümkün yardımınızı bekliyorum.

 

[Recep İpek]

Aşağıdaki kodları sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [c2:c100]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Range(Cells("a", 2), Cells("c", Target.Row)).Select
Selection.Sort Key1:=Range("a2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodu ilgili sayfanın kod bölümüne kopyalayınız. Sütun sayısını da kendi dosyanıza göre ayarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
Son_Satır = [A65536].End(3).Row
Range("A2:[COLOR=red][B]C[/B][/COLOR]" & Son_Satır).Sort [A2]
End Sub

 

[udentr2002]

sn ripek hocam

Arkadaşın sormuş olduğu konu benide ilgilendiriyor yanlız benim dosyamda sorun çıkarıyor sorunun sebebi ise şu sizin gönderdiğiniz dosyada bilgilerin yazıldığı hücreler 1. stündan başlıyor ve kodlarınız sorunsuz çalışıyor fakat benim dosyamda ise bilgilerim 3. satırdan başlıyor ve gönderdiğim ekli dosyada da renkli olarak gösterdiğim bazı hücrelerim dolu diğerleri boş gönderdiğim dosyayı incelersenz daha iyi anlayacaksınız böyle olunca verileri girdikten sonra sıralama yaparken 3. satır başlık olarak belirlediğim satırdır o satırında yerleri değişiyor sıralamayı sadece 4. satırdan sonra yapabilmesi için ne gibi bir değişiklik yapabilriz ekli dosyada deneyin daha net anlayacaksınız (Ben kodları bu dosyaya göre uyarlamaya çalıştım ama olmadı). artı olarak o renkşi yerlerdeki bilgileri silin öyle deneyin derseniz bunu yapamam orda verilerimin olması şart ilgilenirseniz çok teşekkür ederim

 

[Recep İpek]

Kodları aşağıdaki şekilde değiştiriniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [c4:c100]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Range(Cells(4, "a"), Cells(Target.Row, "c")).Select
Selection.Sort Key1:=Range("a4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Target.Offset(1, -2).Select
End Sub

 

[udentr2002]

hocam

Çok özür dilerim ama denemeye çalıştım olmadı dosyada benim sarı renkli olarak yani kendi dosyamda dolu olarak gösterdiğim hücreler şunlar
d1, d2, f1, f2 hücrelerim dolu kodları uyarlamaya çalıştım ama beceremedim hocam ya
benim dosyamda verilerimin olduğu stünlar a4 den ac2000' e kadar gidiyor ve sıralamayıda c stünundaki veriye göre yapıyor inanın denedim ama yapamadım kodu nasıl değiştirmem lazım hocam özür dileyerek tekrar ilgilenmenizi rica edebilrmiyim?

 

[Recep İpek]

Ekli dosyayı inceleyiniz.

En son ac kolonuna veri girdiğinizde c kolonuna göre sıralama yapmaktadır.

 

[udentr2002]

ripek hocam

Allah razı olsun teşekkürler

 

[isodem]

hocam ellerine saglık yalnız tek bir sorun var dolgu olayını nasil yapıcaz mesela d1 hücresine formulle günü otomatik atmasini nasil yapabiliriz ? bunu baz alarak vadelerin günleri geldiginde kendi dolgu atmasini saglayabilirmiyiz ve vadesi gelen ödemenin ekranda uyari vermesini nasil yaparız excel açık olmadan bi uyari verme seçenegi olabilir mi ?

 

[udentr2002]

sn isodem

öncelikle excel dosyası açılmadan kodlarınız aktif olmaycağı için dosyayı açmadan mesaj yada ileti veren bir şey yapanazsınız
ekli dosyada burdaki değerli bir üstadımızdan öğrendiğim hatırlatma kodlarını istediğiniz şekilde uyarlamaya çalıştım günü geldiğinde dolgu rengini verecektir ve dosyayı açtığınızda eğer o güne ait bir ödeme varsa onu size mesajla bildirecektir inşallah işinizi görürür

 

[udentr2002]

özür dilerim

dosyayı eklemeyi unutmuşum

 

[isodem]

yok be paşam ne özürü emegin için minnettarim çok teşekkürler.

 

[Aretea]

bu konu hakkında bi sorum olacaktı ben bu işlemi yaptım şimdi tüm satırlarım tarih sırasına göre gidiyor bendeki tarih sırası e sütununda bulunmaktadır. Fakat istediğim şey hem tarih sırasına göre gidecek hemde A sütunundaki numara sırasına göre gitmesini istiyorum bunun için ne yapmam lazım?