buton ile hücre seçimi

[nintro]

siteye 3-4 gün önce üye oldum. içerik çok güzel özellikle excel konusu ile ilgiileniyorum. sorum şu; butona bastığımda a3-e200 arasında hücreleri seçmesini sağlamak istiyorum. amacım hücre seçimini yaptıktan sonra a-z arası sıralamak. çalışma kitabımda 150 adet çalışma sayfası var ve tek tek butonları sayfalara eklemeyi düşünüyorum.

 

[Ali]

Sub Buton1()
Range("A3:E200").Select
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Bu kod A3:E200 arasındaki verileri A sütununa göre sıralar.

[vb:1:f36d179798]Sub sirala()
[a3:e200].Sort Key1:=[a4]
End Sub
[/vb:1:f36d179798]

Not:A3:E3 arasında tablo başlıklarınız olduğu kabul edilmiştir.

 

[nintro]

Sn, fructose ilginiz için çok teşekkür ederim. bir sorum daha olacak butona bastığımızda seçilen hücrelerde otomatik olarak a-z sıralaması yaptırabilirmiyiz?

 

[Ali]

Sayın leventm, kodları yazmış Yazdığı kodlar direk sıralama yapıyor.

 

[nintro]

Sn, leventim çalışma kitabımda 150 adet çalışma sayfası var yazmış olduğunuz kodu modüle mi ekliyeceğim? ve eklersem bütün çaışma sayfaları için geçerli olacakmı?

 

[Ali]

Thisworkbooka ekleyin

 

[Levent Menteşoğlu]

150 adet çalışma sayfası var

Bu kitapların tamamındada aynı alan sıralanacak mı?

 

[nintro]

ekledim ama aktifleştiremedim. mümkünse butona bastığımda hem hücre seçip hemde sıralayabilirmi yani kodu butona eklesek iş görmez mi? ilginiz için teşekkürler

 

[nintro]

Sn, leventim ben her sayfaya bir buton koymayı düşünüyorum ve bu butona bastığımda şuan istediğim hücreleri seçiyor bide sıralama yaptırırsa buton çok güzel olacak

 

[Ali]

Seçili kalmasıda gerekiyorsa

Sub sirala()
Range("A3:E200").Select
[a3:e200].Sort Key1:=[a4]
End Sub

olarak değiştirin

 

[nintro]

hücre seçimi için 1 buton, sıralamak için 1 buton kullanarak olayı çözdüm ilginiz için teşekkür ederim.

 

[Levent Menteşoğlu]

Benim yukarıda verdiğim kodu her sayfada oluşturacağınız bir butona ayrı ayrı bağlayıp çalıştırabilirsiniz. Benim size önerim, menü içine buton yerleştirip, kodu bu butona bağlamanız, bu durumda hangi sayfa aktif ise o sayfada işlem yapacaktır. Menüye buton eklemek için;

Görünüm-araç çubukları-özelleştir-komutlar-makrolar-özel düğme yi mouse ile tutarak menüye taşıyın. Menüde bir buton oluşacaktır. Sonra pencereyi kapatıp bu butona tıklayarak makroyu bağlayabilirsiniz.

 

[nintro]

Sn, fructose yazmış olduğunuz kod tam olarak işime yaradı. sorunumu ifadelerle anlattığım için özür dilerim örnek bir dosya göndermem daha doğru olurdu teşekkürler

 

[nintro]

Sn, leventm gerçekten bu muhteşem oldu çok teşekkür ederim.

 

[Levent Menteşoğlu]

Bence her sayfaya buton koymak yerine benim en son tazdığım mesajımda yazdığımı uygulayın.

 

[07 Osman]

Sub Buton1()
Range("A3:E200").Select
End Sub

Yukarıdaki örnekte aynı sayfada istenilen hücreye gidiliyor.Peki şu nasıl olacak?
Sayfa1 de bir adet commandbuton var. Sayfa2 de Y1:Z50 aralığında veriler var.Butona tıklayınca sayfa2 de Y1:Z50 ye gidecek.Ancak;
Diyelimki Y1:Z50 aralığında herhangi bir hücrede 1 adet veri olsa bile direk gidecek.Eğer hiçbir hücresinde veri yoksa "kayda rastlanmadı yinede gitmek istiyormusunuz" diye sorup evet ve hayır tuşları olan butonda evet e basarsak gidecek hayıra basarsak gitmeyecek.
Bu konuda yardımlarınızı bekliyorum.

 

[Ali]

Sub Düğme1_Tıklat()
Dim aktar
Buttons = vbYesNoCancel + vbQuestion + vbDefaultButtons2
ak = MsgBox("Veriler aktarılsın mı?", Buttons, "Verileri aktarır")
Select Case ak
Case vbYes
aktar = Sheets("Sayfa1").Range("Y1:Z50")
Sheets("Sayfa2").Range("Y1:Z50").Value = aktar
Case vbNo
MsgBox "Veriler aktarılmadı"
End Select
End Sub

 

[07 Osman]

Sayın @fructose galiba bir yanlış anlaşılma var yada ben öyle anlıyorum.Burada veri aktarımı yok sadece sayfa 1 deki bir buton yardımıyla sayfa 2 deki Y1:Z50 aralığına gideceğiz veya seçeceğiz.Yani bir nevi buton köprü görevi görecek.Burada köprü yerine buton koymak istememdeki neden ise sözkonusu aralıkta hiç veri yoksa gidip yada gitmemeyi bize soracak veri varsa zaten direk gidecek.Umarım anlatabilmişimdir.

 

[Ali]

Daha önce başka başlıkla sorduğunuz soru için yazmıştım