Birinci değeri es gec

[kadir78]

İyi günler. Aşağıdaki kodlar ile veri sayfasından arama yapıyorum fakat bir işlemi çözemedim. C sütununda aynı değerlere sahip olan veriler var ilk veriyi C3 hücresine yazacak, aynı değerden ikinciyi C8 hücresine yazacak. Aynı değerin birincisi C3 hücresinde yazılı iken ikinci aynı değer C8 hücresine nasıl yazılabilir. Birinci aynı veriyi es geçmesi nasıl yapılabilir. Yardımcı olurmusunuz.

on error goto son

ara = worksheets("rapor").range("C2").value
worksheets.("veri").select
worksheets.("veri").range("C:C").find(ara).select
bul = activecell.row

worksheets("rapor").range("C3").value = worksheets("veri").cells(bul, 2)

ara = worksheets("rapor").range("C2").value
worksheets.("veri").select
worksheets.("veri").range("C:C").find(ara).select
bul = activecell.row

worksheets("rapor").range("C8").value = worksheets("veri").cells(bul, 2)

son:

 

[kadir78]

Düzeltme (bul, 2) yanlış yazmışım
Doğrusu (bul, 3)

on error goto son

ara = worksheets("rapor").range("C2").value
worksheets.("veri").select
worksheets.("veri").range("C:C").find(ara).select
bul = activecell.row

worksheets("rapor").range("C3").value = worksheets("veri").cells(bul, 3)

ara = worksheets("rapor").range("C2").value
worksheets.("veri").select
worksheets.("veri").range("C:C").find(ara).select
bul = activecell.row

worksheets("rapor").range("C8").value = worksheets("veri").cells(bul, 3)

son:

 

[Korhan Ayhan]

Forumda en çok kullanılan kod yapılarından birisini sormuşsunuz.

find-findnext ifadeleri ile arama yaparsanız konulara erişebilirsiniz.

 

[kadir78]

Konu ile ilgili forumdan örnekler denedim fakat ilk değeri buluyor ikinciyi veya üçüncü aynı değeri bulmuyor. Kusuruma bakmayın findnext fonksiyonunu daha önce kullanmadığım için çalıştıramadım. Konu ile ilgili yardımcı olurmusunuz. Teşekkürler.

 

[EmrExcel16]

Merhaba , örnek olması açısında aşağıdaki gibi kullanabilirsiniz , aranan ikinci değeri kırmızıya boyar.

Sub Test()

    Dim Bul, Adrs, say
    Set Bul = Range("A1:A1000").Find("Emr", , xlValues, xlWhole)
    If Not Bul Is Nothing Then
        Adrs = Bul.Address
        say = 1
        Do
            If say = 2 Then
                Bul.Interior.Color = 255
            End If
            
            Set Bul = Range("A1:A1000").FindNext(Bul)
            Adrs = Bul.Address
            say = say + 1
        Loop While Not Bul Is Nothing And Bul.Address <> Adrs
    End If

End Sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kod bir kalıptır. Özünde sayfada kullanılan CTRL+F işlevini yapmaktadır.

Kod A1 hücresindeki veriyi belirtilen sayfanın B sütununda arar.. Kendinize uyarlarsınız.

Option Explicit

Sub Find_Next_Example()
    Dim Aranan As Variant, Bul As Range, Adres As String
    
    Aranan = Range("A1").Value
    
    With Sheets("Sheet1").Range("B:B")
        Set Bul = .Find(Aranan, , , xlWhole)
        If Not Bul Is Nothing Then
            Adres = Bul.Address
            Do
                Rem Buraya yapmak istediğiniz işlem kodlarını yazmalısınız...
                Rem Buraya yapmak istediğiniz işlem kodlarını yazmalısınız...
                Rem Buraya yapmak istediğiniz işlem kodlarını yazmalısınız...
                Rem Buraya yapmak istediğiniz işlem kodlarını yazmalısınız...
                Rem Buraya yapmak istediğiniz işlem kodlarını yazmalısınız...
                Set Bul = .FindNext(Bul)
            Loop While Not Bul Is Nothing And Bul.Address <> Adres
        End If
    End With
End Sub

 

[kadir78]

Sağolun. Emeğinize sağlık teşekkür ederim.