Kayan buton, sıra no' ya göre takip etsin..

[EKREM1661]

Arkadaşlarımıza selam ve iyi akşamlar..!

Ekte; kayan buton konusunda, düşey olarak imleci takip eden örnek mevcut..

Ancak; buna biraz sınırlama getirmek istiyorum.. Şöyle ki; "K" sütununda düşey olarak imleci takip eden buton,
A sütununa baksın.. Sıra numaraları nereye kadar iniyorsa, o hizaya kadar takip etsin, Sıra numarası olmayan boş satırlara inildiğinde takip etmesin.. Yani lüzum etmeyen yerde makro çalışmasın diyorum.

 

[Mahir64]

Arkadaşlarımıza selam ve iyi akşamlar..!

Ekte; kayan buton konusunda, düşey olarak imleci takip eden örnek mevcut..

Ancak; buna biraz sınırlama getirmek istiyorum.. Şöyle ki; "K" sütununda düşey olarak imleci takip eden buton,
A sütununa baksın.. Sıra numaraları nereye kadar iniyorsa, o hizaya kadar takip etsin, Sıra numarası olmayan boş satırlara inildiğinde takip etmesin.. Yani lüzum etmeyen yerde makro çalışmasın diyorum.

Merhaba

[B]If Not IsEmpty(Range("A" & Target.Row)) Then[/B]
ActiveSheet.Shapes("buton").Top = ActiveCell.Offset(1, 1).Rows.Top
[B]End If[/B]

Bu şekilde bir kontrol koyarak deneyebilirsiniz.

 

[EKREM1661]

Sayın Black Lord..' Teşekkürler...Sağlık ve başarı dileğiyle..

 

[Mahir64]

Sayın Black Lord..' Teşekkürler...Sağlık ve başarı dileğiyle..

Teşekkür ederim
İyi çalışmalar :hey: