Aktif olan hücre renklensin...

[aliakgul]

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]

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]

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]

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]

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

 

[gecemavisi]

Peki A1 ile c 10 Hücreleri arasında reklendirme vazifesini nasıl yaparım

 

[AS3434]

Ben bugün link verme gönüllüsü oldum
http://www.excel.web.tr/viewtopic.php?t=15727

 

[gecemavisi]

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]

Bilmiyorum. Onunla da ilgili bir link arayayım . Sitede biryerde mutlaka vardır.

 

[Ali]

Sitede biryerde mutlaka vardır.

Aşağıdaki linki inceleyin
http://www.excel.web.tr/viewtopic.php?t=15308

 

[AS3434]

Ve bunu
http://www.excel.web.tr/viewtopic.php?t=15490

 

[aliakgul]

Sevgili fructose,
Kodları uyguladım.Gayet güzel ancak koşullu biçimlendirmeleri iptal ediyor....

 

[Ali]

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

 

[gecemavisi]

Olmuyor

 

[Ali]

Ne olmuyor gecemavisi,

Kodları diyorsanız denedim çalışıyor.

 

[gecemavisi]

Yazıcıdan çıktı alırken görünüyor

 

[Ali]

http://www.excel.web.tr/viewtopic.php?t=15490

Linkini inceleyin

 

[gecemavisi]

Hayır sadece çıktı aldığım zaman görünmesini istemiyorum. O zaman bir espirisi kalmıyor ki

 

[Ali]

Hayır sadece çıktı aldığım zaman görünmesini istemiyorum. O zaman bir espirisi kalmıyor ki

Yanlış link vermişim aşağıdaki link olacak

http://www.excel.web.tr/viewtopic.php?t=15308

 

[gecemavisi]

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...