Otomatik Sıralama

[btanju]

İyi akşamlar,
B3 den M26 ya kadar bir tablom var bu tabloda her 1 dakikada bir otomatik olarak büyükten küçüğe sıralamasını istemekteyim.
B3;M26 M hücresi alanında bulunan sayıların büyükten küçüğe sıralamasını istiyorum mümkün müdür?

 

[btanju]

Merhaba,
Yardımcı olabalicek ustalar yok mudur?

 

[Mehmet.aggoz]

Örnek dosya paylaşmanız durumunda daha hızlı çözüm üretilecektir.

 

[uzmanamele]

Merhaba

Bu kodu deneyiniz.

Sub yinele()
     Range("B3:M26").Sort Range("B3")
       Application.OnTime DateAdd("s", 60, Now), "yinele"
End Sub

 

[btanju]

Merhaba

Bu kodu deneyiniz.

Sub yinele()
     Range("B3:M26").Sort Range("B3")
       Application.OnTime DateAdd("s", 60, Now), "yinele"
End Sub

Hocam çok sağol deneyeceğim de bu vermiş olduğunuz formülü nerede kullanacağım dosyamın yani sayfanın adı Sheet' in ismi adı "AnaData" bunun içinde mi kullanacağım.

 

[btanju]

Örnek dosya paylaşmanız durumunda daha hızlı çözüm üretilecektir.

Malasef altın üye olmadığımda örnek dosya yükleyemiyorum.

 

[btanju]

Örnek dosya paylaşmanız durumunda daha hızlı çözüm üretilecektir.

Örnek Dosya

https://www.dosyaupload.com/2692y/ÖrnekDosya.xlsm

İndir Örnek Dosya

Dosyayı indir Örnek Dosya

dosya.co

 

[btanju]

Merhaba

Bu kodu deneyiniz.

Sub yinele()
     Range("B3:M26").Sort Range("B3")
       Application.OnTime DateAdd("s", 60, Now), "yinele"
End Sub

Örnek Dosya

https://www.dosyaupload.com/2692y/ÖrnekDosya.xlsm

İndir Örnek Dosya

Dosyayı indir Örnek Dosya

dosya.co

 

[btanju]

İyi akşamlar,
B3 den M26 ya kadar bir tablom var bu tabloda her 1 dakikada bir otomatik olarak büyükten küçüğe sıralamasını istemekteyim.
B3;M26 M hücresi alanında bulunan sayıların büyükten küçüğe sıralamasını istiyorum mümkün müdür?

Örnek Dosya Linkleri
https://www.dosyaupload.com/2692y/ÖrnekDosya.xlsm

İndir Örnek Dosya

Dosyayı indir Örnek Dosya

dosya.co

 

[btanju]

Bizim sorumuza cevap veren olmadı arkadaş yardımcı olacak olan yok mudur?

 

[btanju]

İyi akşamlar,
B3 den M26 ya kadar bir tablom var bu tabloda her 1 dakikada bir otomatik olarak büyükten küçüğe sıralamasını istemekteyim.
B3;M26 M hücresi alanında bulunan sayıların büyükten küçüğe sıralamasını istiyorum mümkün müdür?

Örnek Dosya Linkleri
https://www.dosyaupload.com/2692y/ÖrnekDosya.xlsm

İndir Örnek Dosya

Dosyayı indir Örnek Dosya

dosya.co

 

[btanju]

Arkadaşlar, olumlu yada olumsuz bir cevap verebilecek var mıdır?

 

[Korhan Ayhan]

Merhaba,

Dosyanızı açın.
ALT+F11 tuşlarına basarak kod editörünü açın.
Insert menüsünden Module ekleyin.
Sağ tarafta açılan beyaz pencereye aşağıdaki kodu uygulayın.

Option Explicit

Sub Auto_Open()
    DoEvents
    With Sheets("AnaData")
        .Range("B3:M26").Sort Key1:=.Range("M3"), Order1:=xlAscending, Header:=xlNo
    End With
    Application.OnTime Now + TimeSerial(0, 1, 0), "Auto_Open"
End Sub

Sonra dosyanızı "Makro İçerebilen Excel Çalışma Kitabı" formatında kayıt edip kapatın.
Tekrar açtığınızda sayfada sıralama işlemi yapacaktır. Makroları etkinleştirmeyi unutmayınız.

 

[btanju]

Merhaba,

Dosyanızı açın.
ALT+F11 tuşlarına basarak kod editörünü açın.
Insert menüsünden Module ekleyin.
Sağ tarafta açılan beyaz pencereye aşağıdaki kodu uygulayın.

Option Explicit

Sub Auto_Open()
    DoEvents
    With Sheets("AnaData")
        .Range("B3:M26").Sort Key1:=.Range("M3"), Order1:=xlAscending, Header:=xlNo
    End With
    Application.OnTime Now + TimeSerial(0, 1, 0), "Auto_Open"
End Sub

Sonra dosyanızı "Makro İçerebilen Excel Çalışma Kitabı" formatında kayıt edip kapatın.
Tekrar açtığınızda sayfada sıralama işlemi yapacaktır. Makroları etkinleştirmeyi unutmayınız.

Hocam harikasınız demek sizi beklemek gerekmiş peki 30 saniye yapmak istesem nasıl bir formül kullana bilirim sizin formül direk sayı olduğu için beceremedim. Teşekkür ederim.

 

[Korhan Ayhan]

Kodun bu bölümü zamanlama içindir. Dilediğiniz gibi değiştirebilirsiniz.

TimeSerial(Saat, Dakika, Saniye)

 

[btanju]

Kodun bu bölümü zamanlama içindir. Dilediğiniz gibi değiştirebilirsiniz.

TimeSerial(Saat, Dakika, Saniye)

Teşekkürler Hocam