Satır sonuna tık koymak?

[archers70]

İyi geceler,benim şöyle bir sorum olacak. ekteki dosyada h sütununa tık atılacak bir kutucuk yerleştirilebilir mi? yapılır ise o kutuya tık konduğunda onun olduğu satır herhangibir renge boyanabilir mi? kolay gelsin , şimdiden tşekkürler.
ömer akkas

 

[archers70]

sütünu boyama !!!

İyi geceler,
benim şöyle bir sorum olacak. ekteki dosyada h sütununa tık atılacak bir kutucuk yerleştirilebilir mi? yapılır ise o kutuya tık konduğunda onun olduğu satır herhangibir renge boyanabilir mi? kolay gelsin , şimdiden tşekkürler.
ömer akkaş

 

[hamitcan]

Sub LoopOptionButtons()
    Dim sOptBut As Shape
    For Each sOptBut In ActiveSheet.Shapes
        If sOptBut.FormControlType = xlOptionButton Then
            If sOptBut.ControlFormat.Value = xlOn Then
               Range("a" & (sOptBut.TopLeftCell.Row + 1) & ":g" & (sOptBut.TopLeftCell.Row + 1)).Interior.Color = vbGreen
            Else
                Range("a" & (sOptBut.TopLeftCell.Row + 1) & ":g" & (sOptBut.TopLeftCell.Row + 1)).Interior.Color = xlNone
            End If
        End If
    Next sOptBut
End Sub

 

[archers70]

teşekkür ve ilave )

teşekkür ederim ilginize cevabınıza. yalnız ufak bir ayrıntı var , şöyleki 1. satırdakine tık koyduktan sonra 2. satırdakine koyunca ilk kouduğumuz satırdaki kalkıyor. ben kalkmasın istiyorum. yani tıkladığım o renkte kalsın kaç tane tıklarsam o kadar satır boyansın. teşekkürler tekrar.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz. Koşullu biçimlendirme ile yapılmıştır. H sütununun yazı karakteri değiştirilmiştir. H sütununa P harfini (büyük harf) yazıp deneyiniz.

 

[archers70]

SAYIN KORHAN BEY ;
Emeklerinize teşekkür ederim ,işimi görecektir.sağlıcakla kalın
Ömer