İLK SÜTUNA BİR HARF GİRDİĞİMDE TÜM SATIRIN KIRMIZI O

[unutulmaz37]

ÝLK SÜTUNA BÝR HARF GÝRDÝÐÝMDE TÜM SATIRIN KIRMIZI O

İLK SÜTÜNA BİR HARF GİRDİÐİMDE TÜM SATIRIN KIRMIZI DOLGU RENGİYLE BOYANMASINI NASIL SAÐLAYABİLİRİM YARDIMCI OLABİLECEK VARMI ARKADAÞLAR.

 

[yayalar]

bende buna benzer bir uygulama var

dedıgınız sekılde ancak bende bır buton yaptım komutu yazıyorum orada ıstedıgınız sutun yazıp uygulayabılırsınız.

Sub anasayfa()
Dim i As Integer
For i = 6 To Cells(65536, 12).End(xlUp).Row
If IsDate(Cells(i, 12)) Then
Range(Cells(i, 1), Cells(i, 13)).Interior.ColorIndex = 8
End If
Next i
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin. A sütununa veri girdiğinizde çalışacaktır.

[vb:1:cf62342ad8]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
sat = Target.Row
Rows(sat).Interior.ColorIndex = xlNone
If Target <> 0 Then Rows(sat).Interior.ColorIndex = 6
End Sub[/vb:1:cf62342ad8]