• DİKKAT

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

deger degistici hk.

zetkatamet

Altın Üye
Katılım
13 Mart 2008
Mesajlar
1,411
Excel Vers. ve Dili
Office 365 Türkçe
Arkadaslar,
Deger degistirici ve kosullu bicimlendirme ile secimi belirginlestirmeye calistim..
Deger degistiricide surekli yukari veya surekli asagiya tiklandiginda dongu seklinde hucrelerin boyanmasi saglanabilir mi?
Mumkunse makrosuz bir cozumu rica ederim.
Dosya ekte..
 

Ekli dosyalar

Kod:
Private Sub SpinButton1_Change()
[b3:k20].Interior.Color = xlAutomatic
If SpinButton1.Value = 2 Then
SpinButton1.Value = 20
ElseIf SpinButton1.Value = 21 Then
SpinButton1.Value = 3
End If
Range(Cells(SpinButton1.Value, 2), Cells(SpinButton1.Value, "K")).Interior.Color = vbGreen
End Sub
 

Ekli dosyalar

Tesekkurler Sn.Hamitcan.. sanırım makrosuz cozum olamiyor.
Saygilar.
 
Benim kolayıma bu geldi. Uğraşılırsa o da olur.
 
Geri
Üst