• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Otomatik sıralama

M

manisali_mdr

Banned
Katılım
9 Ocak 2009
Mesajlar
370
Excel Vers. ve Dili
office2003 türkçe
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
 
Sayın manisali_mdr,

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

Ekli dosyalar

Ü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..
 
ü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ü?
 
manisali_mdr' Alıntı:
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
Genişletmek için tıkla ...

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.
 
Ü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..
 
manisali_mdr' Alıntı:
ü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..
Genişletmek için tıkla ...

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

Tekrar inceleyiniz.
 

Ekli dosyalar

Son düzenleme:
Ü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..
 
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.

Kod: 
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 Ayhan' Alıntı:
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.

Kod: 
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
Genişletmek için tıkla ...

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ı???
 
mekist' Alıntı:
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ı???
Genişletmek için tıkla ...

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
 
Ü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..
 
Selamlar,

A sütununda hangi bilgi var?
 
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
 
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.
 
mekist' Alıntı:
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ı???
Genişletmek için tıkla ...


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,
 

Ekli dosyalar

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.

Kod: 
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
 
Sayın Mekist,
İnceleyiniz.
 

Ekli dosyalar

Sayın Korhan AYHAN,
Benden önce cevaplamış zaten.
İyi akşamlar.
Saygılarımla
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst