Aktif olan hücre renklensin...

aliakgul

Altın Üye
Katılım
9 Mayıs 2005
Mesajlar
402
Excel Vers. ve Dili
Ofis 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
03-08-2025
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..
 

Kemal Demir

Özel Üye
Katılım
29 Temmuz 2004
Mesajlar
2,108
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?
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,897
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
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
 

aliakgul

Altın Üye
Katılım
9 Mayıs 2005
Mesajlar
402
Excel Vers. ve Dili
Ofis 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
03-08-2025
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
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????
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,897
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
aktif hücrenin olduğu satır olarak belirlemek istesem
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
 
Katılım
20 Şubat 2006
Mesajlar
259
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...
 

AS3434

Özel Üye
Katılım
13 Ocak 2005
Mesajlar
1,820
Excel Vers. ve Dili
M.Office/Excel 2007 Türkçe
Bilmiyorum. Onunla da ilgili bir link arayayım :). Sitede biryerde mutlaka vardır.
 

aliakgul

Altın Üye
Katılım
9 Mayıs 2005
Mesajlar
402
Excel Vers. ve Dili
Ofis 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
03-08-2025
Sevgili fructose,
Kodları uyguladım.Gayet güzel ancak koşullu biçimlendirmeleri iptal ediyor....
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,897
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
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
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,897
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Ne olmuyor gecemavisi,

Kodları diyorsanız denedim çalışıyor.
 
Katılım
20 Şubat 2006
Mesajlar
259
Hayır sadece çıktı aldığım zaman görünmesini istemiyorum. O zaman bir espirisi kalmıyor ki
 
Katılım
20 Şubat 2006
Mesajlar
259
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...
 
Üst