Makro ile 2 kriterli otomatik veri sıralama

[hatirlabeni]

Dosyanızda 2. sayfada veri girilmiş alanlarda kayma var. Sadece B-C-D sıralanırsa veri girilmiş alandaki doğruluğu kaybedersiniz. Buna dikkat etmeniz gerekir.

Zaten 2 sayfayı kontrol ederseniz. E sütunundan sonraki verilerin yer değiştirmediğini görebilirsiniz.

Haklısınız Hocam 2. sayfada verileri sıralarken e sütunundan sonrasını seçmediğimden dolayı verilerin yerleri değişmemiş . Onlarda değişmeli. Benim hatam

 

[Korhan Ayhan]

Mesela bu veri nasıl sonraki satır haline geliyor?

Veri olan;

PersonelAd PersonelSyd102

4924 Söz Memur

RÖNT.TEK

Veri Olması Gereken;

PersonelAd PersonelSyd102

4924 Söz Memur

AİLE UZMANI HEKİMİ

 

[hatirlabeni]

Mesela bu veri nasıl sonraki satır haline geliyor?

Veri olan;

PersonelAd PersonelSyd102

4924 Söz Memur

RÖNT.TEK

Veri Olması Gereken;

PersonelAd PersonelSyd102

4924 Söz Memur

AİLE UZMANI HEKİMİ

Hocam sıralama yaparken hata yapmışsımı kusura bakmayın lütfen.

Dosyanın son halini ekledim.
Teşekküer ederim.

 

[Korhan Ayhan]

Bu arada profilinizdeki sürüm 2007 görünüyor. Güncellemenizde fayda var.

 

[hatirlabeni]

Bu arada profilinizdeki sürüm 2007 görünüyor. Güncellemenizde fayda var.

Ekli dosyayı görüntüle 256607

Güncelledim Hocam.

 

[Korhan Ayhan]

Eksik güncellemişsiniz...

Linki incelemenizde fayda var...

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

www.excel.web.tr

 

[hatirlabeni]

Eksik güncellemişsiniz...

Linki incelemenizde fayda var...

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

www.excel.web.tr

Bu bilgiler dahilinde güncelledim Hocam.
Teşekkür ederim.

 

[Korhan Ayhan]

Bu kod istediğiniz sonucu veriyor gibi görünüyor...

Option Explicit

Sub Sort_Data()
    Dim WS As Worksheet, Last_Row As Long
    
    Set WS = ActiveWorkbook.Worksheets("Veri olan")
        
    Last_Row = WS.Cells(WS.Rows.Count, 2).End(3).Row
    
    WS.Range("B3:NT" & Last_Row).Sort Key1:=WS.Range("C3"), Order1:=xlAscending, Key2:=WS.Range("D3"), Order2:=xlAscending

    Set WS = Nothing
End Sub

 

[hatirlabeni]

Bu kod istediğiniz sonucu veriyor gibi görünüyor...

Option Explicit

Sub Sort_Data()
    Dim WS As Worksheet, Last_Row As Long
   
    Set WS = ActiveWorkbook.Worksheets("Veri olan")
       
    Last_Row = WS.Cells(WS.Rows.Count, 2).End(3).Row
   
    WS.Range("B3:NT" & Last_Row).Sort Key1:=WS.Range("C3"), Order1:=xlAscending, Key2:=WS.Range("D3"), Order2:=xlAscending

    Set WS = Nothing
End Sub

Hocam ellerinize emeğinize sağlık.
Tam istediğim gibi oldu.
Son olarak yeni kayıt eklediğimizde Macroyu nasıl çalıştırmam gerekir.
Butona bağlayabilir miyiz Hocam ?

 

[volki_112]

Hocam ellerinize emeğinize sağlık.
Tam istediğim gibi oldu.
Son olarak yeni kayıt eklediğimizde Macroyu nasıl çalıştırmam gerekir.
Butona bağlayabilir miyiz Hocam ?

excel bir şekil ekleyin. şekile sağ tıklayıp Makro Ata deyin bu makro kodunu seçip tamam deyin. artı butona basınca çalışır.

 

[nihatkr]

Hocam yine hata veriyor.
Ben mi hata yapıyorum acaba ?
Veya excel versiyonumda mı problem anlamadım.

sizin kullandığınız versiyonda bazı özellikler desteklenmediği için çalışmıyor.

 

[hatirlabeni]

Sayın @Korhan Ayhan Hocam, @Muzaffer Ali ve @volki_112 yardımlarınız için çok teşekkür ederim.
Kolay gelsin.