A'dan Z'ye ve numeretik sıralama (i değişkeni)

[falconbir]

Private Sub CommandButton5_Click()
Unload Me
Sheets("Data").Select

    [COLOR="Red"]Range("B2:B65536").Select
    Range("A1:L65536").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal[/COLOR]
[COLOR="SeaGreen"] ‘ Yukarıdaki bu kodları Excel de makro kaydetme 
yönteminden buraya uyarladım (Listbox’a kaydedilen isimleri SIRALA butonu ile 
A’dan Z’ye sıralama yapıyor. ama tabi makro  ile yapıyor )[/COLOR]
       
    [COLOR="Blue"]   With Sheets("Data")
          Son_Dolu_Satir = .Range("A65536").End(xlUp).Row
          Düzelecek_Satir = Son_Dolu_Satir [COLOR="Red"]- i[/COLOR]
                
          .Range("A" & Düzelecek_Satir).Value = _ 
                          Application.WorksheetFunction.Max(.Range("A:A")) [COLOR="Red"]- i[/COLOR]
        End With[/COLOR]
        
[COLOR="SeaGreen"]‘ Yukarıdaki mavi kodları ise isimlerin A’dan Z’ye 
sıralamasından sonra, Excel de [COLOR="RoyalBlue"]data[/COLOR] çalışma sayfasındaki kayıtlarda A 
sütunundaki  numaralarında kendi içersinde numeretik sıralanmasını istiyorum.

 Mavi kodları, A sütununda ki son dolu satırı bulup, yine  A daki mak. degeri 
 bu son dolu satıra yazdıktan sonra bu işlemleri < son dolu satır [COLOR="Red"]–i [/COLOR]> şeklinde 
A2 hücresine kadar çalıştıracak kodları ekleyemedim. İ döngüsünü kuramadım 
Bu konu hakkında yardımcı olursanız sevinirim. [/COLOR]

     Sheets("Ana").Select
   UserForm1.Show
  End Sub

Makro ve kod karışımı bişeyler yapmaya çalıştım, muhakkak bu iki sıralama işini daha kolay yapabilecegimiz kodlar vardır. Mavi renkli kodları tamamlamam veya her iki işlemide bir seferde yapabilecegim kodlar konusunda yardımlarınızı bekliyorum.


Dosyayıda ekliyorum.
.
.
.
.

 

[Orion1]

With Sheets("Data")
    son_dolu_satir = .Range("A65536").End(xlUp).Row
    sayi = Application.WorksheetFunction.Max(.Range("A:A"))
    For i = son_dolu_satir To 2 Step -1
        .Range("A" & i).Value = sayi
        sayi = sayi - 1
    Next i
End With

 

[falconbir]

Evren Gizlen Hocam,teşekkürler

kodlar süper uydu )
bizim biraz daha fırınlarla haşirneşir olmamız gerekiyor )

Peki üstadım bu kırmızı kodlar'a (makro dan alıntı ) alternatif bi kod yazarmısınız. A'dan Z' ye sıralamayı devamlı çalışma sayfalarını açıp kapatıp fiziksel yapıyormuş gibi uyguluyor. Bu da her çalışmada lazım olan bi kod. saygılarımla