• DİKKAT

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

Aktif olan hücre renklensin...

aliakgul

aliakgul

Katılım
9 Mayıs 2005
Mesajlar
404
Excel Vers. ve Dili
Ofis 2016 TR 64 Bit
Selam arkadaşlar,
Aktif (seçili) olan hücremin renklenmesini istiyorum. Seçim başka hücreye kayınca hücreler önceki haline dönecek... Arkadaşlar, forum içinde araştırma yaptım, bulduğum çalışmalarda sıkıntı, sayfada önceden yapılmış olan biçimlendirmeleri iptal etmesi idi... Herkese iyi çalışmalar dilerim..
 
Sn.aliakgul,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'kırmızı renge tanımlı
ActiveCell.Interior.ColorIndex = 3
End Sub


İstediğini Böle Birşey mi?
 
Sanırım aliakgul, daha önce renklendirilmiş hücrelerinde renginin bozulmadan kalmasını istiyor.

Bu durumda aşağıdaki kodları deneyin

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ColorIndx As Integer
On Error Resume Next
ColorIndx = Target.Interior.ColorIndex
ColorIndx = IIf(ColorIndx < 0, 6, ColorIndx + 1)
Cells.FormatConditions.Delete
With ActiveCell
.FormatConditions.Add Type:=2, Formula1:=1
.FormatConditions(1).Interior.ColorIndex = ColorIndx
End With
End Sub
 
Ellerinize sağlık arkadaşlar... Çok teşekkür ederim.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ColorIndx As Integer
On Error Resume Next
ColorIndx = Target.Interior.ColorIndex
ColorIndx = IIf(ColorIndx < 0, 6, ColorIndx + 1)
Cells.FormatConditions.Delete
With ActiveCell
.FormatConditions.Add Type:=2, Formula1:=1
.FormatConditions(1).Interior.ColorIndex = ColorIndx
End With
End Sub
Genişletmek için tıkla ...

Peki ben bu uygulamada seçimi hücre değil de, aktif hücrenin olduğu satır olarak belirlemek istesem nasıl bir düzenleme yapmam gerekiyor????
 
aktif hücrenin olduğu satır olarak belirlemek istesem
Genişletmek için tıkla ...

O zaman aşağıdaki gibi olur

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ColorIndx As Integer
On Error Resume Next
ColorIndx = Target.Interior.ColorIndex
ColorIndx = IIf(ColorIndx < 0, 6, ColorIndx + 1)
Cells.FormatConditions.Delete
With ActiveCell.EntireRow
.FormatConditions.Add Type:=2, Formula1:=1
.FormatConditions(1).Interior.ColorIndex = ColorIndx
End With
End Sub
 
peki SayınAS3434;
Bu reklendirme işini sırf yazı yazarken veriyi rahat görmek için kullanıyorum ama çıktıda çıkmasını istemiyorum. Onu nasıl ayarlarız. Yardımınız için sağolun...
 
Bilmiyorum. Onunla da ilgili bir link arayayım :). Sitede biryerde mutlaka vardır.
 
Sevgili fructose,
Kodları uyguladım.Gayet güzel ancak koşullu biçimlendirmeleri iptal ediyor....
 
Aşağıdaki kodları deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Const kolonsayisi As Long = 256
Const prenkliler As Long = 36
Static eskirenk As Range
Static renkliyer(1 To kolonsayisi) As Long
Dim i As Long
If Not eskirenk Is Nothing Then
With eskirenk.Cells
If .Row = ActiveCell.Row Then Exit Sub
For i = 1 To kolonsayisi
.Item(i).Interior.ColorIndex = renkliyer(i)
Next i
End With
End If
Set eskirenk = Cells(ActiveCell.Row, 1).Resize(1, kolonsayisi)
With eskirenk
For i = 1 To kolonsayisi
renkliyer(i) = .Item(i).Interior.ColorIndex
Next i
.Interior.ColorIndex = prenkliler
End With
End Sub
 
Ne olmuyor gecemavisi,

Kodları diyorsanız denedim çalışıyor.
 
Hayır sadece çıktı aldığım zaman görünmesini istemiyorum. O zaman bir espirisi kalmıyor ki
 
Hocam, Çıktı alırken görünüyor. Artı kodu silince ekranda apışıp kalıyor.
Bi daha da kaldırmak mümkün değil. Yani Hücrelere hiç etkisi olmasın. Silince kodu eski şekilde çalışsın. Çıktıda görünmesin istiyorum. Zahmetiniz için teşekkürler...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst