Arama ve dolgulama

[tiryaki_44]

Merhaba

excelde kutucuğa yazacağım değerleri, açık olan çalışma kitabında arama yapacak ve aranan kelimeyi bulduğunda, bulunan hücreyi yeşil ile dolgulamak istiyorum. Yardımcı olurmusunuz...

şimdiden teşekkürler

 

[mustafaine1]

ctrl + h yapip secenekleri acarak degistir diyip aradigini yaz degistirilecek bolumun sadece formatini degistir olacaktir..

 

[tiryaki_44]

CTRL + H yapmadan, direkt olarak exceldeki bir kutucuğa yazıp arama yaptığımda dolguyu yeşile döndürmek istiyorum.

 

[mustafaine1]

tam olarak anlayamadim text box filan mi koymak istiyorsunuz; arama yapilcak kriter text boxa yada bi hucreye yazilip bir butonlami arama yapilsin

 

[tiryaki_44]

text boxa yazıp öyle arama yapmak istiyorum.

 

[mustafaine1]

With Application.ReplaceFormat.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
aranan = TextBox1.Value
Cells.Replace What:=aranan, Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True

yanlis anlamadiysam bu sekilde calisiyor, kirmiziya boyuyor istediginiz kriteri..

 

[mustafaine1]

buyuk ihtimalle secimi temizlemek icinde koda ihtiyacin olacaktir

With Application.FindFormat.Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Application.ReplaceFormat.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

 

[tiryaki_44]

ilgin için sağ ol. ama text box içerisine yazmaya başladığımda hata veriyor.

örnek bir excel de her iki kod içinde bir çalışma yapabilirmisin?

 

[tiryaki_44]

ilgin için sağ ol.

ama text box içerisine yazmaya başladığımda hata veriyor.

örnek bir excel de her iki kod içinde bir çalışma yapabilirmisin?

 

[mustafaine1]

incelermisiniz, isinize yarayacakm mi?

 

[tiryaki_44]

dosyayı inceledim.

arama yapınca ve temizleme yapınca hata veriyor.

 

[mustafaine1]

ben 2007 kullaniyorum bi sorun yok ama alakasi varmi bilemiyorum, bende hic bir sorun yok..

 

[Merhum İdris SERDAR]

dosyayı inceledim.

arama yapınca ve temizleme yapınca hata veriyor.

Excel 2003 aşağıdaki kodları tanımıyor.

.TintAndShade = 0
        .PatternTintAndShade = 0

Bu nedenle bunları kodlarınızdan silin. Çalışacak.

.

 

[tiryaki_44]

çok teşekkür ederim. çok işimi görecek.