Otomatik sıralama

[manisali_mdr]

Arkadaşlar merhaba..
yüzlerce satırdan oluşan malzeme listem var ve bu liste alfabetik sırada..
ancak arada bir çok yeni malzeme kaydı yapıyorum..isteğim şu :
listenin sonuna eklediğim bu malzemelerle birlikte her malzeme girişinde tüm listenin alfabetik sıraya girmesi..
şimdiden teşekkürler

 

[Excelmy]

Sayın manisali_mdr,

Ekli dosyayı inceleyiniz. Umarım istediğiniz gibi olmuştur.

 

[manisali_mdr]

Üstadım harika olmuş..eline ,bilgine sağlık..ama ben küçük bir hata yaptım..a sütununda cinsi, b sütununda fiyatı var..a sütununa elma yazıp b sütununa 5 yazıp enterledikten sonra fiyatıyla birlikte sıralamak istiyorum..size yine zahmet vereceğim için özür diliyorum..

 

[manisali_mdr]

üstadım..aklıma sonradan geldi ekleme yapıyorum hemen..isterseniz b sütunu olarak sınırlamadan diyelim ki o ürünün bir çok özelliğini b-c-d-e sütunlarına girerek (tab tuşu ile gidip) en son e sütununa veriyi girip enterledikten sonra o satırı olduğu gibi sıralatmak mümkün mü?

 

[Excelmy]

Arkadaşlar merhaba..
yüzlerce satırdan oluşan malzeme listem var ve bu liste alfabetik sırada..
ancak arada bir çok yeni malzeme kaydı yapıyorum..isteğim şu :
listenin sonuna eklediğim bu malzemelerle birlikte her malzeme girişinde tüm listenin alfabetik sıraya girmesi..
şimdiden teşekkürler

Değerli arkadaşım,
Eğer ki ilk konuda net ve anlaşılır bir şekilde yapmak istediğinizi söylemiş olsaydınız veya konuyu bir örnek dosya ile destekleseydiniz. Sonuca daha kısa sürede ulaşılacak ve zaman kaybı olmayacaktı.

Saygılarımla.

 

[manisali_mdr]

Üstadım..hata yaptığımı belirttim ve özür diledim sizden..bunu tekrar yazmanız neyi değiştirdi onu merak ettim..örnek dosya eklemeye gerek duymadım çünkü gerçekten çok basit..sizi dosya açmakla meşgul etmek istemedim..

SIRA NO ÜRÜN ADI FİYATI KDV TOPLAM GELDİĞİ YER
----------------------------------------------------------------------------
01 CİVATA 10,00 1,00 11,00 İZMİR
02 KAMPANA 20,00 2,00 22,00 İSTANBUL
03 BALTA 15,00 1,50 16,50 ANKARA
04 VALİZ 22,00 2,20 24,20 BURSA
05 TOKA 12,00 1,20 13,20 BOLU


dosyam bu...ben her satırda hücreler arası TAB tuşu ile gittikten sonra en son "geldiği yer" hücresinde enter'a bastığımda tüm satırı alfabetik sıraya sokmasını istiyorum..
sizi meşgul ettiğim için tekrar tekrar özür diliyor,yardımcı olacağınız inanç ve umuduyla sevgi ve saygılarımı sunuyorum..

 

[Excelmy]

üstadım..hata yaptığımı belirttim ve özür diledim sizden..bunu tekrar yazmanız neyi değiştirdi onu merak ettim..örnek dosya eklemeye gerek duymadım çünkü gerçekten çok basit..

......???? ..!!

Tekrar inceleyiniz.

 

[manisali_mdr]

Üstadım..yine harika bir şey yapmışsın..ama ben derdimi anlatamadım sanırım..benim elimde şu an yüzlerce satırdan oluşan ürün listesi var..senin gönderdiğin programa göre ben bunları tek tek yeniden girmem lazım..ben sadece ilk gönderdiğin programa eklenti yapıp,sadece tek hücrede değil o satırı komple sıralatmak istedim..gönderdiğin program çok daha geniş..üstelik ben o sütun başlıklarını öylesine yapmıştım..yani otomatik toplatmak istemiyorum..dediğim gibi sadece ve sadece satırı alfabetik sıraya dizsin yeter bana..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu bu işlemi yapmak istediğiniz sayfanın kod bölümüne uygulayıp denermisiniz.

Verdiğiniz bilgilere göre en son F sütununa veri girdiğinizde sıralama işlemi yapılır.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [F2:F65536]) Is Nothing Then Exit Sub
    If Target <> Empty Then
    Range("B2:F65536").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    End If
Son:
End Sub

 

[mekist]

Selamlar,

Aşağıdaki kodu bu işlemi yapmak istediğiniz sayfanın kod bölümüne uygulayıp denermisiniz.

Verdiğiniz bilgilere göre en son F sütununa veri girdiğinizde sıralama işlemi yapılır.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [F2:F65536]) Is Nothing Then Exit Sub
    If Target <> Empty Then
    Range("B2:F65536").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    End If
Son:
End Sub

Korhan Bey,

hiçbir koşul olmadan ani tabla ilerleyip enter vs olmadan, başka bir sayfadan kopyala yapıştır ile karışık halde yapıştırılan veriler örneğin "D" sütununa göre yapıştır dedikten sonra otomatik sıralanabilir mi?
Diyelim ki sıralandı sonra devamına tekrar aynı şekilde veri yapıştırdığımızda yine sıralanar mı???

 

[İhsan Tank]

Korhan Bey,

hiçbir koşul olmadan ani tabla ilerleyip enter vs olmadan, başka bir sayfadan kopyala yapıştır ile karışık halde yapıştırılan veriler örneğin "D" sütununa göre yapıştır dedikten sonra otomatik sıralanabilir mi?
Diyelim ki sıralandı sonra devamına tekrar aynı şekilde veri yapıştırdığımızda yine sıralanar mı???

arkadaşım f sutununa en son işlem yapmalısın diğer sutunlar boş ise boş olarak geçip f sutununa 0 ( sıfır ) yazarsan otomatik sıralar

 

[manisali_mdr]

Üstadım ellerine sağlık ama..yanlış çalışıyor..en son hücreye verdiğim değere göre sıralama yapıyor..Örneğin A sütununa "Mermer" değerini girip,B sütununa 25,C sütununa da 15 değerini yazdığımızı varsayalım..C sütünundaki 15 e göre sıralama yapıyor..Benim isteğim A sütununa göre alfabetik sıraya soksun..

 

[Korhan Ayhan]

Selamlar,

A sütununda hangi bilgi var?

 

[manisali_mdr]

A sütununda Ürün ismi,B sütununda Ürünün Fiyatı,C sütununda ise bu ürüne uygulanan indirim oranı var...Üç sütun benim işimi görür yani

 

[Korhan Ayhan]

Selamlar,

#6 nolu mesajınızla #14 nolu mesajınız birbiriyle çelişiyor.

Lütfen dosyanızla ilgili doğru bilgiler vermeye özen gösteriniz.

 

[hhaseken]

Veri özet

Sütunlarda arttırılabilir

 

[mekist]

Korhan Bey,

hiçbir koşul olmadan ani tabla ilerleyip enter vs olmadan, başka bir sayfadan kopyala yapıştır ile karışık halde yapıştırılan veriler örneğin "D" sütununa göre yapıştır dedikten sonra otomatik sıralanabilir mi?
Diyelim ki sıralandı sonra devamına tekrar aynı şekilde veri yapıştırdığımızda yine sıralanar mı???

Benim anlatmak istediğim,

ekte kısa olarak verdiğim örnekte sayfa 1 de yer alan veriler karışık olarak duruyor,Burdaki verileri sayfa2'ye kopyala yapıştır diyince Tutar sütununa (G) göre sıralasın,
yapıştır dedikten sonra sıralama kendi kendine olsun,

 

[Korhan Ayhan]

Selamlar,

Sn. mekist,

Sayfa2 nin kod bölümüne aşağıdaki kodu uygulayıp deneyin. Yapıştırma işlemini yaptıktan sonra bazen bir hücre seçmeniz gerekebilir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Son
    Range("A2:G65536").Sort Key1:=Range("G2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Son:
End Sub

 

[Excelmy]

Sayın Mekist,
İnceleyiniz.

 

[Excelmy]

Sayın Korhan AYHAN,
Benden önce cevaplamış zaten.
İyi akşamlar.
Saygılarımla