Veri Aralığının İlk ve Son satır adresini kod ile bulmak

[baydeniro]

Merhaba Arkadaşlar;
Aşağıdaki kod 1 veri (örneğin "Ilk") aramasına göre normal çalışıyor. Ama 2 veri arayınca çalışmadı. Hata nerede olabilir ?

Option Explicit
Sub Test()
Dim Ilk As Range, Son As Range
Set Ilk = Range("A:A").Find(What:="Ilk_Veri", LookAt:=xlWhole)
Set Son = Range("A:A").Find(What:="Son_Veri", LookAt:=xlWhole)
If Not Ilk Is Nothing Then
Range(Cells(Ilk, 2), Cells(Son.Row, 4)).Select
End If
End Sub

 

[Korhan Ayhan]

Yazım hatası görüyorum. Düzeltirseniz sorun çıkmayacaktır.

Range(Cells(Ilk.Row, 2), Cells(Son.Row, 4)).Select

 

[baydeniro]

Yazım hatası görüyorum. Düzeltirseniz sorun çıkmayacaktır.

Range(Cells(Ilk.Row, 2), Cells(Son.Row, 4)).Select

Hay Allah çok teşekkürler üstadım. Ard arda denemeler yapınca atlamışım. Sağ olun, var olun.