otomatik sıralama

[flamenker]

Merhaba
Arşivden Necdet uzmanın şu koduna ulaştım

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
Dim Sat As Long
Dim Kolon As Integer
Dim Deger As String
Dim c As Range
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Row < 4 Then Exit Sub
Kolon = [IV3].End(1).Column
Deger = Target.Value
Sat = [A65536].End(3).Row
Range(Cells(4, "A"), Cells(Sat, Kolon)).Sort Key1:=Cells(4, "A")
Set c = Range("A4:A" & Sat).Find(Deger)
Range("B" & c.Row).Select
Son:
End Sub

Fakat sınırlı bilgimle kendi çalışmama uygulamaya çalışsam da hangi değer neyi temsil ediyor tam çıkaramadım yardımcı olabilecek varsa sevinirim.

 

[Emir Hüseyin Çoban]

Sorunuzu böyle çözmek biraz zor. Çalışmanızın küçük bir örneğini eklerseniz daha net çözümler üretilebilir.

 

[flamenker]

Merhaba
Dosya aşağıdaki linkte
http://www.sendspace.com/file/70e552
Bu dosyadaki müşteri satış sayfasına uygulamak istiyorum bu kodu.
b sütunundaki tarihe göre sıralanmasını ve yan hücreden devam etmek istiyorum çünkü örnekte(Necdet uzamanın örneği) bu şekilde çalışıyor.

 

[flamenker]

Aslında şu kısımdaki IV3 ve 4 neye göre girilmiş onu anlamadım.
Kolon = [IV3].End(1).Column
Deger = Target.Value
Sat = [A65536].End(3).Row
Range(Cells(4, "A"), Cells(Sat, Kolon)).Sort Key1:=Cells(4, "A")
Set c = Range("A4:A" & Sat).Find(Deger)

 

[flamenker]

Arkadaşlar anlayan için saniyelik iş biriniz bir yardımcı olsanız?Hem çok güzel bir makro başka faydalananlarda olabilir.

 

[Emir Hüseyin Çoban]

Arkadaşlar anlayan için saniyelik iş biriniz bir yardımcı olsanız?Hem çok güzel bir makro başka faydalananlarda olabilir.

Sorunuz ile ilgili biraz daha bilgi verir misiniz.

Anladığım kadarıyla şöyle bir düzenleme yaptım.
Müşteri satış sayfasındaki Private Sub Worksheet_Change altındaki kodları silip, aşağıdaki kodları yapıştırarak deneyiniz.

B sütununda değişiklik yaptığınızda, o satırdaki bütün kayıtları tarih sırasına göre sıralayacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
    Range("B5:o1000").Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

 

[flamenker]

Merhaba
Elinize sağlık kodu denedim sıralamayı yapıyor fakat Necdet bey'inki misal b10 hücresine bir tarih girdiğinizde hem sıralamasını yapıyor hemde yan hücresine geciyor.Bu kodla bunu yapamadım

 

[Emir Hüseyin Çoban]

Merhaba
Elinize sağlık kodu denedim sıralamayı yapıyor fakat Necdet bey'inki misal b10 hücresine bir tarih girdiğinizde hem sıralamasını yapıyor hemde yan hücresine geciyor.Bu kodla bunu yapamadım

Kusura bakmayın, anlayamadım. Kodların işlem sonucu olarak bir fark göremedim ama.
Sorunuzu anlayan arkadaşlar yardımcı olacaktır.

 

[flamenker]

İlginize teşekkür ederim
Şimdi şöyle izah edeyim.
Necdet bey'in örnek çalışması var bu kodu o çalışmadan almıştım.
O çalışmada misal b30 hücresine 12.12.2011 yazdınız bu tarih de sıralamada b12 ye denk geldi.makro hem 12.12.2011 tarihini b12 ye taşıyor hem de yazı yazacak olursam c12 seçili hücre oluyor.
Umarım anlaşılmıştır.