İŞARET KOYMA

Katılım
1 Ekim 2017
Mesajlar
685
Excel Vers. ve Dili
2019 türkçe
İyi çalışmalar ekli dosyamda bilgi girişi yaptığım kişileri işaretlemek için a hücresindeki sıra numarasına tıkladığımda hücre renklensin.çok teşekkür ederim.
 

Ekli dosyalar

  • 27.3 KB Görüntüleme: 8
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Sayfa kodu olarak kopyalayınız. İlgil A:G hücreleri dolu ise A hücresini tıkladığınızda boyar
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A2:A63355]) Is Nothing Then Exit Sub
a = Target.Row
Dolu = WorksheetFunction.CountA(Range("A" & a & ":" & "G" & a))
If Dolu = 7 Then
Range("A" & a).Interior.Color = vbYellow 'rengini sarıya boya
End If
End Sub
 
Üst