EXCELDE ARA BUL YOLUYLA BULUNAN KELİMENİN RENKLİ GÖRÜNM

[fazli77]

EXCELDE ARA BUL YOLUYLA BULUNAN KELÝMENÝN RENKLÝ GÃ?RÜNM

Değerli forumdaşlar excelde ara bul yöntemi ile bulunan kelimeye nasıl renk verebiliriz bulunan değerin diğerlerinden farklı olması lazımki ben aradığım kelimeyi seçebileyim.
Yardımlarınızı bekler hayırlı işler dilerim.

Saygılar

 

[Ali]

Set bul = Cells.Find("Aranan kelime", ActiveCell) satırındaki Aranan kelime yerine kendi aradığınız kelimeyi yazarak bir deneyin.


Sub araBul()
Dim i As Integer
i = 1
Set bul = Cells.Find("Aranan kelime", ActiveCell)
If Not bul Is Nothing Then
ilk = bul.Address
Do
bul.Interior.ColorIndex = 24
i = i + 1
Set bul = Cells.FindNext(bul)
Loop While bul.Address <> ilk
End If
End Sub

 

[fazli77]

Sayın fructose,
arama kritesi bir yada birkaç kelime ile sınırlı değil ben oturdum bir çalışma yapıyorum ve belkide yüzlerce kelime arayacağım ben galiba ne istedğimi tam anlatamadım. Benim isteğim word da nasıl aranılan kelime siyah bant şeklinde işaretleniyor, excel de de aynı şekilde bir işaret varmı acaba excelde arama yaptığımda tek hücrede belki de 40 - 50 kelime var bunların içindeki aradığım kelimenin örneğin kırmızı olmasını sağlayabilirmiyim Bu işlem işimi baya kolaylatıracak ....
saygılar.

 

[Haluk]

Eski mesajların arasından seçilmiş bir alternatif ...

http://www.excel.web.tr/viewtopic.php?t=1008

 

[Ali]

Aktif hücre renkli olsa ve siz Ctrl+F ile aradığınızda bulduğu hücre renkli olsa işinizi görürmü aklıma böyle bir yöntem geldi fenada değil hanii

 

[Ali]

Bu kodu Thiswoorkbooka yapıştırın Ctrl+F ile aradığınız kelime kırmızı olur. Belge ile işiniz bittikten sonra Thiswoorkbook'taki kodu kaldırabilirsiniz


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Static OldRange As Range
On Error Resume Next
Target.Font.ColorIndex = 3
OldRange.Font.ColorIndex = xlFontColorIndexNone
Set OldRange = Target
End Sub

 

[fazli77]

olabilir en azından baktığımızda hemen farkedebiliriz.

 

[fazli77]

Sayın fructose
thısworkdan kaldırmasak sürekli dursa sakıncası varmı acaba

 

[Ali]

Hayır bir sakıncası yok sadece aktif hücredeki fontunuz kırmızı olur

 

[Haluk]

Ben yine kendi alternatifimde ısrar ediyorum ... :mrgreen:

Dosyayı açın ve her zaman yaptığınız gibi menülerden "Bul" komutunu çalıştırın. Ã?rnek olarak, ekli dosyada ali kelimesini aratın...

 

[mdener]

yaa arkadaşlar cahilliğimi bağışlayın da bu kod nereye yapıştırılacak tam açıklarmısınız.... bu thıswork neresi yani.....

Bilmemek ayıp değil öğrenmemek ayıp demişler....
iyi akşamlar....

 

[Galip]

Excel i açın sayfa 1 in üstünde sağ tıklayıp kodu görüntüleyi tıklayın veya ALT+F11 tuş kombinasyonu ile VBA sayfası açık hale getirin ve thiswork u solda proje bölümünde mevcut tüm sayfalarla birlikte görürsünüz.ThisWork u çift tıklayın.Açılan kod sayfasına kodları yapıştırıp kaydete tıklayın.Benim gibi bir acemi bu kadar anlatabilir.Kolay gelsin.

 

[mdener]

teşekkürler kardeş çok sağol