Koşullu Biçimlendirme kodunun İngilizce formüllerle yapılması

[baydeniro]

Merhaba Arkadaşlar,
Aşağıda Korhan Ayhan üstada ait VBA Kodu var. Bu koddaki Türkçe formülleri İngilizce yazmanın bir yolu var mıdır ?

Sub Bicimlendir()
With Range("C7:C999")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=EĞER(VE($C7<>"""";EĞERSAY(O:O;$M7)=0);1;0)"
.FormatConditions(.FormatConditions.Count).SetFirstPriority
.FormatConditions(.FormatConditions.Count).Interior.Color = 5296274
.FormatConditions(.FormatConditions.Count).StopIfTrue = True
End With
End Sub

 

[ÖmerBey]

Merhaba,
Şuradaki konudan faydalanabilirsiniz. Bir de formüllerdeki noktalı virgül(; ) yerine virgül(,) yazmanız gerekebilir.

 

[baydeniro]

Merhaba,
Şuradaki konudan faydalanabilirsiniz. Bir de formüllerdeki noktalı virgül(; ) yerine virgül(,) yazmanız gerekebilir.

ÖmerBey ilginize teşekkür ederim. Ama ihtiyacım formülleri çevirmek değil, ingilizce formüllerle uygulamak. Şöyle ki, formülleri ingilizceye çevirip uyguladım, kod hata vermedi ama Koşullu Biçimlendirme olmadı

 

[ÖmerBey]

Türkçe versiyonda İngilizce formül kullanmak istiyorsanız bildiğim kadarıyla bu mümkün değil. Nasıl ki hücreye İngilizce formül yazdığınızda çalışmıyorsa.
Ancak biraz dolambaçlı şekilde aşağıdaki şekilde bir dönüşüm uygulanabilir belki...
Son hücre İngilizce formülü yerel dile çevirmek için kullanılıyor.

Sub Bicimlendir()
frml = "=IF(AND($C7<>"""",COUNTIF(O:O,$M7)=0),1,0)"
With Cells(Rows.Count, Columns.Count)
    .Formula = frml
    yrlfrml = .FormulaLocal
    .Clear
End With
With Range("C7:C999")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=yrlfrml
.FormatConditions(.FormatConditions.Count).SetFirstPriority
.FormatConditions(.FormatConditions.Count).Interior.Color = 5296274
.FormatConditions(.FormatConditions.Count).StopIfTrue = True
End With
End Sub

 

[baydeniro]

Türkçe versiyonda İngilizce formül kullanmak istiyorsanız bildiğim kadarıyla bu mümkün değil. Nasıl ki hücreye İngilizce formül yazdığınızda çalışmıyorsa.
Ancak biraz dolambaçlı şekilde aşağıdaki şekilde bir dönüşüm uygulanabilir belki...
Son hücre İngilizce formülü yerel dile çevirmek için kullanılıyor.

Sub Bicimlendir()
frml = "=IF(AND($C7<>"""",COUNTIF(O:O,$M7)=0),1,0)"
With Cells(Rows.Count, Columns.Count)
    .Formula = frml
    yrlfrml = .FormulaLocal
    .Clear
End With
With Range("C7:C999")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=yrlfrml
.FormatConditions(.FormatConditions.Count).SetFirstPriority
.FormatConditions(.FormatConditions.Count).Interior.Color = 5296274
.FormatConditions(.FormatConditions.Count).StopIfTrue = True
End With
End Sub

ÖmerBey üstadım çok çok teşekkür ederim. ilk fırsatta deneyeceğim. Sağlıcakla kalın

 

[Korhan Ayhan]

Bu işlemi ne amaçla istiyorsunuz?

 

[baydeniro]

Bu işlemi ne amaçla istiyorsunuz?

İlgine teşekkürler üstad. Kodu yazdım, Ofis paketi İngilizce olan bir arkadaşımda çalışmadı. Kodun Koşullu Biçimlendirmede Türkçe yazan aşamasında takılıyor. Tam sebebi o mu bilmiyorum ama daha önce de Türkçe karakterlerden ötürü sorun olduğu için aklıma geldi.

 

[Korhan Ayhan]

Ofisin dili kontrol edilerek bir şeyler yapılabilir.

Deneyiniz.

Option Explicit

Sub Bicimlendir()
    Dim Formul As String
   
    Select Case Application.LanguageSettings.LanguageID(msoLanguageIDUI)
        Case 1033
            If Application.DecimalSeparator = "," Then
                Formul = "=IF(AND($C7<>"""";COUNTIF(O:O;$M7)=0);1;0)"
            Else
                Formul = "=IF(AND($C7<>"""",COUNTIF(O:O,$M7)=0),1,0)"
            End If
        Case 1055
            Formul = "=EĞER(VE($C7<>"""";EĞERSAY(O:O;$M7)=0);1;0)"
        Case Else
            MsgBox "Dil tespit edilemedi!", vbCritical
            Exit Sub
    End Select
   
    With Range("C7:C999")
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=Formul
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        .FormatConditions(.FormatConditions.Count).Interior.Color = 5296274
        .FormatConditions(.FormatConditions.Count).StopIfTrue = True
    End With
End Sub

 

[baydeniro]

Ofisin dili kontrol edilerek bir şeyler yapılabilir.

Deneyiniz.

Option Explicit

Sub Bicimlendir()
    Dim Formul As String
   
    Select Case Application.LanguageSettings.LanguageID(msoLanguageIDUI)
        Case 1033
            If Application.DecimalSeparator = "," Then
                Formul = "=IF(AND($C7<>"""";COUNTIF(O:O;$M7)=0);1;0)"
            Else
                Formul = "=IF(AND($C7<>"""",COUNTIF(O:O;$M7)=0),1,0)"
            End If
        Case 1055
            Formul = "=EĞER(VE($C7<>"""";EĞERSAY(O:O;$M7)=0);1;0)"
        Case Else
            MsgBox "Dil tespit edilemedi!", vbCritical
            Exit Sub
    End Select
   
    With Range("C7:C999")
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=Formul
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        .FormatConditions(.FormatConditions.Count).Interior.Color = 5296274
        .FormatConditions(.FormatConditions.Count).StopIfTrue = True
    End With
End Sub

Çok teşekkür ederim üstad. Harika oldu

 

[baydeniro]

Ofisin dili kontrol edilerek bir şeyler yapılabilir.

Deneyiniz.

Option Explicit

Sub Bicimlendir()
    Dim Formul As String
   
    Select Case Application.LanguageSettings.LanguageID(msoLanguageIDUI)
        Case 1033
            If Application.DecimalSeparator = "," Then
                Formul = "=IF(AND($C7<>"""";COUNTIF(O:O;$M7)=0);1;0)"
            Else
                Formul = "=IF(AND($C7<>"""",COUNTIF(O:O;$M7)=0),1,0)"
            End If
        Case 1055
            Formul = "=EĞER(VE($C7<>"""";EĞERSAY(O:O;$M7)=0);1;0)"
        Case Else
            MsgBox "Dil tespit edilemedi!", vbCritical
            Exit Sub
    End Select
   
    With Range("C7:C999")
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=Formul
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        .FormatConditions(.FormatConditions.Count).Interior.Color = 5296274
        .FormatConditions(.FormatConditions.Count).StopIfTrue = True
    End With
End Sub

Korhan Ayhan Üstadım acaba şöyle bir şey mümkün mü ?
A1:C11 aralığında çift satır numaralarını (2-4-6-8-10) "Interior.ColorIndex = 3" yapılabilir mi ?
Biçim kopyalama yöntemiyle yapılabiliyor ama farklı bir kod olur mu !

 

[Korhan Ayhan]

İşlem yine makroylamı yapılacak.

 

[baydeniro]

İşlem yine makroylamı yapılacak.

evet üstad. ama bu sefer KOŞULLU BİÇİMLENDİRME kullanılmadan yapılması mümkün mü

 

[Korhan Ayhan]

O zaman istediğiniz işlemin bu başlıkla bir bağlantısı kalmadığı için yeni bir başlık açmanız daha uygun olacaktır.