Tarih ve Saate göre dizim

[biziz]

Ekteki dosyada yeralan tabloya yeni veri girdikçe girdiğim tüm veriler önce tarih sonra da saat sırasına göre dizilsin istemekteyim.

Yardımcı olabilecek olan varsa sevinirim.

İlgilenenlere şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayınız. G sütununa işlem yapınca kod çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, [G2:G65000]) Is Nothing Then Exit Sub
    Range("B2:G" & Rows.Count).Sort Key1:=Range("D2"), Key2:=Range("G2")
    
End Sub

.

 

[biziz]

TEŞEKKÜRLER

Tam istediğim şekilde çalışmakta.

 

[biziz]

Öncelikle yardımın için teşekkür ederim. Ekte bulunan dosyada Sayfa 1 ve Sayfa 2 de vermiş olduğun kodu girdim. Sayfa 1 ve Sayfa 2 verileri Sayfa 3 den almakta. Sayfa 3 de yaptığım değişiklikler Sayfa 1 de görünmekle birlikte, Sayfa 1 de saati elle değiştirmeden sıralamayı yapmamakta.

Eğer sana zahmet olmayacaksa Sayfa 3 de yaptığım değişikliklerin Sayfa 1 de kendiliğinden sıralanmasını istemekteyim.

Şimdiden her koşulda teşekkür ederim.

(Makrolu dosyayı koyamadım, ekteki aynı dosyadır)

 

[Ömer]

Diğer kodları silip sadece Sayfa3 ün kod sayfasına;

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim S1 As Worksheet, S2 As Worksheet
 
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
 
If Intersect(Target, [M2:N65000]) Is Nothing Then Exit Sub
 
S1.Range("B2:G" & Rows.Count).Sort Key1:=S1.Range("D2"), Key2:=S1.Range("G2")
S2.Range("B2:G" & Rows.Count).Sort Key1:=S2.Range("D2"), Key2:=S2.Range("G2")
 
End Sub

Sayfa3, M ve N sütunlarına veri girince kod çalışır.

.

 

[biziz]

Nasıl teşekkür ederim bilmiyorum, elinize sağlık, inanın çok makbule geçti.

 

[Ömer]

Rica ederim, işinize yaradığına sevindim.

İyi çalışmalar..

 

[biziz]

Utanarak bir hususta daha yardım talep edecektim. Ana sayfada yani Sayfa 3 te veri girilmediği zaman diğer iki sayfada boş alanlarda "0" yazmakta bu yüzden sıralamada da en üstte yeralmaktalar. Bu sorunu çözmek mümkün müdür?

 

[Ömer]

Sorunuzu anlayamadım, örnek ekleyerek açıklarmısınız..

.

 

[biziz]

ekteki dosyada görebileceğiniz üzere Sayfa 3 te 7. satır sonrasını boş bıraktım. Boş bırakmış olduğum satırlara karşılık gelen Sayfa 2 ve Sayfa 1 deki satırlarda tarih ve saat 0 olarak görünmekte ve de listenin en başına yerleşmekte. Bunun bir çözümü mevcut mudur?

Makro içeren dosyayı ekleyemiyorum, uygulamanın makrosuz hlini ekledim.