merhaba arkadaşlar aşağıdaki macro çok iyi çalışıyor fakat bana göre bir iki ufak düzeltme olursa daha güzel olacak.
exceli kapatıp açtığımda en son hangi satır ve sütundaysa o sütün macrodaki renk kodu olan 6 yani sarı olarak kayıt edilmiş olarak açılıyor ve düzeltemiyorsunuz. düzeltmek değilde renkli olarak kayıt etmesini istemiyorum.
ayrıca sadece A ile T arasında renklendirme yapmasını istiyorum
belirttiğim bu iki konuyu hallettmek için macroya nasıl bir ilave kod yazılmalıdır acaba? yardımcı olmanızı rica ederim.
Bir ilave; takılmadan çalışması için de yapılabilecek birşey varmıdır? imleci klavyedeki oklarını kullanarak sağa, sola, yukarı, aşağı hareket ettirdiğimde bariz takılmalar oluyor.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static EskiHucre As Range ', EskiHucre2 As Range
Static SatirRenkDizisi(256) As Integer
'Static SutunRenkDizisi(65536) As Long
Dim bulent As Integer
'Dim excelce As Long
If Not EskiHucre Is Nothing Then
For bulent = 1 To 256
Cells(EskiHucre.Row, bulent).Interior.ColorIndex = SatirRenkDizisi(bulent)
Next bulent
' For excelce = 1 To 65536
' Cells(excelce, EskiHucre2.Column).Interior.ColorIndex = SutunRenkDizisi(excelce)
' Next excelce
End If
For bulent = 1 To UBound(SatirRenkDizisi)
SatirRenkDizisi(bulent) = Cells(ActiveCell.Row, bulent).Interior.ColorIndex
Next bulent
'For excelce = 1 To UBound(SutunRenkDizisi)
' SutunRenkDizisi(excelce) = Cells(excelce, ActiveCell.Column).Interior.ColorIndex
'Next excelce
ActiveCell.EntireRow.Interior.ColorIndex = 6
'ActiveCell.EntireColumn.Interior.ColorIndex = 6
Set EskiHucre = ActiveCell.EntireRow
'Set EskiHucre2 = ActiveCell.EntireColumn
End Sub
exceli kapatıp açtığımda en son hangi satır ve sütundaysa o sütün macrodaki renk kodu olan 6 yani sarı olarak kayıt edilmiş olarak açılıyor ve düzeltemiyorsunuz. düzeltmek değilde renkli olarak kayıt etmesini istemiyorum.
ayrıca sadece A ile T arasında renklendirme yapmasını istiyorum
belirttiğim bu iki konuyu hallettmek için macroya nasıl bir ilave kod yazılmalıdır acaba? yardımcı olmanızı rica ederim.
Bir ilave; takılmadan çalışması için de yapılabilecek birşey varmıdır? imleci klavyedeki oklarını kullanarak sağa, sola, yukarı, aşağı hareket ettirdiğimde bariz takılmalar oluyor.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static EskiHucre As Range ', EskiHucre2 As Range
Static SatirRenkDizisi(256) As Integer
'Static SutunRenkDizisi(65536) As Long
Dim bulent As Integer
'Dim excelce As Long
If Not EskiHucre Is Nothing Then
For bulent = 1 To 256
Cells(EskiHucre.Row, bulent).Interior.ColorIndex = SatirRenkDizisi(bulent)
Next bulent
' For excelce = 1 To 65536
' Cells(excelce, EskiHucre2.Column).Interior.ColorIndex = SutunRenkDizisi(excelce)
' Next excelce
End If
For bulent = 1 To UBound(SatirRenkDizisi)
SatirRenkDizisi(bulent) = Cells(ActiveCell.Row, bulent).Interior.ColorIndex
Next bulent
'For excelce = 1 To UBound(SutunRenkDizisi)
' SutunRenkDizisi(excelce) = Cells(excelce, ActiveCell.Column).Interior.ColorIndex
'Next excelce
ActiveCell.EntireRow.Interior.ColorIndex = 6
'ActiveCell.EntireColumn.Interior.ColorIndex = 6
Set EskiHucre = ActiveCell.EntireRow
'Set EskiHucre2 = ActiveCell.EntireColumn
End Sub