Find Kodunda Hata

[tamer42]

Merhaba
Aşağıdaki koddaki hatayı çözemedim,

desteğiniz için teşekkürler,

Sub xlFind()
Dim c As Range
Dim Aranan As String, Adres As String
Dim ilkAdres As String

Aranan = "xyz"

With Sayfa1.Range("A1:A14")

    Set c = .Find(Aranan, LookIn:=xlValues)

        ''Adres = c.Address

        If Not c Is Nothing Then
            ilkAdres = c.Address

                Do

                    Set c = .FindNext(c)

                            If c.Address = ilkAdres Then

                                Exit Do

                            Else

                                Adres = c.Address


                            End If

                Loop While Not c Is Nothing

        End If

End With


Sayfa1.Range(Adres).Activate


Set c = Nothing

End Sub

 

[Muzaffer Ali]

Merhaba.
Ne yapmak istediğinizi ve kodların neresinde hata verdiğini yazmamışsınız.

Neye göre kontrol edeceğiz?

 

[Tevfik_Kursun]

Merhaba,
Sayfa1.Range(Adres).Select satırını bu ifade ile değiştirin Sayfa1.Range(c.Address).Select
iyi çalışmalar

 

[Tevfik_Kursun]

Merhaba,

Sub Bul()
Dim c As Range
Dim Aranan As String, Adres As String
Dim ilkAdres As String

Aranan = "xyz"

    With Sayfa1.Range("A1:A14")
        Set c = .Find(Aranan, LookIn:=xlValues)
            Adres = c.Address
            If Not c Is Nothing Then
                ilkAdres = Adres
                    Do
                        Set c = .FindNext(c)
                            If Adres = ilkAdres Then
                                Exit Do
                            Else
                                Adres = c.Address
                            End If
                    Loop While Not c Is Nothing
            End If
    End With

   Sayfa1.Range(Adres).Select
    
    Set c = Nothing
End Sub

Bunu oluşturmak istediniz sanırım.
iyi çalışmalar

 

[Zeki Gürsoy]

Adres Null ise, Range sınıfının Select özelliği hata döner. If Adres <> "" Then Sayfa1.Range(Adres).Select olarak uygulayın...


.

 

[tamer42]

Arkadaşlar ilginize teşekkürler

 

[tamer42]

Merhaba,

Sub Bul()
Dim c As Range
Dim Aranan As String, Adres As String
Dim ilkAdres As String

Aranan = "xyz"

    With Sayfa1.Range("A1:A14")
        Set c = .Find(Aranan, LookIn:=xlValues)
            Adres = c.Address
            If Not c Is Nothing Then
                ilkAdres = Adres
                    Do
                        Set c = .FindNext(c)
                            If Adres = ilkAdres Then
                                Exit Do
                            Else
                                Adres = c.Address
                            End If
                    Loop While Not c Is Nothing
            End If
    End With

   Sayfa1.Range(Adres).Select
   
    Set c = Nothing
End Sub

Bunu oluşturmak istediniz sanırım.
iyi çalışmalar

Merhaba,

burada gerçekten "*" (Yıldız) karakterini aramak istediğimizde nasıl bir düzenleme yapmamız gerekir?

Aranan = "*" dediğim zaman bir arama yapmıyor.

Teşekkürler,

iyi Çalışmalar.

 

[Korhan Ayhan]

Deneyiniz.

Aranan = "~*"

 

[tamer42]

Deneyiniz.

Aranan = "~*"

Çok teşekkür ederim Korhan Hocam