Filtreleme kodunda revize

[ccuneyt13]

Merhaba,
Basit olarak aşağıdaki kod ile filtreleme yapacağım,

ActiveSheet.Range("$A$1:$CA$87800").AutoFilter Field:=72, Criteria1:= _
        "Ali"

Buradaki $CA$87800" ifadesini sabit değil, sayfanın en son hücresinin en son satırı olarak tanımlamak istiyorum.

(CA87905 mesela, tabi bu değer her seferinde değişiyor)

Saygılarımla.

 

[Muzaffer Ali]

Merhaba.

    Dim SonHucre As String
    SonHucre = Cells.SpecialCells(xlCellTypeLastCell).Address
    ActiveSheet.Range("$A$1:" & SonHucre).AutoFilter Field:=72, Criteria1:="Ali"

 

[ccuneyt13]

Merhaba.

    Dim SonHucre As String
    SonHucre = Cells.SpecialCells(xlCellTypeLastCell).Address
    ActiveSheet.Range("$A$1:" & SonHucre).AutoFilter Field:=72, Criteria1:="Ali"

Muzaffer Bey çok teşekkürler, oldu.
Elinize sağlık.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.