Hücrede bulunan veriyi diğer sheette aratıp karşılığını getirme

[u.L.a.s]

Merhabalar

aşağıda linkte örnek excel dosyamda yapılması gerekenleri anlatmıştım.

resim önizlemelerde göründüğü gibi. Sheet 1 A sütununda bazı veriler var. Bu verileri Sheet2 de sarı renkli alanda aratıp bulduğu hücrenin satır neresiyse o saıtırın A sütunundaki veriyi Karşısına yazsın.

Örneğin Sheet1 de A sütununda 10.20.30.40 verisini Sheet2 de arattığımızda B3 hücresinde görüyoruz. Bu satırda A sütununda denk gelen değer nedir? xxx tir. Bunu sheet1 verimizin karşısına yazsın.

Bilgi ve yardımlarınızı rica ederim

Teşekkürler

http://www.dosya.tc/server36/TPAbH4/bulkarsilikgetir.xlsx.html

 

[muygun]

Merhaba;
Eki deneyin.
veya sayfanın kod bölümüne;

Sub Bul_Getir()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("Sheet1").Range("b1:b65536").ClearContents
Set s1 = ThisWorkbook.Worksheets("Sheet1")
Set s2 = ThisWorkbook.Worksheets("Sheet2")
For i = 1 To s1.Range("A65536").End(xlUp).Row
For k = 3 To s2.Range("A65536").End(xlUp).Row

If s1.Cells(i, 1) = s2.Cells(k, 2) Or s1.Cells(i, 1) = s2.Cells(k, 3) Or _
s1.Cells(i, 1) = s2.Cells(k, 4) Or s1.Cells(i, 1) = s2.Cells(k, 5) Or _
s1.Cells(i, 1) = s2.Cells(k, 6) Or s1.Cells(i, 1) = s2.Cells(k, 7) Or _
s1.Cells(i, 1) = s2.Cells(k, 8) Or s1.Cells(i, 1) = s2.Cells(k, 9) Or _
s1.Cells(i, 1) = s2.Cells(k, 10) Then
s1.Cells(i, 2) = s2.Cells(k, 1)
End If
Next k
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub


İyi çalışmalar.

Link:
http://s3.dosya.tc/server29/IqQDGT/u.L.a.s-veribul.zip.html

 

[u.L.a.s]

hocam bilgine emeğine sağlık çok teşekkür ederim.