adet kadar sıralamak

[argo619]

değerli üstadlarım ekli dosyamda sayfa1 b1 deki rakam kadar a1 deki değeri sayfa2 a sütününe sıralamak istiyorum
saygılarımla

 

[kartalotti]

=DÜŞEYARA(A1;Sayfa1!$1:$65536;2;0)

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Sub AdetKadarYaz()
adet = Sheets("sayfa1").Cells(1, 2)
For i = 1 To adet
Sheets("sayfa2").Cells(i, 1) = Sheets("sayfa1").Cells(1, 1)
Next
End Sub

ya da

=EĞER(SATIR()<=Sayfa1!$B$1;Sayfa1!$A$1;0)