Find Kodu ile Öncekini Bulma

[askm]

Kolay gelsin.
Aşağıdaki kodu bir butona atayıp sonrakini bulup seçiyorum. Benim istediğim farklı bir tuş ile öncekini bulabilir mi. Veri tabanında önceki sonraki kayıt gibi.

Cells.Find(What:=[b1], After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
        Cells.FindNext(After:=ActiveCell).Activate

 

[Ömer BARAN]

Merhaba.

Yanlış anlamadıysam, aktif hücreden geriye doğru arama işlemi aşağıdaki şekilde olabilir.
Aramadaki satır/sütun önceliğiniz satır ise mavi kısmı xlRows olarak değiştirin.
.

[FONT="Arial Narrow"]Sub sondangeriyebul()
Cells.Find(What:=[B1], After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, _
    SearchOrder:=[B][COLOR="Blue"]xlByColumns[/COLOR][/B], SearchDirection:=[B][COLOR="Red"]xlPrevious[/COLOR][/B], MatchCase:=False).Activate
End Sub[/FONT]

 

[askm]

Eyvallah çok işime yaradı.
Konu ile alakalı değil ama baskı önizlemede %70 olarak çıkıyor. Bu oranı büyütme imkanı var mı?

 

[parametre]

bunu yazdır seceneği sayfa yapısından sayfaya gel orada buyutme kucultme denilen yerdeki oranı yuz yaparsan sorunun cozulur

 

[askm]

ActiveSheet.PageSetup.Zoom = 95
ile hallettim. Teşekkürler.