Hücre içindeki bazı kelimeri bold yapma!

[dEdE]

Sayın dEdE,
Verdiğiniz kod aslında ihtiyacım olan kod. Verdiğiniz linkteki duruma uygun şekilde yaptım, sanki kafasına göre sadece birkaç ismi kırmızı yaptı.
Küçük bir örnek dosyayı ekte gönderiyorum. İlgilenirseniz çok sevinirim.
Saygılarımla

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub BulBoya()
On Error Resume Next
For i = 2 To Range("A" & Rows.Count).End(3).Row
x = Len(Cells(i, 1).Value)
    For j = 2 To Range("C" & Rows.Count).End(3).Row
    q = 1
    Do
        p = WorksheetFunction.Find(Cells(i, 1), Cells(j, 3), q)
        If p = 0 Then GoTo atla
        Cells(j, 3).Characters(p, x).Font.ColorIndex = 3
        q = p + x
        p = 0
atla:
    Loop While Not IsError(WorksheetFunction.Find(Cells(i, 1), Cells(j, 3), q))
    Next
Next
End Sub

 

[pedasabyem]

Her zamanki gibi harika olmuş. Elinize sağlık teşekkür ederim.

Mümkün müdür bilemiyorum ama, bu işlemi yaptıktan sonra, Kırmızı yazılan kelimeden diğer kırmızı yazılan kelimeye kadar olan bölgeler yan sütunlara aktarılabilir mi acaba?

Bilindiği üzre, excelde Veri/Metni Sütunlara Dönüştür/Sınırlandırılmış bölümünden bir "Ayırıcı" seçerek hücre içini yan sütunlara ayırabiliyoruz, işte burada da "Ayırıcı" olarak kırmızı rengi kullanabilir miyiz?

Örnek:A1 de olan aşağıdaki veriyi
Kırmızı1,deneme2,deneme3,Kırmızı4,deneme5,deneme6

A1:Kırmızı1,deneme2,deneme3
B1:Kırmızı4,deneme5,deneme6

Saygılar

 

[ebubekir25]

online olan arkadaşlar aciill yardımm...ACİLLL....

a1 hücresine dosyanın yolu ve a2 ye de dosyanın adını nasıl yazdıracağım....

ör:

a1:

d:\deneme\emre.xlsx

a2:
emre.xlsx


online olan tüm arkadaşlar Çokkk Acilll Cevapp

 

[tahsinanarat]

şu şekilde deneyiniz

=HÜCRE("FILENAME";B3)

tam dosya yolu

=SOLDAN(HÜCRE("FILENAME";A3);BUL("]";HÜCRE("FILENAME";A3)))

 

[tahsinanarat]

Dosya yolu

=SOLDAN(HÜCRE("FILENAME";A1);BUL("[";HÜCRE("FILENAME";A1)) - 2)

Dosya Adı

=PARÇAAL(HÜCRE("DOSYAADI";A2);BUL("[";HÜCRE("DOSYAADI";A2))+1;BUL("]";HÜCRE("DOSYAADI";A2))-BUL("[";HÜCRE("DOSYAADI";A2))-1)

Dosya yolu ve dosya adı

=SOLDAN(HÜCRE("FILENAME";A4);BUL("]";HÜCRE("FILENAME";A4)))

 

[dEdE]

Kırmızı yazılan kelimeden diğer kırmızı yazılan kelimeye kadar olan bölgeler yan sütunlara aktarılabilir mi acaba?

Bilindiği üzre, excelde Veri/Metni Sütunlara Dönüştür/Sınırlandırılmış bölümünden bir "Ayırıcı" seçerek hücre içini yan sütunlara ayırabiliyoruz, işte burada da "Ayırıcı" olarak kırmızı rengi kullanabilir miyiz?

Örnek:A1 de olan aşağıdaki veriyi
Kırmızı1,deneme2,deneme3,Kırmızı4,deneme5,deneme6

A1:Kırmızı1,deneme2,deneme3
B1:Kırmızı4,deneme5,deneme6

Merhaba,
Örnek dosyanıza göre yapılmıştır. Önce BulBoya kodunu çalıştırıp sonra aşağıdaki kodu dener misiniz?

Sub SutunaAyır()
For i = 2 To Range("C" & Rows.Count).End(3).Row
x = Len(Cells(i, 3).Value)
q = 1
    For j = 1 To x
        k = k + 1
        If Cells(i, 3).Characters(j, 1).Font.ColorIndex <> _
            Cells(i, 3).Characters(j + 1, 1).Font.ColorIndex Or j = x Then
            sk = Rows(i).Find("*", , , , xlByColumns, xlPrevious).Column + 1
            Cells(i, sk).Value = Mid(Cells(i, 3), q, k)
            q = k + q
            k = 0
        End If
    Next j
 k = 0
Next
End Sub

 

[selcukerd]

Merhaba,
Hücre içindeki cümlede bazı karakterleri koyu yapmak istiyorum.
Örneğin A2 hücresinde yer alan formüllü şu cümlenin, ="Madde 3- (1) Program "&'KURS-FİRMA BİL.'!B17&" mesleğinde düzenlenmektedir. Katılımcı bu meslek dışında başka işlerde çalıştırılamaz." sadece "Madde 1-" kelimesini kalın yazı yapmak istiyorum. Nasıl yapabilirim.

 

[ofbalki]

Sayın selcukerd önceki sayfalarda konu ile ilgili bolca açıklama var, bakarsanız halledebilirsiniz...