DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldRange As Range
OldRange.Interior.ColorIndex = 0
On Error Resume Next
Target.Interior.Color = vbRed
Set OldRange = Target
End Sub
Her sayfanın kod kısmına ayrı ayrı yapıştırın..Olmazmı?birden fazla calisma sayfasına uygulayalim
yanlız kodu yapıtırıyoruz ancak akitif olan hücreden kopyala veya yapıştır yapamıyoruz.veyselemre' Alıntı:ThisWorkbook 'un kod kısmına aşağıdaki kodu yapıştır
[vb:1:9096e7ee26]Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, 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[/vb:1:9096e7ee26]
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)