Agah93
Altın Üye
- Katılım
- 17 Nisan 2020
- Mesajlar
- 31
- Excel Vers. ve Dili
- ofis 365
- Altın Üyelik Bitiş Tarihi
- 02-09-2025
MERHABA ARKADAŞLAR
İNTERNET ORTAMINDA BİR MAKRO KODU BULDUM İLGİLİ SAYFAYA MAKRO KODUNU ATADIM. HANGİ HÜCRE SEÇİLMİŞSE VURGULUYOR ANCAK ŞÖYLE BİR SIKINTI ÇIKTIĞINI FARKETTİM BİR HÜCREYE YAZILAN VERİ TEKRAR GERİ ALINAMIYOR GERİ-İLERİ ALMA TUŞLARI ÇALIŞMIYOR.
MAKROSUZ BUNU HALLEDEBİLİRMİYİM ACABA
DEĞİLSE İŞLEYİŞİ BOZMAYACAK BİR YOL GÖSTEREBİLİR MİSİNİZ?
TEŞEKKÜR EDERİM SAĞLICAKLA KALIN...
UYGULAMIŞ OLDUĞUM KOD BU
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireColumn.Interior.ColorIndex = 15 'Sütün Rengi
ActiveCell.EntireRow.Interior.ColorIndex = 15 ' SatIr Rengi
ActiveCell.Cells.Interior.ColorIndex = 4 ' Hücre Rengi
End Sub
İNTERNET ORTAMINDA BİR MAKRO KODU BULDUM İLGİLİ SAYFAYA MAKRO KODUNU ATADIM. HANGİ HÜCRE SEÇİLMİŞSE VURGULUYOR ANCAK ŞÖYLE BİR SIKINTI ÇIKTIĞINI FARKETTİM BİR HÜCREYE YAZILAN VERİ TEKRAR GERİ ALINAMIYOR GERİ-İLERİ ALMA TUŞLARI ÇALIŞMIYOR.
MAKROSUZ BUNU HALLEDEBİLİRMİYİM ACABA
DEĞİLSE İŞLEYİŞİ BOZMAYACAK BİR YOL GÖSTEREBİLİR MİSİNİZ?
TEŞEKKÜR EDERİM SAĞLICAKLA KALIN...
UYGULAMIŞ OLDUĞUM KOD BU
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireColumn.Interior.ColorIndex = 15 'Sütün Rengi
ActiveCell.EntireRow.Interior.ColorIndex = 15 ' SatIr Rengi
ActiveCell.Cells.Interior.ColorIndex = 4 ' Hücre Rengi
End Sub