Sıralı Açılır Liste Yapmak

[mrwarrior]

Elimde 1 den 90 a kadar benzersiz ve karışık sayıların olduğu bir sayfa var. sayfa2 de a2 den başlıyor. A91 kadar gidiyor. Ancak sıralı değil.

Ben sayfa1 de a1 hücresine açılır liste eklemek istiyorum. Açılır listeye sayfa 1 A2:A91 yazınca karışık şekilde veriyor. Benim istediğim bu verileri bana verirken sıralı olması?
Makro ile başka bir sayfaya sıralı olarak yazdırabilirim ancak ben bu şekilde oluyor mu diye merak ettim?

 

[turist]

VBA Editor'de Sayfa1'in sayfa kodu kısmına;

Private Sub Worksheet_Activate()
Dim s1, s2 As Worksheet
Dim i As Long, x As String
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
For i = 2 To 91
    x = x & "," & Application.WorksheetFunction.Small(s2.Range("$A$2:$A$91"), i - 1)
    Next i
With s1.Range("A1").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:=x
End With
End Sub

yazarak deneyin.

 

[mrwarrior]

En kısa zamanda deneyeceğim. İlginiz için teşekkürler.

 

[turist]

En kısa zamanda deneyeceğim. İlginiz için teşekkürler.

Sağ olun, iyi çalışmalar.