- Katılım
- 26 Ocak 2007
- Mesajlar
- 4,625
- Excel Vers. ve Dili
- Ofis 2016
- Altın Üyelik Bitiş Tarihi
- 20-02-2025
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
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
çok teşekkürler üstadım. Ard arda denemeler yapınca atlamışım. Sağ olun, var olun.