Her satır sonuna buton ekleyip tıklayınca satırı boyama

[forumcem]

Slm.
Her satırın sonuna buton koymak istiyorum.
Butonlara tıklayınca butonun bulunduğu satırı boyamak istiyorum.
Yardımcı olursanınız çok sevinirim.
Saygılar.

 

[muygun]

Merhaba;

Sayfanın kod bölümüne;

Sub Makro1()
sat = ActiveCell.Row
Range("A" & sat & ":IV" & sat).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub

Kodlarını yerleştirip butonlara aynı makroyu bağlayın. (aslında tek buton yeterli)
Böylece imleç hangi satırda ise butona basınca ilgili satır sarı olacak.

İyi çalışmalar.

 

[polis-53]

Buton hareketli

Merhaba muygun bey buton hareketli olabilir mi örneğin buton 1 satırda olduğunu var sayarsak ben 200. satırda isem butonu yine görme imkanım olabilirmi hangi satırda ise buton otomatik oraya taşınsın.

 

[muygun]

Merhaba muygun bey buton hareketli olabilir mi örneğin buton 1 satırda olduğunu var sayarsak ben 200. satırda isem butonu yine görme imkanım olabilirmi hangi satırda ise buton otomatik oraya taşınsın.

Merhaba;
Ekteki gibi olabilir.
Sayfaya Otomatik Şekillerdeki İki yönlü ok çizilmiş ve isimlendirilmiştir.
Daha sonra bu şekle marko1 makrosu atanmıştır.
İnceleyin.
İyi çalışmalar.

Not: Objenin taşınması ile ilgili kodlar Syn. Halit3'ün bir çalışmasından alıntıdır.

Link:
http://s3.dosya.tc/server7/z2hiyw/polis-53-imlecle_hareket_eden_obje.zip.html