Merhaba arkadaşlar forumlarda aşağıdaki kodları buldum ama bu kodlarda sorun yaşıyorum öncelikle çalışma kitabımı kapatıp açtığımda en son seçili kalan hücre renkli olarak kalıyor biçimlendirmedende düzelmiyor, sonra hücre kopyalatmıyor acaba kodlardamı bi sorun var göz atabilirmiyiz mümkünse.
Birde bukodlarda seçili hücrede yazı renginin değişmesini istiyorum hücreden çıkınca yine normal rengine dönmesi lazım.
Şimdiden teşekkür ederim.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static EskiHucre As Range
If Target.Interior.ColorIndex <> xlColorIndexNone Then
EskiHucre.Interior.ColorIndex = xlColorIndexNone
Exit Sub
ElseIf Not EskiHucre Is Nothing Then
EskiHucre.Interior.ColorIndex = xlColorIndexNone
End If
Target.Interior.ColorIndex = 6
Set EskiHucre = Target
End Sub
Birde bukodlarda seçili hücrede yazı renginin değişmesini istiyorum hücreden çıkınca yine normal rengine dönmesi lazım.
Şimdiden teşekkür ederim.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static EskiHucre As Range
If Target.Interior.ColorIndex <> xlColorIndexNone Then
EskiHucre.Interior.ColorIndex = xlColorIndexNone
Exit Sub
ElseIf Not EskiHucre Is Nothing Then
EskiHucre.Interior.ColorIndex = xlColorIndexNone
End If
Target.Interior.ColorIndex = 6
Set EskiHucre = Target
End Sub