cells.find ile ilgili

[competanxp]

merhabalar..
koddan bir parça aktarıyorum,

Windows("a.xls").Activate
Cells.Find(What:=aranan, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy

amacım basit,
'aranan' isimli değişkenim bir date taşıyor.
onu diğer bir (a.xls) dosyada arayıp buluyor ve
ait olduğu satırı kopyalıyor..

sorum şu:
ya bulamazsa?
nasıl if'lerim bu find yapısını?
şimdiden teşekkürler


end-sub-end

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz. Nokta nokta olan yerlere kopyalamadan sonra gelen kodlarınızı yazın.

[COLOR=black]Windows("a.xls").Activate[/COLOR]
 
[COLOR=black]SET BUL = Cells.Find(What:=aranan, After:=ActiveCell, LookIn:=xlFormulas, _[/COLOR]
[COLOR=black]LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _[/COLOR]
[COLOR=black]MatchCase:=False, SearchFormat:=False)[/COLOR]
 
[COLOR=black]If Not BUL Is Nothing Then[/COLOR]
[COLOR=black]Rows(BUL.Row).Copy[/COLOR]
[COLOR=black]....[/COLOR]
[COLOR=black]....[/COLOR]
[COLOR=black]....[/COLOR]
[COLOR=black]End If[/COLOR]

 

[competanxp]

allah tuttuğunu altın etsin hocam,sağol..