Invalid Procedure Call or Argument Hatası

[Allback]

Arkadaşlar bir kaç koşula göre satırlara uyguladığım biçimlendirmeler var.
Kimisi dolgu rengini değiştirirken, kimisi yazı karakterini kalınlaştırıyor.
Bu dosyayı iş yerindeki 4 bilgisayarda kullanıyoruz.
Bilgisayarlardan bir tanesi bugün başlıkta belirttiğim hatayı vermeye başladı.
Diğer bilgisayarlar aynı dosyada herhangi bir hata vermeden koşulu yerine getiriyor.
Referansları kontrol ettim herhangi bir fark yok.
Sorun neden kaynaklanıyor olabilir bir fikriniz var mı?

Hata veren satır: Range("A3:H185").Select satırındaki
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= "=EĞER(TBR!$A3=""B"";1)" satırı

Sub Renklendir()

For Each sayfa In Worksheets
sayfa.Unprotect "1"
Next sayfa

    Set Sh1 = Sheets("Plan")
    Set Sh2 = Sheets("K1S")
    Set Sh3 = Sheets("PIS")

For i = 1 To Cells(Rows.Count, "C").End(3).Row
If WorksheetFunction.CountIf(Sh2.Range("A2:A1000"), Cells(i, "C")) > 0 Then
    With Cells(i, "C").Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 16636557
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If
Next

For i = 1 To Cells(Rows.Count, "F").End(3).Row
If WorksheetFunction.CountIf(Sh3.Range("E2:E1000"), Cells(i, "F")) > 0 Then
    With Cells(i, "F").Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 16636557
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If
Next

Range("A3:H185").Select
    ActiveWindow.SmallScroll Down:=-174
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=EĞER(TBR!$A3=""B"";1)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = True
   
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "FABRİKA-2 PLAN"
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("D2").Select

For Each sayfa In Worksheets
sayfa.Protect "1"
Next sayfa
End Sub

 

[Necdet]

Ofis sürümü aynı mı?

 

[Allback]

Ofis sürümü aynı mı?

Ofis sürümü aynı ve sorun yapan bilgisayar aynı dosyayı bugüne kadar aylardır kullanıyordu...

 

[Necdet]

Selection.FormatConditions.Add Type:=xlExpression, Formula1:= "=EĞER(TBR!$A3=""B"";1)"

VBA'da türkçe fonksiyon adı kullanamazsınız. EĞER'i IF ile değiştirin.

 

[Allback]

VBA'da türkçe fonksiyon adı kullanamazsınız. EĞER'i IF ile değiştirin.

Ama ben bu kodu çalışan bilgisayardan kopyalayarak gönderdim.
Ayrıca hata veren bilgisayarda dediğiniz gibi IF ile değiştirdim ama sonuç yine aynı...

 

[Necdet]

Uzaktan anca böyle oluyor.

Selection.FormatConditions.Add Type:=xlExpression, Formula1:= "=EĞER(TBR!$A3=""B"";1

Formülü şöyle deneyin : TBR!$A3=""B""
Bakalım olacak mı?

 

[Allback]

Uzaktan anca böyle oluyor.


Formülü şöyle deneyin : TBR!$A3=""B""
Bakalım olacak mı?

Ofis uygulamasını silip, yeniden kurunca düzeldi.
Sanırım sistem dosyalarında bir sorun oluştu.
Teşekkürler