Degiskene deger atamak

Katılım
19 Ocak 2009
Mesajlar
5
Excel Vers. ve Dili
2003 VBA
Merhabalar,

Yapmak istedigimi daha once yapmistim ama suan hatirliyamiyorum.
Excel dosyasindan for dongusu ile hücre degerlerini okuyup a diye bir degiskene atiyorum. Sonra bu degiskenini "Bul" islevine atayip, sonucu bulmak gerek ama isaretledigim yerde a'nin onune hangi karakter gelmeliydi hatirliyamiyorum. Bu ona "a" karakterini degil a stringinin tuttugu degeri aramasini belirtecek.

Cells.Find(What:="a", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With

Tesekkurler.
 

leumruk

Uzman
Uzman
Katılım
15 Nisan 2007
Mesajlar
3,471
Excel Vers. ve Dili
Office 2010 & 2013 tr
Selamlar,
a'nın kenarlarındaki tırnak işaretlerini kaldırırsanız olması lazım.
 
Üst