Vba kodları ile tarih ve satır renklendirme sorunu

[nur_u_allah]

Gönderdiğim ekte tarih ve saati girme ve satırın renklendirilmesi ile ilgili yardıma ihtiyacım vardır.
Açıklamayı ekte gönderdiğim excel çalışma kitabının içinde yapılmıştır.
Yardımalarınız için şimdiden teşekkür ederim.

 

[uzmanamele]

merhaba

sayfanın kod bölümüne yazarak deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Intersect(Target, Range("a3:I100")) Is Nothing Then Exit Sub
If Target.Column = 1 Then
Target.Offset(0, 1) = Now
Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).Interior.Color = 255
Range(Cells(Target.Row, 7), Cells(Target.Row, 9)).Interior.Color = xlNone

Else
If Target.Column = 7 Then
Target.Offset(0, 1) = Now
Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).Interior.Color = xlNone
Range(Cells(Target.Row, 7), Cells(Target.Row, 9)).Interior.Color = 65280
End If
End If
End Sub

 

[nur_u_allah]

Hocam kodlama için teşekkür ederim ama anlatımda biraz eksiklik yapmısım talebin geldiği tarihi ve no yu yazdığımızda kırmızı ıle satırı komple renklendirelim ve talebin girildiği tarih ve no yu yazdıgımız satır komple yeşil olabilirmi

 

[ynmcan]

Ekteki dosyayı inceleyin.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count <> 1 Then Exit Sub

If Intersect(Target, Range("a3:I65536")) Is Nothing Then Exit Sub

If Target.Column = 1 Then
   If Target.Offset(0, 0) = "" Then
      Target.Offset(0, 1) = ""
         Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Interior.Color = xlNone
            Else
               Target.Offset(0, 1) = Now
                  Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Interior.Color = 255
                     End If

Else


If Target.Column = 7 Then
   If Target.Offset(0, 0) = "" Then
      Target.Offset(0, 1) = ""
         Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Interior.Color = 255
            Else
               Target.Offset(0, 1) = Now
                  Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Interior.Color = 65280
                      End If
                          End If
End If

End Sub

 

[nur_u_allah]

teşekkürler yardımlarınız için

 

[byensar]

üstat ellerin dert görmesin