Değişiklik Yaptığım hüçre kırmızı olsun

[Rafet]

Yapmak istediğim Hüçrede değişiklik yaptığımda hüçrenin başına " ' " eklemek ve bu hüçrede ,(virgülleri) .(nokta) ile değiştirmek ve hüçrenin desenini kırmızıya cevirmek.

Başka Bir değişle değişiklik yaptığım hüçrede makro ile değişlikler yapa bilmek.

Aşağıda denediğim bir yol var var. Ama sorun yaşıyorum.
Teşekkürler.

Sub aaaaa()
a = ActiveCell.Row
b = ActiveCell.Column

Cells(a, b - 1) = "Değişti"
Cells(a - 1, b).Interior.ColorIndex = 3
End Sub

 

[Ali]

B sütununuz için aşağıdaki kodlar ile deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
      If Intersect(Target, [B1:B6000]) Is Nothing Then Exit Sub
   Target.Value = "'" & Target.Value
   Target.Interior.ColorIndex = 3
   Target.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

 

[Rafet]

Teşekkürler.

Peki Yan taraftakı hüçreye not atmak istediğimde ne yapmam gerekiyor.
Örnekte gösterdiğim gibi.

 

[Ali]

Teşekkürler.

Peki Yan taraftakı hüçreye not atmak istediğimde ne yapmam gerekiyor.
Örnekte gösterdiğim gibi.

Private Sub Worksheet_Change(ByVal Target As Range)
      If Intersect(Target, [B1:B6000]) Is Nothing Then Exit Sub
   Target.Value = "'" & Target.Value
   Target.Offset(0, -1).Value = "Değişti"
   Target.Interior.ColorIndex = 3
   Target.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

 

[Rafet]

Nasıl Düşünemedim

İlginiz için teşekkürler.
Daha önce sitede okuduğum fakat unuttuğum bir konu aklıma geldi ve tekrar sitede araştırma yaptım. Ve aradığım cevapları buldum.

Bazen ne aradığını yanlış düşünüyor insan . Her şey aşagıdakı kodda var.

Cells(Target.Row, Target.Column + 14) = Date

İlginiz için tekrar tekrar teşekkürler.