- Katılım
- 29 Ocak 2022
- Mesajlar
- 1
- Excel Vers. ve Dili
- excel 2019
üstadlarım merhaba,
ben excel makro yeni yeni öğreniyorum bir konuda yardımcı olmanızı istiyorum.
internetten bulduğum hazır kod da aktif hücreleri hücredeki biçimlendirmeleri bozmadan renklendiriyorum. Benim sormak istediğim şu ben bu kullandığım makroyu her yeni excel oluşturduğum zaman bu makroyu görüp çalıştırmasını istiyorum "Personal" dosyasınıda oluşturdum ama bu kodu bir türlü çalıştıramadım. Personal dosyası olmadan sıfırdan kodu yazdığım zaman çalışıyor.
Kodu paylaşıyorum.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <= 10000 Then
Application.ScreenUpdating = False
Range("A:XFD").FormatConditions.Delete
Range(Target.Address).FormatConditions.Add Type:=xlExpression, Formula1:=1
Range(Target.Address).FormatConditions(1).Interior.ColorIndex = 20
Application.ScreenUpdating = True
End If
End Sub
ben excel makro yeni yeni öğreniyorum bir konuda yardımcı olmanızı istiyorum.
internetten bulduğum hazır kod da aktif hücreleri hücredeki biçimlendirmeleri bozmadan renklendiriyorum. Benim sormak istediğim şu ben bu kullandığım makroyu her yeni excel oluşturduğum zaman bu makroyu görüp çalıştırmasını istiyorum "Personal" dosyasınıda oluşturdum ama bu kodu bir türlü çalıştıramadım. Personal dosyası olmadan sıfırdan kodu yazdığım zaman çalışıyor.
Kodu paylaşıyorum.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <= 10000 Then
Application.ScreenUpdating = False
Range("A:XFD").FormatConditions.Delete
Range(Target.Address).FormatConditions.Add Type:=xlExpression, Formula1:=1
Range(Target.Address).FormatConditions(1).Interior.ColorIndex = 20
Application.ScreenUpdating = True
End If
End Sub