4 farklı sütuna göre sıralama yapma(buton kullanarak)

Katılım
25 Mart 2008
Mesajlar
15
Excel Vers. ve Dili
excel 2010/turkce
Arkadaşlar,
benım yapmak istediğim şu:
4 farklı sütüna gore sıralama yapmak.
örneğin: tarih, sıra no, bölge adı ve kişi ismi. gibi 4 farklı sütün var. ve bunlara gore sıralama yapmak istiyorum.
ama birde buton olsun. yeni veriler girince bu butona basıp sıralamayı yapmak istiyorum.
yardım ederseniz cok sevinirim.
şimdiden tesekkur ederim
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Arkadaşlar,
benım yapmak istediğim şu:
4 farklı sütüna gore sıralama yapmak.
örneğin: tarih, sıra no, bölge adı ve kişi ismi. gibi 4 farklı sütün var. ve bunlara gore sıralama yapmak istiyorum.
ama birde buton olsun. yeni veriler girince bu butona basıp sıralamayı yapmak istiyorum.
yardım ederseniz cok sevinirim.
şimdiden tesekkur ederim
Bunlar hangi sütunda ? Bu bilinmeden yapılamaz.Yapılsada afaki olur.
 
Katılım
25 Mart 2008
Mesajlar
15
Excel Vers. ve Dili
excel 2010/turkce
A4,G4,H4,M4 baslangıc adresleri burdan A1000,G1000,H1000 ve M1000 e kadar suruyor veriler. Bu arada sonlarda bazı satırların bos olması sorun olmaz dımı?
tesekkurler
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
sütunları sıralama sırasına göre yazınız.:cool:
 
Katılım
25 Mart 2008
Mesajlar
15
Excel Vers. ve Dili
excel 2010/turkce
oncelik sırası: A, sonra H, sonra G ve en son M
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,369
Excel Vers. ve Dili
Office 365 (64 bit) - Türkçe
A4,G4,H4,M4 baslangıc adresleri burdan A1000,G1000,H1000 ve M1000 e kadar suruyor veriler. Bu arada sonlarda bazı satırların bos olması sorun olmaz dımı?
tesekkurler
Excelde 3 sütuna göre sıralama yapabilirsiniz. Alternatif yol: ADO
Dosyanızın bir kopyasında order by kısmında geçen gerçek sütun isimlerini yazarak test edin.

Kod:
Sub SIRALA()
Dim cn As Object, rs As Object

Set cn = CreateObject("ADODB.Connection")

cn.Open _
    "Driver={Microsoft Excel Driver (*.xls)};dbq=" & _
        ThisWorkbook.FullName
    
Set rs = cn.Execute( _
"SELECT * FROM [Sayfa1$A4:M1000] ORDER BY [ADI], [SOYADI], [DTARIHI], [DYERI]")

[A5:M1000].ClearContents
[A5].CopyFromRecordset rs

rs.Close
cn.Close

Set rs = Nothing
Set cn = Nothing
End Sub
 
Katılım
25 Mart 2008
Mesajlar
15
Excel Vers. ve Dili
excel 2010/turkce
ilginiz için tesekkurler ama macro bende hata verdi.
sıze bir dosya gonderiyorum. bunda calıstırmayı deneyebilirmisiniz.
once b, sonra a, sonra c ve en son d ye gore sıralasın.
yardımınız ıcın tesekkur ederım
 
Katılım
7 Temmuz 2004
Mesajlar
327
Excel Vers. ve Dili
office xp pro türkçe
DOSYANIZ DÜZELTİLDİ sayfa5 teki tabloya bakınız.
 
Katılım
25 Mart 2008
Mesajlar
15
Excel Vers. ve Dili
excel 2010/turkce
abdi cok tesekkur ederim. super olmus
 
Üst