İŞARET KOYMA

[sedat2161]

İ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.

 

[çıtır]

Sayfa kodu olarak kopyalayınız. İlgil A:G hücreleri dolu ise A hücresini tıkladığınızda boyar

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

 

[sedat2161]

Sayın çıtır çok teşekkür ederim.

 

[çıtır]

Sayın çıtır çok teşekkür ederim.

Rica ederim .Dönüş yaptığınız için teşekkür ederim.