• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Satır ve Sütunu Gösteren Çizgi

ihsan0618

Altın Üye
Katılım
5 Ekim 2009
Mesajlar
38
Excel Vers. ve Dili
Excel Vers. ve Dili Ofis 2021 TR 32 Bit
Arkadaşlar merhaba bu site sayesinde yeni şeyler öğrenmekteyim.Ben bir şirkette insan kaynakları biriminde çalışıyorum.Personellere ait yıllık izin listesi oluşturdum.Benim yapmak istediğim şey sol taraftaki personel adı ile üst taraftaki ay adını gösterecek bir ok işaretinin olması.Yani sectiğiniz hücrenin hangi ad ve ayda olduğunu kolayca anlamak.
 
Pencereyi bölme ve dondurma işlemini çalışma sayfasında yaptım.Ancak personel ismini ve hangi ayda gösteren bir ok işaretinin excelde olup olmayacağı.
 
Bence bir dosya ekleyin, bu şekilde anlamak zor.
 
Sanırım seçilen hücrenin satır ve sütunlarını renklendirme işleminden bahsediliyor.


Sayfanın kod kısmına bu kodları yazıp deneyiniz;
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A1:H40")) Is Nothing Then _
    Cells.Interior.ColorIndex = 0: Exit Sub
    Cells.Interior.ColorIndex = 0
    Set satir = Range("A" & Target.Row, "H" & Target.Row)
    Set sütun = Range(Cells(1, Target.Column), Cells(40, Target.Column))
    Set Evn = Union(satir, sütun)
    Evn.Interior.ColorIndex = 36
    ActiveCell.Interior.ColorIndex = 0
End Sub
A1:H40 hücre aralığındaki seçilen hücreye göre satır ve sütunu renklendirir..
 
Teşekkür ederim Murat Bey tam istediğim gibi olmuş.Emeğinize sağlık.
 
Rica ederim, iyi günler.
 
Geri
Üst