[ÇÖZÜLDÜ] Hücreye İkon(Simge) Getirmek

[1Al2Ver]

Merhaba,

Hücrede belirlenen kelimelerin karşılarına ikon getirmek istiyorum,

Teşekkür ederim.

 

[Necdet]

Merhaba,

G sütununu Wingdings olarak biçimlendirdikten sonra, aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [F:F]) Is Nothing Then Exit Sub
Target.Offset(0, 1).Font.Bold = True
If Target.Value = "Kabul" Then
    Target.Offset(0, 1) = "J"
    Target.Offset(0, 1).Font.Color = vbGreen
ElseIf Target.Value = "Bekleme" Then
    Target.Offset(0, 1) = "K"
    Target.Offset(0, 1).Font.Color = vbBlue
ElseIf Target.Value = "İade" Then
    Target.Offset(0, 1) = "L"
    Target.Offset(0, 1).Font.Color = vbRed
Else
    Target.Offset(0, 1) = ""
    Target.Offset(0, 1).Font.Color = 0
    Target.Offset(0, 1).Font.Bold = False
End If
Son:
End Sub

 

[1Al2Ver]

Merhaba,

G sütununu Wingdings olarak biçimlendirdikten sonra, aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [F:F]) Is Nothing Then Exit Sub
Target.Offset(0, 1).Font.Bold = True
If Target.Value = "Kabul" Then
    Target.Offset(0, 1) = "J"
    Target.Offset(0, 1).Font.Color = vbGreen
ElseIf Target.Value = "Bekleme" Then
    Target.Offset(0, 1) = "K"
    Target.Offset(0, 1).Font.Color = vbBlue
ElseIf Target.Value = "İade" Then
    Target.Offset(0, 1) = "L"
    Target.Offset(0, 1).Font.Color = vbRed
Else
    Target.Offset(0, 1) = ""
    Target.Offset(0, 1).Font.Color = 0
    Target.Offset(0, 1).Font.Bold = False
End If
Son:
End Sub

Sayın Necdet Yeşertener, çok teşekkür ederim, elinize sağlık,

Saygılarımla.

 

[uzmanamele]

merhaba

fonksiyon alternatifi olsun.
syn Necdet hocam belirtmiş ama Wingdings ile yazılınca bu şekillerin çıktığı yöntem, syn brain'den (ç)alıntıdır.

 

[1Al2Ver]

fonksiyon alternatifi olsun.
syn Necdet hocam belirtmiş ama Wingdings ile yazılınca bu şekillerin çıktığı yöntem, syn brain'den (ç)alıntıdır.

Sayın uzmanamele,

Zahmetiniz ve nezaketiniz için size,

Kaynak sahibi olması nedeniyle de, şahsınızda sayın brain'e,

Teşekkür ederim.