Sabit Makro Butonu

[Jeeday]

Elimde çok uzun bir liste var. Sürekli değişik filtrelemeler yapmak zorunda kalıyorum. Her bir filtrelemeyi makro olarak kaydedip butonlara atayacağım. Bu butonların sürekli ekranda görünmesini istiyorum. Listenin neresinde olursam olayım mutlaka bu butonlar görünsün, sabit dursun ve aşağı yukarı gitmesin....

 

[Huseyinkis]

Elimde çok uzun bir liste var. Sürekli değişik filtrelemeler yapmak zorunda kalıyorum. Her bir filtrelemeyi makro olarak kaydedip butonlara atayacağım. Bu butonların sürekli ekranda görünmesini istiyorum. Listenin neresinde olursam olayım mutlaka bu butonlar görünsün, sabit dursun ve aşağı yukarı gitmesin....

Butonları A1,B1,C1, hücrelerinin üzerine yerleştirin daha sonra a2 hücresine gelin ve bölmeleri dondur işlemi yapın ..

 

[Jeeday]

o yöntemi biliyorum ama elimdeki dosyanın şekline uymuyor malesef, başka yolu var mı?

 

[Huseyinkis]

o yöntemi biliyorum ama elimdeki dosyanın şekline uymuyor malesef, başka yolu var mı?

butonu eklediten sonra uzerinde sağ clik yapın denetimi biçimlendir / özellikler kısmından hücrelerle taşıma ve boyutlandırma seçeneğini secip denermisiniz.

 

[Jeeday]

Onunla sütun yada satırların uzunluklarını değiştirdiğimizde buton sabit kalsın özelliği...

 

[Huseyinkis]

Onunla sütun yada satırların uzunluklarını değiştirdiğimizde buton sabit kalsın özelliği...

peki aşağıdaki kodlar işinize yararmı tıkladığınız hücrenin yanına çeker butonları..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("düğme 1").Top = ActiveCell.Offset(2, 2).Rows.Top
End Sub

 

[Jeeday]

nereye yazıcaz bunu

 

[Huseyinkis]

nereye yazıcaz bunu

hangi sayfada ise butonlar o sayfanın kod kısmına yapıştırmanız yeterli olacaktır.

bütün butonların aynı yere gelmemesi için ActiveCell.Offset(2, 2).Rows.Top kısmındaki 2:2 kendiniz diğer butonlarda değiştiriniz.

ActiveSheet.Shapes("düğme 1").Top = ActiveCell.Offset(2, 2).Rows.Top

 

[Jeeday]

Teşekkür ederim hallettim...