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

1Al2Ver

Altın Üye
Katılım
5 Kasım 2007
Mesajlar
4,713
Excel Vers. ve Dili
64 Bit TR - Microsoft Office 365 - Win11 Home
Altın Üyelik Bitiş Tarihi
04-01-2026
Merhaba,

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

Teşekkür ederim.
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
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?

Kod:
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

Altın Üye
Katılım
5 Kasım 2007
Mesajlar
4,713
Excel Vers. ve Dili
64 Bit TR - Microsoft Office 365 - Win11 Home
Altın Üyelik Bitiş Tarihi
04-01-2026
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?

Kod:
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

Uzman
Uzman
Katılım
26 Eylül 2007
Mesajlar
9,421
Excel Vers. ve Dili
excel 2010
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

Altın Üye
Katılım
5 Kasım 2007
Mesajlar
4,713
Excel Vers. ve Dili
64 Bit TR - Microsoft Office 365 - Win11 Home
Altın Üyelik Bitiş Tarihi
04-01-2026
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.
 
Üst