Hücreye Girilen Sayı kadar sıralama işlemi

[blade_boy87]

Arkadaşlar Merhaba,
belirli bir hücreye örneğin 200 yazıp, yazdığım bu sayıya kadar A2 hücresinden itibaren;
1 den 200 e (hücreye girdiğim sayı) kadar sıralasın istiyorum.
Yardımlarınız için şimdiden teşekkür ederim.

 

[dEdE]

Merhaba,
Sayfanın kod bölümüne yapıştırarak dener misiniz?
B1 hücresi tetikleyici olarak kullanılmış olup istediğiniz sayıyı B1'e yazmalısınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
    Range("A2:A" & Rows.Count).ClearContents
    [A2] = 1
    Range("A2:A" & Cells(1, 2) + 1).DataSeries
End Sub

 

[Korhan Ayhan]

Formül ile alternatif..

D1 hücresine 200 yazıp deneyiniz.

=EĞER(SATIR(A1)<=D$1;SATIR(A1);"")

Bu formülü ihtiyaniz kadar alta sürükleyiniz.

 

[blade_boy87]

Merhaba,
Sayfanın kod bölümüne yapıştırarak dener misiniz?
B1 hücresi tetikleyici olarak kullanılmış olup istediğiniz sayıyı B1'e yazmalısınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
    Range("A2:A" & Rows.Count).ClearContents
    [A2] = 1
    Range("A2:A" & Cells(1, 2) + 1).DataSeries
End Sub

Çok teşekkür ederim. istediğim gibi oldu

 

[Korhan Ayhan]

Bu da Ofis 365 için alternatif olsun...

D1 değeri yazınız.

A2;

=SIRALI(D1)

Dökülmeli fonksiyon olduğu için listeyi kendisi otomatik oluşturacaktır.