koşullu yazı karakteri değiştime

[Jeeday]

sorum şu:

bir hücredeki değer eğer "ahmet" ise yazı karakteri Tahoma 17 ve bold olsun, eğer "mehmet" ise arial 20 ve italik olsun

olabilirliği var mı acaba?

 

[Ömer]

Merhaba,

Koşullu biçimlendirme ile yapabilirsiniz.

Koşullu biçimlendirme (conditional formatting)

.

 

[Jeeday]

onu biliyorum fakat koşullu biçimlendirmede Font bölümünde yazı karakteri seçme bölgesi hep aktif durumda değil... sadece yazı karakteri rengini seçebiliyorum....

 

[Ömer]

Çalşma sayfasının kod bölümüne;

Option Compare Text
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
 
Target.ClearFormats
 
With Target.Font
    If Target = "ahmet" Then
        .Name = "Tahoma"
        .Size = 17
        .Bold = True
    ElseIf Target = "mehmet" Then
        .Name = "Arial"
        .Size = 20
        .Italic = True
    End If
End With
        
End Sub

.

 

[Jeeday]

Bunu nasıl a sütununa yayarız ve 5-6 tane değişik kelime için yaparız?

 

[Ömer]

Bunu nasıl a sütununa yayarız

If Intersect(Target, [[COLOR=red]A:A[/COLOR]]) Is Nothing Then Exit Sub

5-6 tane değişik kelime için yaparız?

End if satırından önce,

ElseIf Target = "mehmet" Then

bu şekilde yeni satır ve altındaki şartları ekleyerek yapabilirsiniz..

.

 

[Jeeday]

çok saol arkadaşım...

 

[Jeeday]

hata veriyor...

 

[Ömer]

Yeni şartlarınız nedir.

 

[Jeeday]

Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [R:R]) Is Nothing Then Exit Sub

Target.ClearFormats

With Target.Font
If Target = "Jean Pierre" Then
.Name = "Jean Pierre"
.Size = 15
.Bold = False
ElseIf Target = "Cousin's" Then
.Name = "Dragon"
.Size = 15
.Bold = False
ElseIf Target = "Jean Paul" Then
.Name = "Tiffany Lt BT"
.Size = 14
.Bold = True
ElseIf Target = "Novyo" Then
.Name = "Times New Roman"
.Size = 15
.Bold = True
End If
End With

End Sub


run time error "28"
out of stack space

debug'a basınca
If Intersect(Target, [R:R]) Is Nothing Then
sarı ile boyanmış gözüküyor...

 

[Ömer]

.Name = "Jean Pierre"
.Name = "Dragon"
.Name = "Tiffany Lt BT"
.Name = "Times New Roman"

Kırmızı işaretli verilerin adın da yazı tipi varmı bilmiyorum. Ben kodlara olan yazı tiplerinden örnek olarak yazdım. Siz kendinize göre değiştirirsiniz.

Aşağıdaki kodları deneyiniz.

Option Compare Text
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Intersect(Target, [R:R]) Is Nothing Then Exit Sub
 
On Error GoTo sil
Target.ClearFormats
 
With Target.Font
    If Target = "Jean Pierre" Then
        .Name = "[COLOR=blue]Arial[/COLOR]"
        .Size = 15
        .Bold = False
    ElseIf Target = "Cousin's" Then
        .Name = "[COLOR=blue]Cambria[/COLOR]"
        .Size = 15
        .Bold = False
    ElseIf Target = "Jean Paul" Then
        .Name = "[COLOR=blue]Comic Sans MS[/COLOR]"
        .Size = 14
        .Bold = True
    ElseIf Target = "Novyo" Then
        .Name = "[COLOR=blue]Times New Roman[/COLOR]"
        .Size = 15
        .Bold = True
    End If
End With
 
Exit Sub
sil:
Application.EnableEvents = False
    Selection.Clear
Application.EnableEvents = True
 
End Sub

.

 

[Jeeday]

excel 2007 için mi kod?

 

[Ömer]

2003 de denedim sorunsuz çalıştı. 2007 bende kurulu değil.

.

 

[Jeeday]

peki boş bi sayfaya kaydedip bana yollar mısın? convert ederim ben

 

[Ömer]

Dosya ektedir..

.

 

[Jeeday]

valla yolladığın dosyayı denedim..aynı hatayı veriyor...

 

[Hacı Bayram ÖZKAN]

Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [R:R]) Is Nothing Then Exit Sub

Target.ClearFormats

With Target.Font
If Target = "Jean Pierre" Then
.Name = "Jean Pierre"
.Size = 15
.Bold = False
ElseIf Target = "Cousin's" Then
.Name = "Dragon"
.Size = 15
.Bold = False
ElseIf Target = "Jean Paul" Then
.Name = "Tiffany Lt BT"
.Size = 14
.Bold = True
ElseIf Target = "Novyo" Then
.Name = "Times New Roman"
.Size = 15
.Bold = True
End If
End With

End Sub


run time error "28"
out of stack space

debug'a basınca
If Intersect(Target, [R:R]) Is Nothing Then
sarı ile boyanmış gözüküyor...

bu bir deneme