DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Makro1()
Columns("A:A").Select
Range("A1:B4").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B1").Select
End Sub
Kod satırında Değişiklik yapmamız gerekir.mehmetcan' Alıntı:Kod:Sub Makro1() Columns("A:A").Select Range("A1:B4").Sort Key1:=Range("A1")
Sub sonsatırakadarsırala()
sonsatir = Range("a1").End(xlDown).Row
Range(Cells(1, 1), Cells(sonsatir, 2)).Select
Selection.Sort _
Key1:=Worksheets("Sheet1").Columns("A"), _
Header:=xlGuess
End Sub
Sub Tumsutuna_Kadar_Sırala()
Columns("A:b").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
makroyu ben A56 sonrası için nasıl ayarlayabilirim? yani A56 dan sonra sıralayacakTumsutuna_Kadar_Sırala