Otomatik sıralama

[batugul35]

arkadaşlar merhaba

excell de bir sütundaki tarih girişlerini tarih sırasına göre girdikçe sıralanması için nasıl bir yol izlemem gerekir.


25.11.2007 150
30.09.2007 100
böyle bir girişi ben 30.09.2007 100 yazdığımda otomatik birinci sıraya koymasını istiyorum.

Saygılarımla,

 

[Merhum İdris SERDAR]

Sayfa koduna:

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A2:F30").Sort Key1:=Range("a2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Range("b1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
End Sub


kodlarını yazın.


..

 

[AS3434]

Dosyayı inceleyin.

 

[batugul35]

ilginiz için teşekkür ederim.
Fakat ben ileri düzeyde bir kullanıcı değilim.Yurttas arkadaşımın yazdıklarını nereye yazacağımı bilmiyorum.as3434 arkadaşımın da nasıl yaptığını anlayamadım.
Kusura bakmayın benim eksiğim fakat biraz tarif edebilirmisiniz nasıl yapacağım veya nereye yazacağım konusunda.

 

[AS3434]

Aşağıda sayfa isimleriniz olduğu yerde Sayfa1 üzerine gelip sağ tıklayın. Kod Görüntüle seçeneğini seçin Kodları orada görürsünüz. Sayın yurttaş 'ın tarif ettiği şekilde zaten bu.

 

[batugul35]

yapamadım örnek dosyayı gönderiyorum

 

[Seyit Tiken]

Ekli dosyayı bir inceleyiniz.

Sub Düğme1_Tıklat()
[a1:a10].Sort Key1:=Range("A1")
[b1:b10].Sort Key1:=Range("b1")
For a = 1 To 10
Cells(a, 1) = Cells(a, 1) & " " & Cells(a, 2)
Next
End Sub

 

[AS3434]

A sütununda Hücre Biçimiz Tarih değil . Hücre Biçimini tarih yapın.

 

[AS3434]

Dosyanız ekte. Sayın yurttaş'ın yapmış olduğu makroyu iki sütuna uyarlayamadım. Onu iptal ettim.

 

[batugul35]

formatı değiştiremem. onu yaparken zaten yurttas arkadaş yardımcı olmuştu.

 

[Merhum İdris SERDAR]

formatı değiştiremem. onu yaparken zaten yurttas arkadaş yardımcı olmuştu.

Dosyanız ekte.


..

 

[batugul35]

Yurttas çok teşekkür ederim.İstediğimde buydu.yalnız tarihi yazınca tab tuşu ile yandaki sütuna ( Değer ve Değer2) geçemiyorum.Bununla ilgili yapılabilecek bir şey var mı?

 

[Merhum İdris SERDAR]

Yurttas çok teşekkür ederim.İstediğimde buydu.yalnız tarihi yazınca tab tuşu ile yandaki sütuna ( Değer ve Değer2) geçemiyorum.Bununla ilgili yapılabilecek bir şey var mı?

Kodu aşağıdaki şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A3:F30").Sort Key1:=Range("a3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Range("c2").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

End Sub


Bu sıralamayı yaptıktan sonra imleç girdiğiniz tarihin DEĞER sütunundaki boş olan hücreye gider.

..

 

[batugul35]

ilgin için teşekkür ederim yurttas

 

[KARTAL06]

Diğer sütunlara nasıl uygulanır?

Dosyayı inceleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
[A2:b100].Sort Key1:=Range("a2"), Order1:=xlAscending
End Sub
Benimde işme yarayacak ama kod yazmayı bilmediğimden yazılan kodda nereleri değiştirerek başka çalışma sayfalarına uygulayabilirim?