Otomatik olarak A dan Z ye Sıralama

[dejavuxer]

Benim sorunum şu

Listede görülen çizelgeyi başka bir sayfadan formül ile çekiyorum

Yapmak istediğim;

Listeyi otomatik İL adına ondan sonra ilçe adına göre A dan Z ye sıralamak

çok uğraştım yapamadım. ( ctrl + shift + aşağı ok yapıyorum " 0 " değerleride seçiyor olmuyor )
Yardımlarınız için şimdiden teşeküler

 

[turist]

Ekli dosyayı inceleyiniz.

 

[dejavuxer]

Ekli dosyayı inceleyiniz.

Turist bey teşekkürler, bu şekilde yapabiliyorum bu yaptığım işlemi kod ile yapmam gerekiyor. Yardımlarınız için tekrar teşekkürler...

 

[EmrExcel16]

Aşağıdaki kod u deneyiniz.

Sub sırala()
Range("A2").AutoFilter Field:=1, Criteria1:=">0<"
Range("A2:C" & Rows.Count).Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2")
End Sub

 

[Necdet]

Merhaba,

Anladığım kadarıyla bir sayfadan başka sayfaya aynı verileri (sadece sütun değiştirerek) alıp sıralamak istiyorsunuz.

Bu durumda formüllere gerek yok, doğrudan kodlar bunu yapabilir.
Aşağıdaki kodları deneyiniz.

Not : Çözümü makro ile istiyorsunuz ama soruyu makro bölümünde sormuyorsunuz, lütfen konulara dikkat ediniz.

Sub AktarSirala()
    
    Dim i   As Long, _
        sv  As Worksheet, _
        ss  As Worksheet
    
    Set sv = Sheets("VERİ")
    Set ss = Sheets("SAYFA")
    
    Application.ScreenUpdating = False
    ss.Select
    ss.Range("A:C").ClearContents
    i = sv.Cells(Rows.Count, "A").End(3).Row
    sv.Range("A1:A" & i & ",C1:C" & i).Copy ss.Range("A1")
    sv.Range("B1:B" & i).Copy ss.Range("C1")
    ss.Range("A2:C" & i).Sort Key1:=ss.Range("A1"), Key2:=ss.Range("B1")
    
    Application.ScreenUpdating = True
    
End Sub

 

[dejavuxer]

şirkete gidip deneyeceğim akşam cevabını yazarım teşekkürler

 

[dejavuxer]

Merhaba,

Anladığım kadarıyla bir sayfadan başka sayfaya aynı verileri (sadece sütun değiştirerek) alıp sıralamak istiyorsunuz.

Bu durumda formüllere gerek yok, doğrudan kodlar bunu yapabilir.
Aşağıdaki kodları deneyiniz.

Not : Çözümü makro ile istiyorsunuz ama soruyu makro bölümünde sormuyorsunuz, lütfen konulara dikkat ediniz.

Sub AktarSirala()
    
    Dim i   As Long, _
        sv  As Worksheet, _
        ss  As Worksheet
    
    Set sv = Sheets("VERİ")
    Set ss = Sheets("SAYFA")
    
    Application.ScreenUpdating = False
    ss.Select
    ss.Range("A:C").ClearContents
    i = sv.Cells(Rows.Count, "A").End(3).Row
    sv.Range("A1:A" & i & ",C1:C" & i).Copy ss.Range("A1")
    sv.Range("B1:B" & i).Copy ss.Range("C1")
    ss.Range("A2:C" & i).Sort Key1:=ss.Range("A1"), Key2:=ss.Range("B1")
    
    Application.ScreenUpdating = True
    
End Sub

Hocam kodlarda birkaç değişiklik yapabilir miyiz.

benim tablom A sütunundan M sütununa kadar

tabloyu veri sayfasından formül yardımı ile çekiyorum

Benim istediğim: formül il çektiğim verileri önce A sütununu, daha sonra B sütunun A dan Z ye sırlamak istiyorum. Sırala komutunda ki 1 ci A sütunu 2 ci B sütunu tercihi gibi kod ile yaparak hatayı önlemem gerekiyor.

Yardımlarınız için teşekkürler

 

[dejavuxer]

yardımlarınızı benden esirgemeyin üstadlar ...