• DİKKAT

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

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

Katılım
19 Eylül 2015
Mesajlar
2
Excel Vers. ve Dili
dsafa
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.
 
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.
 
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.
 
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
 

Ekli dosyalar

Geri
Üst