kosullu bicimlendirme hk.

[zetkatamet]

Arkadaslar,
Kosullu bicimlendirme hk. bir dosyam var, ekte. Bakabilirmisiniz..

 

[Vedat Özer]

Eğer(VE(D$10="E10";"M11";M15";M18";"M200;"M47";"Y10";"Y30";"Y50)"") şöyle bi deneyin

 

[zetkatamet]

Sn.vedat_72,
Dediginiz gibi denedim, olmadi dosyaya ekleyebilirmisiniz..

 

[Vedat Özer]

Pek Fazla Bi Şey anlamadım ama bi bak bi

 

[zetkatamet]

malesef olmamis, ilginize tesekkurler

 

[Ömer]

Merhaba,

A2:A35 aralığını fare ile seçerek koşullu biçimlendirmede formül bölümüne aşağıdaki formülü yazın ve biçimden istediğiniz rengi seçerek işlemi bitirin..

=MOD(TOPLA(EĞER(SIKLIK(KAÇINCI(SOLDAN($A$2:A2;3);SOLDAN($A$2:A2;3);0);
KAÇINCI(SOLDAN($A$2:A2;3);SOLDAN($A$2:A2;3);0))>0;1));2)=0

.

 

[zetkatamet]

Merhaba Omer bey,
Cok tesekkur ederim. Konu kisminda basit gibi yazmistim ama hicte basit degilmis. Bu formulu asagida linki bulunan yine sizin cok yardimlarinizin dokundugu dosyada B sutununa adapte etmeye calisacagim. Umarim dosya boyutunu cok buyumez ve dosya agir calismaz.
Tekrar tesekkurler.
Iyi calismalar. Saygilar.

http://www.excel.web.tr/showthread.php?t=77295&page=2

 

[bahadir70]

Merhaba arkadaslar, Benim bir sorum olacak. Hucre icerisinde buyuk harfle yazili kelimeyi nasil renkli yazdirabilirim?

Or: A1 hucresinde
Fire extinguisher NOT INSPECTED

burada "NOT INSPECTED" renkli yazilsin istiyorum.

"Fire extinguisher NOT INSPECTED"

gibi

 

[Necdet]

Merhaba arkadaslar, Benim bir sorum olacak. Hucre icerisinde buyuk harfle yazili kelimeyi nasil renkli yazdirabilirim?

Or: A1 hucresinde
Fire extinguisher NOT INSPECTED

burada "NOT INSPECTED" renkli yazilsin istiyorum.

"Fire extinguisher NOT INSPECTED"

gibi

Merhaba,

Aşağıdaki kodları bir Modüle kopyalayıp deneyiniz.

Sub BuyukHarfRenkli()
    Dim i       As Long, _
        j       As Integer, _
        Bas     As Integer, _
        Uzunluk As Integer, _
        s
        
    Application.ScreenUpdating = False
    
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        s = Split(Cells(i, "A"), " ")
        For j = 0 To UBound(s)
            If BuyukHarfMi(Trim(s(j))) = True Then
                Bas = InStr(1, Cells(i, "A"), s(j), vbTextCompare)
                With Range("A" & i).Characters(Bas, Len(s(j))).Font
                    .ColorIndex = 3
                    .Bold = True
                End With
            End If
        Next j
    Next i
End Sub

Function BuyukHarfMi(Sozcuk As Variant) As Boolean
    Dim Durum   As Boolean, _
        i       As Integer
    Durum = True
    i = 1
    Do
        If Not Mid(Sozcuk, i, 1) Like "[A-Z#ÇĞİÖŞÜ]" Then Durum = False
        i = i + 1
    Loop While i <= Len(Sozcuk) And Durum = True
    BuyukHarfMi = Durum
End Function

 

[bahadir70]

Necdet Bey,

Istedigim sizin yaptiginiz ornekde tam olarak calisiyor, ancak ben kendi calisma kitabimda calistiramadim, bir de sadece L ve M kolonlari icin yapilabilir mi acaba? Ekde dosyayi gonderiyorum. Tesekkurler.

 

[Necdet]

Merhaba,

Sözcük içindendeki "in" ile Sözcük olan "IN" biraz uğraştırdı, bunları düzgün renklendirsin diye kodlara eklemeler yaptım.

Umarım fazla bir sorunla karşılaşmazsınız.

Sub BuyukHarfRenkli()

    Dim i       As Long, _
        SonSat  As Long, _
        j       As Integer, _
        k       As Integer, _
        Bas     As Integer, _
        Uzunluk As Integer, _
        s
        
    Application.ScreenUpdating = False
    
    SonSat = Cells(Rows.Count, "A").End(3).Row
    
    With Range("L9:M" & SonSat)
        .Font.Bold = True
        .Font.ColorIndex = 0
    End With
    
    For i = 9 To SonSat
        For k = 12 To 13
            s = Split(Cells(i, k), " ")
            For j = 0 To UBound(s)
                If BuyukHarfMi(Trim(s(j))) = True Then
                    Bas = Application.WorksheetFunction.Search(s(j), Cells(i, k))
                    With Cells(i, k).Characters(Bas, Len(s(j))).Font
                        .ColorIndex = 3
                        .Bold = True
                    End With
                End If
            Next j
        Next k
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamamdır.....", vbInformation, "N. YEŞERTENER --- [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
    
End Sub

Function BuyukHarfMi(Sozcuk As Variant) As Boolean
    Dim Durum   As Boolean, _
        i       As Integer
    Durum = True
    i = 1
    Do
        If Not Mid(Sozcuk, i, 1) Like "[A-Z#ÇĞİÖŞÜ.,]" Then Durum = False
        i = i + 1
    Loop While i <= Len(Sozcuk) And Durum = True
    BuyukHarfMi = Durum
End Function