Veri Girdikçe Belli Bir Sütuna Göre Sıralama

[Ali Faruk]

Arkadaşlar benim bir tablom var ve bu tabloya her gün veri girişi oluyor.

Benim istediğim bu tabloya veri girdikçe girdiğim veriyi uygun sırasına kendisi sokması.

Tam anlatamadım ama örnekte daha iyi anlaşılacaktır.

dosyanın orijinalini ekledim. Yardımlarınızı bekliyorum şimdiden teşekkürler.

 

[İhsan Tank]

sıralama neye göre olacak söylerseniz yardım etmeye çalışayım

 

[Ali Faruk]

Adres sırasına göre olmasını istiyorum.

 

[İhsan Tank]

Adres sırasına göre olmasını istiyorum.

merhaba
sayfanızın kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:F" & Cells(65536, "B").End(xlUp).Row)) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Column = 6 Then
Range("B2:F" & Cells(65536, "B").End(xlUp).Row).Sort key1:=Range("D2"), key2:=Range("F2")
End If
End Sub

bu kodu yazınız. D sütununa göre sıralama yapar en son F sütununda işlemden sonra aktif olur.
dosyanız ekte

 

[Ali Faruk]

İhsan Bey öncelikle teşekkür ederim.

Ben yaptım ama olmadı

 

[Ali Faruk]

verdiğiniz kodu kod sayfasına kopyaladım kaydettim.

Örnek olsun diye bir adresi elle yazarak girdim f sütunundan sonra enter'a basınca sıraya girmedi

 

[İhsan Tank]

eki incelediniz mi_?

 

[Ali Faruk]

evet sizin verdiğiniz örnek üzerinde veri eklemesi yaptım sıraya girmedi acaba yanlış yaptığım birşey olabilir mi?

 

[İhsan Tank]

B 'den itibaren F sütununa kadar veri girmelisiniz

 

[Ali Faruk]

İhsan Bey;

B,C,D,E,F sütunlarının hepsine veri giriyorum F sütununda Enter yapıyorum ama sıraya girmiyor.

 

[Ali Faruk]

excel 2003 türkçe kullanıyorum bir fark olur mu?

Birde sizin dosyanızı ilk açtığımda makrolarla ilgili hata uyarısı veriyor.

 

[İhsan Tank]

bende gayet güzel çalışıyor
makro güvenlik ayarlarını kontrol edin

 

[Ali Faruk]

İhsan Bey;

Çok teşekkür ederim makro güvenlik ayarlarını düşürünce süper çalıştı.

Bana çok yardımcı oldunuz.

 

[Ali Faruk]

İhsan bey son bir soru sormak istiyorum.

Tablonun orijinalinde birçok veri var acaba eklesem kodu ona göre düzenleyebilir misiniz?

Çok zamanınızı aldım ama kusura bakmayın.


" P " sütununa en son veriyi girince satırı olduğu gibi sıraya sokabilir mi? Ekteki tabloyu orijinal ile değiştiricem.

 

[İhsan Tank]

İhsan bey son bir soru sormak istiyorum.

Tablonun orijinalinde birçok veri var acaba eklesem kodu ona göre düzenleyebilir misiniz?

Çok zamanınızı aldım ama kusura bakmayın.


" P " sütununa en son veriyi girince satırı olduğu gibi sıraya sokabilir mi? Ekteki tabloyu orijinal ile değiştiricem.

ya dosyayı gönderin yada ona benzer bir dosya gönderin

 

[Ali Faruk]

Dosyayı ilk konuyu açarken ekte verdiğim örnek ile değiştirdim.
Orijinal dosya orada mevcut. Burayada ekledim.

Bir satırda " B " sütunundan " AE " sütununa kadar veri mevcut.

Ama en son veri " P " sütununa girildikten sonra " B - AE " aralığını sıralamadaki yerine taşıyabilir mi?

Sıralama yine Adres sırasına göre olacak.

 

[İhsan Tank]

yanlız şimdi P sütunundan sonrada veri gireceksiniz o nasıl olacak
p sütununa işlem yaptığınızda otomatik sıraya dizilirse kayıt yeri yukarı'ya yani yeri değiştiğinde kullanışlı olur mu_*

 

[1mak1mak]

bende gayet güzel çalışıyor
makro güvenlik ayarlarını kontrol edin

İhsan hocam iyi günler,

Bu Çalışmayı bende kendi dosyama uygulamak istedim çalıştıramadım.
Aradaki tek fark arkadaşın örneğindeki D Sutunundaki Adrese göre değilde
F Sutunundaki Tarihe göre sıralamaya çalıştım Acaba Tarih sıralamak istediğimizde Kodda değişiklik yapmakmı gerekiyor.

Ben Kendi Tabloma göre aşağıdaki Kodu Düzenledim olmadı.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A5:O" & Cells(65536, "A").End(xlUp).Row)) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Column = 15 Then
Range("A5:O" & Cells(65536, "A").End(xlUp).Row).Sort key1:=Range("J5"), key2:=Range("O5")
End If
End Sub

Sıralama Numaram olmadığından Bende A5 den başlıyor O Sutununa kadar veri var. (15 Sutun)
Tarih Bulunan Sutunum J5 den başlıyor. Arada bazı hücreler boş bundan dolayı çalışmıyor olabilirmi.

Teşekkürler

 

[Ali Faruk]

İhsan bey;

ben ilk verileri p sütununa kadar giriyorum p sütunundan sonraki verileri daha sonra giriyorum.

ama sizin dediğinizi anladım sizin kod tablosunda b - p sütunlarının arasını sıraya sokuyor. o zaman ben tablomu değiştireyim. p sütunundan sonraki verileri p sütunundan önceye alayım ve gizleyim görünmesin böylece onlarda sıraya girer.

şimdi p sütunundan sonraki verileri N ve AD sütununun arasına ekleyerek gizledim. siz kodu AE sütununa son veriyi girecek gibi yapabilir misiniz? Yeni tabloyu ekledim.


Çoook teşekkür ederim.

 

[İhsan Tank]

İhsan hocam iyi günler,

Bu Çalışmayı bende kendi dosyama uygulamak istedim çalıştıramadım.
Aradaki tek fark arkadaşın örneğindeki D Sutunundaki Adrese göre değilde
F Sutunundaki Tarihe göre sıralamaya çalıştım Acaba Tarih sıralamak istediğimizde Kodda değişiklik yapmakmı gerekiyor.

Ben Kendi Tabloma göre aşağıdaki Kodu Düzenledim olmadı.



Sıralama Numaram olmadığından Bende A5 den başlıyor O Sutununa kadar veri var. (15 Sutun)
Tarih Bulunan Sutunum J5 den başlıyor. Arada bazı hücreler boş bundan dolayı çalışmıyor olabilirmi.

Teşekkürler

olabilir isterseniz bir örnek dosya ekleyin bakalıom