tarih sorunu

[drykcktl]

arkadaşlar bir sorumolacak yardımlarınızı rica ediyorum

a sütunda tarihlerim var devamında b-c-d-e-f sütunlarındada bilgilerim
a ya girdiğim tarihleri otomatik sıralamasını istiyorum makroyla tabi bununla birlikte diğer sütunlarıda kod konusundayardımcı olabilirmisiniz

a7 den başlıyor

 

[algerian]

Merhaba. Aşağıdaki kodları bir modüle yapıştırarak çalıştırabilirsiniz. Sayfa adını kendi sayfa adınız ile değiştirebilirsiniz.

Sub Sort()
i = [A65536].End(3).Row
    Range("A7:F" & i).Select
    ActiveWorkbook.Worksheets("[COLOR="Red"]Sheet1[/COLOR]").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("[COLOR="red"]Sheet1[/COLOR]").Sort.SortFields.Add Key:=Range("A7"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A7:F" & i)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[drykcktl]

Merhaba. Aşağıdaki kodları bir modüle yapıştırarak çalıştırabilirsiniz. Sayfa adını kendi sayfa adınız ile değiştirebilirsiniz.

Sub Sort()
i = [A65536].End(3).Row
    Range("A7:F" & i).Select
    ActiveWorkbook.Worksheets("[COLOR="Red"]Sheet1[/COLOR]").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("[COLOR="red"]Sheet1[/COLOR]").Sort.SortFields.Add Key:=Range("A7"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A7:F" & i)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

olmadı maalesef nerde hata yapıyor olabilirim

 

[Mustafa MUTLU]

2003 formatında örnek dosyan olursa bakabilirim.
Gerekli açıklamaları dosya üzerinde yaparak.
e-posta adresime gönderebilirsin.
mustafamutlux@hotmail.com

 

[Ömer BARAN]

Merhaba.

Aşağıdaki şekilde dener misiniz?
Sanırım istediğiniz bu.
Sıralamayı azalan olarak yapmak istiyorsanız mavi kısmı xlDescending olarak değiştirin.
.

[B]Sub SIRALA()[/B]
    Range("A7:F" & [A65536].End(3).Row).Sort [A6], [COLOR="Blue"]xlAscending[/COLOR]
[B]End Sub[/B]

 

[drykcktl]

Merhaba.

Aşağıdaki şekilde dener misiniz?
Sanırım istediğiniz bu.
Sıralamayı azalan olarak yapmak istiyorsanız mavi kısmı xlDescending olarak değiştirin.
.

[B]Sub SIRALA()[/B]
    Range("A7:F" & [A65536].End(3).Row).Sort [A6], [COLOR="Blue"]xlAscending[/COLOR]
[B]End Sub[/B]

olmuyor maalesef kullandığım sistem 2013 ondan olabiliirmi

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle ekleyip deneyiniz.

Sub Sırala()

    Dim i   As Long
    
    i = Cells(Rows.Count, "A").End(3).Row
    If i < 7 Then Exit Sub
    
    Range("A7:F" & i).Sort Key1:=[A1]
    
End Sub

Not : [A65536].End(3).Row kullanımı 2007 ve üzeri sürümlerde ve verinin 65536 dan fazla olduğu durumlarda sakıncalıdır. O yüzden Rows.Count kullanmak ileriki sürümlerde de geçerli olacaktır.

 

[drykcktl]

Merhaba,

Aşağıdaki kodları bir modüle ekleyip deneyiniz.

Sub Sırala()

    Dim i   As Long
    
    i = Cells(Rows.Count, "A").End(3).Row
    If i < 7 Then Exit Sub
    
    Range("A7:F" & i).Sort Key1:=[A1]
    
End Sub

Not : [A65536].End(3).Row kullanımı 2007 ve üzeri sürümlerde ve verinin 65536 dan fazla olduğu durumlarda sakıncalıdır. O yüzden Rows.Count kullanmak ileriki sürümlerde de geçerli olacaktır.

buda olmadı benmi hata yapıyorum bi yerde anlamadımki

 

[Necdet]

Merhaba,

Verilen kodları veri giriş sırasında değil, sonradan sizin istediğiniz zamanda çalıştırdığınızda sıralama yapan kodlardır.

 

[drykcktl]

Merhaba,

Verilen kodları veri giriş sırasında değil, sonradan sizin istediğiniz zamanda çalıştırdığınızda sıralama yapan kodlardır.

kapatıp açtım ama

 

[Necdet]

kapatıp açtım ama

Aç kapat olayı değil.

Siz ne yaptığınızı anlatırsanız çözüm daha kolay olacaktır.

 

[Ömer BARAN]

İsterseniz cevabımın altındaki İMZA bölümünde yer alan açıklamalara göre hazırlaycağınız, birkaç satır veri içeren bir örnek belge ekleyin.
Belki de tarih olarak gördüğünüz veriler tarih değildir.

 

[drykcktl]

İsterseniz cevabımın altındaki İMZA bölümünde yer alan açıklamalara göre hazırlaycağınız, birkaç satır veri içeren bir örnek belge ekleyin.
Belki de tarih olarak gördüğünüz veriler tarih değildir.

http://s9.dosya.tc/u_finished.php?upload_id=b77eaf3663662a4a08c850d840156c41

 

[Ömer BARAN]

Dosya yükleme işleminizde sorun var sanırım.
Verdiğiniz bağlantıdan bir dosyaya erişilemiyor.

 

[drykcktl]

Dosya yükleme işleminizde sorun var sanırım.
Verdiğiniz bağlantıdan bir dosyaya erişilemiyor.

acemilik

http://s9.dosya.tc/server2/t1qyjg/INSAAT__SAMET_.rar.html

 

[algerian]

Merhaba,
Dosyanız ektedir. Butonu kullandığınızda tümünü sıralıyor.
Ayrıca sayfaya eklediğim kodlar ile, henüz tarih bilgisini yazdığınız anda otomatik tarih sırasında yerine koyuyor. Dilerseniz bu kodları sayfadan silerek devredışı bırakabilirsiniz.
(Vaktiyle bu konudaki sorunumu çözen üstadlarımı saygıyla anıyorum)

 

[drykcktl]

Merhaba,
Dosyanız ektedir. Butonu kullandığınızda tümünü sıralıyor.
Ayrıca sayfaya eklediğim kodlar ile, henüz tarih bilgisini yazdığınız anda otomatik tarih sırasında yerine koyuyor.
(Vaktiyle bu konudaki sorunumu çözen üstadlarımı saygıyla anıyorum)

teşekkür ederim elinize sağlık ama ben altın üye değilim maalesef

 

[algerian]

linkten ulaşabilirsiniz

http://s9.dosya.tc/server2/4lp4b0/INSAAT__SAMET_-_ALG_.rar.html

 

[drykcktl]

linkten ulaşabilirsiniz

http://s9.dosya.tc/server2/4lp4b0/INSAAT__SAMET_-_ALG_.rar.html

teşekür ederim

 

[drykcktl]

bir sorum daha olacak excelde her yeni sayfa açtığımda makro ile kaydeden dosya halinde açabilirmiyim