sıralama

[batuhan_86_7]

selam arkadaşlar benim çalışma sayfamda yapmak istediğim bir makro var ve ben makro bilmdiğim için yapamıyorum. yapmak istediğim şu
başlangıç satırı : A4 BİTİŞ D2300 ( BU ARTABİLİR )
sıraya önce A4 ( tarih ) daha sonra ise D4 ( herhangi bir rakam ) e göre otomatik sıralama tuş kolaylığı ile olabilir yardımlarınızı bekliyorum

 

[Orion1]

Range("A4:D65536").Sort key1:=Range("A4"), key2:=Range("D4")

 

[batuhan_86_7]

range("a4:d65536").sort key1:=range("a4"), key2:=range("d4")

evren bey yardımlarınız için teşekkür ederim yalnız otomatik kendisi dizmiyor yardım ederseniz sevinirim

 

[Orion1]

evren bey yardımlarınız için teşekkür ederim yalnız otomatik kendisi dizmiyor yardım ederseniz sevinirim

Dizmese ben o kodu çiğ çiğ yerim.

 

[batuhan_86_7]

Ben şu an o çalışma sayfasında çalışıyorum yalnız dizmiyor makro çalıştır yaptığım zaman diziyor ( butonla belki olabilir )

 

[batuhan_86_7]

Evren bey yardımlarınıza destek olmak istedim ve çalışma sayfamı küçülterek gönderiyorum

 

[Orion1]

Şimdi ben size a sütunana veri girdsikten sonra otomatik sıralam yaptıracam.Valeley deiyeceksiniz.Çünkü hemen sıralanıp bulunduğu yerden sırasımnna gidecek.Tekrar o satırı bulup diğer sütunlardaki verileride girmeniz gerekecek.Yani bumudur sizin istediğiniz.Bunu yaparsam sizin işiniz kolaylaşırm zorlaşırmı.En son sütundan veri girdikten otomatik sıralama yapsam(Ki bunu sizin bana söylemeniz lazım.ben hangi hücreye veri girildikten sonra sıralam kodlarını aktif olacağını bileyim diye)
sonra o sütuna veri girmezsewniz bu seferde sıralama yapmıyor diyeceksinşiz.
En iyisi benbim size verdiğim kodları bir butona tayın istediğiniz zaman çalıştırın olsun bitsin.

 

[batuhan_86_7]

ilgilendiğin için teşekkür ederim benim bu çalışma sayfasında en son D sutununa işlme yapacağım bir de ben buton eklemeyi bilmiyorum yardımcı olursqanız sevinirim

bir istediğimde benim başka bir çalışmam var ona da yardımcı olursanız sevinirim yardımlarınızı bekliyorum ( bu çalışmada ise I sutunu en son işlem gören yer ) bunada yardım etmeniz dileğiyle kolay gelsin.

 

[Orion1]

D sütununa veri girdikten sonra sıralama yapıyor.
Diğer sorunuzu anlamadım.
Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:D" & Cells(65536, "A").End(xlUp).Row)) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Column = 4 Then
    Range("a4:d" & Cells(65536, "A").End(xlUp).Row).Sort key1:=Range("a4"), key2:=Range("d4")
End If
End Sub

 

[batuhan_86_7]

Teşekkür ederim yardımların için diger soruma arkadaşlar cvp verdiler onun devamınıda kendi imkanlarımla yaptım bunun için yarın tekrar çalışacağım size ve tüm ilgilenen arkadaşlara teşekkür ederim

 

[batuhan_86_7]

D sütununa veri girdikten sonra sıralama yapıyor.
Diğer sorunuzu anlamadım.
Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:D" & Cells(65536, "A").End(xlUp).Row)) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Column = 4 Then
    Range("a4:d" & Cells(65536, "A").End(xlUp).Row).Sort key1:=Range("a4"), key2:=Range("d4")
End If
End Sub

son bir şey daha istiyorum
çalışma sayfasında D sutununa bir şey girildiğinde aynı tarihin en üst kısmında kalması yardımlarını benden esirgemezsen sevinirim.

 

[Orion1]

son bir şey daha istiyorum
çalışma sayfasında D sutununa bir şey girildiğinde aynı tarihin en üst kısmında kalması yardımlarını benden esirgemezsen sevinirim.

Dosyanız ektedir.

 

[batuhan_86_7]

Dosyanız ektedir.

ilgine teşekkür ederim istediğim şekilde çalışma sayfasını ayarladım ( veri sıraladan yaptım ) bunun otomatik yapmasını istiyorum

 

[Orion1]

ilgine teşekkür ederim istediğim şekilde çalışma sayfasını ayarladım ( veri sıraladan yaptım ) bunun otomatik yapmasını istiyorum

12 numaralı mesajda yolladığım dosyada zaten yaptım bu işlemi.

 

[batuhan_86_7]

arkadaşım bu işlemi o rda yapamıyorum bir sebebi var mıdır_? aynı tarihin en altında kalıyor tekrardan ilgilenirmisiniz.

 

[Orion1]

arkadaşım bu işlemi o rda yapamıyorum bir sebebi var mıdır_? aynı tarihin en altında kalıyor tekrardan ilgilenirmisiniz.

O satırı sarıya boyayın ve ne yapmak istediğinizi yazın.Yaptıktan sonra ne olduğunu yazın.Şimdi bir şey diyemiyecem.Sıralama kriterleri doğrultusunda kendi kendine bir yerde olabilir sıralama sonrası.

 

[batuhan_86_7]

ilgin için teşekkür ederim şu an yaptığınız çalışmayı kullanmaya başladım

 

[Orion1]

ilgin için teşekkür ederim şu an yaptığınız çalışmayı kullanmaya başladım

Rica ederim.
İyi bayramlar.