makro ile sıralama

[şehiriçi]

merhaba arkadaşlar...
ekte gönderdiğim deneme adlı kitabın veri adlı sayfasında yaklaşık 100 satırlık veri var
1...bu verileri alfabetik sıralama yaparak SIRALAMA adlı diğer sayfaya aktarmasını istiyorum
2... asıl istediğim ve benim işime yaracak olan sa aynı işlemi farklı bir kitaba yine alfabetik sıralama yaparak aktarması

 

[Muzaffer Ali]

Aşağıdaki kodları deneyin

Sub Makro1()
    With ActiveWorkbook.Worksheets("VERİ").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Sheets("VERİ").Copy
End Sub

 

[Murat OSMA]

Sn. dalgalikur'un müsadesiyle...

A-B-C sütunlarında tamamı 0 olan verilerinizi silin ve bu kodları kullanın;

[FONT="Trebuchet MS"]Sub Emre()
    Rky% = Range("A65536").End(3).Row
    Range("A2:C" & Rky).Sort Range("A2"), 1
    Range("A1:C" & Rky).Copy Sayfa2.Range("A1")
End Sub[/FONT]

 

[şehiriçi]

dalgalı kur ilgine teşekkür ediyorum lakin benden midir bilmem kod çalışmadı
ama sorunum çözüldü ...teşekkürler murat osma

 

[şehiriçi]

sayın murat osma sizi mümkünse tekrar rahatsız edeceğim
verdiğiniz kodu ben dosyama uyarlamak istedim ama olmadı
ilk örnek dosyada satırı sınırlı tutmuştum aslında satır daha uzun asıl örnek dosyamı gönderiyorum
sadece kod la sıralama sayfasını sıralasın yeter diğer sayfaya aktarmasına gerek kalmadı .tşk..

 

[Murat OSMA]

Satırın uzun olması önemli değil.
Çünkü; koddaki şu kısımda; Range("A65536").End(3).Row A sütunundaki dolu olan son satır numarasını aldırdım. Dolu olan satır numarası 65536 dan büyük olmadığı sürece kullanabilirsiniz.
Yeni eklediğiniz dosyada önemli olan sütun adresi. Önceki C sütununa kadardı, şimdiki I sütununa kadar.
Koddaki ilgili yeri I sütunu olarak değiştirip kullanabilirsiniz.

[FONT="Trebuchet MS"]Sub Emre()
    Rky% = Range("A65536").End(3).Row
    Range("A2:[COLOR="Red"]I[/COLOR]" & Rky).Sort Range("A2"), 1
End Sub[/FONT]

 

[şehiriçi]

aslında sütun yazmam gerekirken satır yazmışım .şimdi oldu emeğinize sağlık teşekkürler

 

[Murat OSMA]

Rica ederim, iyi günler.