• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

buton ile hücre seçimi

N

nintro

Katılım
25 Kasım 2005
Mesajlar
27
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.
 
Sub Buton1()
Range("A3:E200").Select
End Sub
 
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.
 
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?
 
Sayın leventm, kodları yazmış Yazdığı kodlar direk sıralama yapıyor.
 
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ı?
 
Thisworkbooka ekleyin
 
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
 
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
 
Seçili kalmasıda gerekiyorsa

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

olarak değiştirin
 
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.
 
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.
 
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
 
Bence her sayfaya buton koymak yerine benim en son tazdığım mesajımda yazdığımı uygulayın.
 
fructose' Alıntı:
Sub Buton1()
Range("A3:E200").Select
End Sub
Genişletmek için tıkla ...

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.
 
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
 
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.
 
Daha önce başka başlıkla sorduğunuz soru için yazmıştım
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst