Sıralama

[sevgi007]

Merhabalar çalışma sayfamda sıralama yapmak istiyorum A3 hücresinde bir rakamı butona basarak 60 kadar aşağıya doğru sıralamasını istiyorum bunu nasıl yapabilirim emeği geçen herkese teşekkürler

 

[Necdet]

Merhaba,

Sorunuz pek anlaşılır gibi değil, örnek dosyaya bir kaç veri girip anlatır mısınız?

 

[İhsan Tank]

Merhabalar çalışma sayfamda sıralama yapmak istiyorum A3 hücresinde bir rakamı butona basarak 60 kadar aşağıya doğru sıralamasını istiyorum bunu nasıl yapabilirim emeği geçen herkese teşekkürler

merhaba
bir butona atıyarak kullanabilirsiniz

Sub Düğme1_Tıklat()
Range("A3:F62").Sort key1:=Range("A3"), ORDER1:=xlAscending
MsgBox "Sıralama Yapılmıştır.", , "www.excel.web.tr"
End Sub

örnek dosyayı inceleyiniz

 

[sevgi007]

Emeğinize teşekkürler a3 hücresinde sayı değiştirdiğim zaman aşağıya doğru bu sefer yazdırmıyor mesale a3 hücresinde 61 yaptığımda aşağıya doğru en son hücre 101 olacak ilginize teşekkürler

 

[İhsan Tank]

Emeğinize teşekkürler a3 hücresinde sayı değiştirdiğim zaman aşağıya doğru bu sefer yazdırmıyor mesale a3 hücresinde 61 yaptığımda aşağıya doğru en son hücre 101 olacak ilginize teşekkürler

merhaba
konu'yu makro bölümünde açtığınız için yanlış anlamışım kusura bakmayın
istediğiniz buydu sanırım
A3'e her hangi bir rakam girin değişiklikleri inceleyeniz.
dosya ektedir

 

[sevgi007]

Çok Teşekkürler Ellerinize sağlık makro olarak düşündüm o yüzden makro bölümüne açtım

 

[Ergün Güler]

Selam,
A3 hücresine bir rakam girdikten sonra aşağıya doğru artarak sıralamak istiyorsanız Aşağıdaki kodu sayfa1'in kod sayfasına uygulayınız ve sayfanıza form'dan bir düğme ekleyiniz.
eklediğiniz düğmeye aşağıdaki makroyu atayınız.
İyi çalışmalar.

Sub Sırala()
For i = 1 To 60
a = ActiveSheet.Cells(3, 1).Value
ActiveSheet.Cells(i + 3, 1).Value = i + a
Next
End Sub

 

[İhsan Tank]

Çok Teşekkürler Ellerinize sağlık makro olarak düşündüm o yüzden makro bölümüne açtım

rica ederim
iyi çalışmalar :roll:

 

[sevgi007]

Selam,
A3 hücresine bir rakam girdikten sonra aşağıya doğru artarak sıralamak istiyorsanız Aşağıdaki kodu sayfa1'in kod sayfasına uygulayınız ve sayfanıza form'dan bir düğme ekleyiniz.
eklediğiniz düğmeye aşağıdaki makroyu atayınız.
İyi çalışmalar.

Sub Sırala()
For i = 1 To 60
a = ActiveSheet.Cells(3, 1).Value
ActiveSheet.Cells(i + 3, 1).Value = i + a
Next
End Sub

Teşekkürler çok işime yaradı Allah razı olsun

 

[Ergün Güler]

Teşekkürler çok işime yaradı Allah razı olsun

Ben teşekkür ederim. çözüm bulmanıza sevindim.
İyi çalışmalar.