Bul Kodu Kullanımı,

[MrExcelMr]

Merhaba;

Arşivimde aşağıdaki kodları buldum . Acaba bu kodlarla nasıl bir işlem yapılabilir. Kodlar ile alakalı örnek paylaşabilir misiniz.

Dim alan()

Sub buluver()
   Sheets("VERİ").Select
   verisonsatir = Cells(Rows.Count, "A").End(3).Row
   secim = "A2:D" & verisonsatir
   alan = Range(secim)

   Sheets("SONUC").Select
   sonucsonsatir = Cells(Rows.Count, "A").End(3).Row

   secim = "C2:F" & sonucsonsatir
   Range(secim).Select
   Application.CutCopyMode = False
   Selection.ClearContents
   Range("C2").Select
    
   satir = 1
   For i = 2 To sonucsonsatir
     aranan = Cells(i, 1).Value
     buldu = False
     For j = 1 To verisonsatir - 1
       bakilan = alan(j, 1)
       If aranan = bakilan Then
         satir = satir + 1
         Cells(satir, "C").Value = alan(j, 1)
         Cells(satir, "D").Value = alan(j, 2)
         Cells(satir, "E").Value = alan(j, 3)
         Cells(satir, "F").Value = alan(j, 4)
         buldu = True
       End If
     Next
     If buldu Then Cells(i, 2).Value = "Buldu" Else Cells(i, 2).Value = "Bulamadı"
   Next i
      
End Sub

 

[Muzaffer Ali]

Merhaba.
Bir sayfada veri bulup diğer sayfaya aktarmak için kullanılır.
Ancak yukarıdaki kodlar doğru sonuç döndürmez. Çünkü Aranan ve sonuç sayfaları biliniyor fakat hücrelerin hangi sayfada olduğu işaretlenmemiş.
Sayfalar belli olmadığı için aktif sayfada arar, bulursa yine aktif sayfaya yazar.

 

[MrExcelMr]

@dalgalikur Vakit ayırdığınız için teşekkürler.