Hüücredeki bir harfin renginin otomatik değişmesi

[yalovam77]

Merhaba

bir hücrede örneğin c sütununda bir hücrede 10 + 10 + 1 + 3 yazıyor c sütunundaki hücrelerde + işareti yazıldığında otomatik olarak kırmızı renk almasını istiyorum. Bunun makro ile olmasını istiyorum.Forumda aradım tek harf renk değiştirme bulamadım. yardımcısı olabilirmisiniz.

 

[Muzaffer Ali]

Sayfanızın kod editörüne aşağıdaki kodları kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bak As Integer
    For Bak = 0 To Len(Target.Text)
        If Target.Characters(Start:=Bak, Length:=1).Text = "+" Then
            Target.Characters(Start:=Bak, Length:=1).Font.Color = -16776961
        End If
    Next
End Sub

 

[yalovam77]

Merhaba
sayın dalgalikur yukarıda verdiğiniz makro çalışıyor ancak sadece metin olan sayfada çalışıyor sayfada bazı hücrelerde rakam bazı hücrelerde metin var o zaman hata veriyor hem metin hem rakam olan sayfada + işaretini kırmızı yapabilirmiyiz rica ettim

 

[Muzaffer Ali]

Hata almamak için aşağıdaki kodu kullanın.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 1
    Dim Bak As Integer
    For Bak = 0 To Len(Target.Text)
        If Target.Characters(Start:=Bak, Length:=1).Text = "+" Then
            Target.Characters(Start:=Bak, Length:=1).Font.Color = -16776961
        End If
    Next
1:
End Sub

Formül içeren hücrelerde + işaretinin rengini değiştirmemiz mümkün değil.

 

[yalovam77]

Çok teşekkür ederim sayın dalgali kur çok işime yaradı.

 

[yalovam77]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 1
Dim Bak As Integer
For Bak = 0 To Len(Target.Text)
If Target.Characters(Start:=Bak, Length:=1).Text = "+" Then
Target.Characters(Start:=Bak, Length:=1).Font.Color = -16776961
End If
Next
1:
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
With Range("A4:t500").Font
.Name = "Mongolian Baiti"
.Size = 8
End With
End Sub


Sayın dalgalikur yardımlarınız için teşekkür ederim sizin düzenlediğiniz 1 makro ile 2 makro daki font la ilgili makroyu birleştirmemiz mümkünmü çünki bir sayfada iki tane Change olmuyor ilginize teşekkür ederim

 

[yalovam77]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 1
Dim Bak As Integer
For Bak = 0 To Len(Target.Text)
If Target.Characters(Start:=Bak, Length:=1).Text = "+" Then
Target.Characters(Start:=Bak, Length:=1).Font.Color = -16776961
End If
Next
1:
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
With Range("A4:t500").Font
.Name = "Mongolian Baiti"
.Size = 8
End With
End Sub


Günaydın
Yukarıdaki iki kodu aynı sayfada kullanmam gerekiyor birleştirmede yardımcı olabilecek varmı rica etsemacaba

 

[yalovam77]

Merhaba

Yukarıda yazılı iki makronun birleştirilmesini istemiştim ama kendim iki makronun arasına Range ("A1"). Select yazdım çalıştı

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 1
Dim Bak As Integer
For Bak = 0 To Len(Target.Text)
If Target.Characters(Start:=Bak, Length:=1).Text = "+" Then
Target.Characters(Start:=Bak, Length:=1).Font.Color = -16776961
End If
Next
1:
Range("A1").Select
With Range("A4:t500").Font
.Name = "Mongolian Baiti"
.Size = 8
End With
End Sub