kelime belirteci

Barons

Altın Üye
Katılım
14 Mayıs 2005
Mesajlar
967
Excel Vers. ve Dili
Microsoft Ofis 365
merhaba
Excelde aşağıda izahını yapacağım bir şeyi yapmak mümkünmüdür?

Herhangi bir hücrede diyelim uzun bir cümle var ve ben bu cümle içinde bir kelimeyi aramak ve sadece cümle içinde onu işaretlemek istiyorum. Bu işaretleme kırmızı yapmak, kalın yapmak, koyultmak veya altına çizgi çekmek, italik koyu yapmak olabilir bu kısımda bir sınırlama yok.

A kolonunda altalta kelimeler var ve B kolonunda cümleler var.Mecburen kelimeyi cümle içinde el ile arayıp buluyor ve işaretliyorum .acaba bu makro ile mümkünmüdür?
Yeterli şekilde açıklama yaptığımı düşündüğümden ekte dosya göndermedim.

Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
 
Katılım
1 Ağustos 2019
Mesajlar
839
Excel Vers. ve Dili
Türkçe excel 2016
İngilizce excel 2016
merhaba
Excelde aşağıda izahını yapacağım bir şeyi yapmak mümkünmüdür?

Herhangi bir hücrede diyelim uzun bir cümle var ve ben bu cümle içinde bir kelimeyi aramak ve sadece cümle içinde onu işaretlemek istiyorum. Bu işaretleme kırmızı yapmak, kalın yapmak, koyultmak veya altına çizgi çekmek, italik koyu yapmak olabilir bu kısımda bir sınırlama yok.

A kolonunda altalta kelimeler var ve B kolonunda cümleler var.Mecburen kelimeyi cümle içinde el ile arayıp buluyor ve işaretliyorum .acaba bu makro ile mümkünmüdür?
Yeterli şekilde açıklama yaptığımı düşündüğümden ekte dosya göndermedim.

Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
Buradan edindiğim bir çalışma aramak istediğiniz kelimeyi kod kısmına yazıyorsunuz bulup o kelimeyi kırmızı yapıyor
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Aşağıdaki makroyu deneyiniz:

PHP:
Sub kelimebelirt()
sonA = Cells(Rows.Count, "A").End(3).Row
sonB = Cells(Rows.Count, "A").End(3).Row
For kelime = 1 To sonA
    For cumle = 1 To sonB
        If Len(Cells(cumle, "B")) <> Len(Replace(Cells(cumle, "B"), Cells(kelime, "A"), "")) Then
            bas = WorksheetFunction.Find(Cells(kelime, "A"), Cells(cumle, "B"))
            Cells(cumle, "B").Characters(Start:=bas, Length:=Len(Cells(kelime, "A"))).Font.Bold = True
            Cells(cumle, "B").Characters(Start:=bas, Length:=Len(Cells(kelime, "A"))).Font.Color = vbRed
        End If
    Next
Next
End Sub
 

hmtstc

Altın Üye
Katılım
20 Şubat 2014
Mesajlar
313
Excel Vers. ve Dili
Excel 2016 - Türkçe
hocam sanki dosya farklı olmuş gibi
 
Katılım
1 Ağustos 2019
Mesajlar
839
Excel Vers. ve Dili
Türkçe excel 2016
İngilizce excel 2016
Aynen ben fikir olması açısından paylaştım yusuf beyin yazmış olduğu makro tam istenileni yapıyor arşive ekledim
 

Barons

Altın Üye
Katılım
14 Mayıs 2005
Mesajlar
967
Excel Vers. ve Dili
Microsoft Ofis 365
Yusuf bey çok teşekkürler tam istediğim gibi olmuş. ufak bir sorun var...benim kelime kolonu B sütununda..cümlelerde D sütununda...bu değişikliği kodda yapmanız mümkünmüdür? tekrar teşekkürler
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Yusuf bey çok teşekkürler tam istediğim gibi olmuş. ufak bir sorun var...benim kelime kolonu B sütununda..cümlelerde D sütununda...bu değişikliği kodda yapmanız mümkünmüdür? tekrar teşekkürler
Yalnız bu bir sorun değil. Bu sizin bile isteye verdiğiniz yanlış bilginin bir sonucu. Sizi ilk mesajda A yerine B ve B yerine de D yazmaktan alıkoyan neydi çok merak ediyorum? Yazması daha mı zordu ki?

Düzeltmek için kodda tırnak içindeki A’ları B ile ve tırnak içindeki B’leri de D ile değiştirin.
 

Barons

Altın Üye
Katılım
14 Mayıs 2005
Mesajlar
967
Excel Vers. ve Dili
Microsoft Ofis 365
ikaz için teşekkürler...sorun benden kaynaklı..hızlıca yazdığımdan A-B karışık olmasın mantığı olabilir..hangi düşünce bende bilemiyorum..tekrar çok teşekkürler Yusuf bey.
 

Barons

Altın Üye
Katılım
14 Mayıs 2005
Mesajlar
967
Excel Vers. ve Dili
Microsoft Ofis 365
İlginç yaptım ama çalışmıyor.Bir düğme ekledim ama olmadı.

kod aşağıdadır.Bir hata varmı acaba.

Sub kelimebelirt()
sonA = Cells(Rows.Count, "B").End(3).Row
sonB = Cells(Rows.Count, "B").End(3).Row
For kelime = 1 To sonA
For cumle = 1 To sonB
If Len(Cells(cumle, "D")) <> Len(Replace(Cells(cumle, "D"), Cells(kelime, "B"), "")) Then
bas = WorksheetFunction.Find(Cells(kelime, "B"), Cells(cumle, "D"))
Cells(cumle, "D").Characters(Start:=bas, Length:=Len(Cells(kelime, "B"))).Font.Bold = True
Cells(cumle, "D").Characters(Start:=bas, Length:=Len(Cells(kelime, "B"))).Font.Color = vbRed
End If
Next
Next
End Sub
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
sonB yi “D” olarak düzeltmemişsiniz.
 

Barons

Altın Üye
Katılım
14 Mayıs 2005
Mesajlar
967
Excel Vers. ve Dili
Microsoft Ofis 365
çözdüm...küçük büyük harf uyumsuzluğu olmuş...yine hata bende...))
 

Barons

Altın Üye
Katılım
14 Mayıs 2005
Mesajlar
967
Excel Vers. ve Dili
Microsoft Ofis 365
yusuf hocam dosyayı size direk yollama imkanım varmı
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Buradan ya da özel mesajla paylaşabilirsiniz.
 

Barons

Altın Üye
Katılım
14 Mayıs 2005
Mesajlar
967
Excel Vers. ve Dili
Microsoft Ofis 365
biryerlere girdim çıktım ama ...tam bilemiyorum
 
Üst