Diğer Sayfadan veri getirme

[bmutlu966]

Arkadaşlar,

Makro ile diğer sayfadan plakalara göre bazı bilgileri diğer sayfaya getirmek istiyorum. Yardım lütfen.

 

[Murat OSMA]

Deneyiniz...

Sub Emre()
    Dim i As Integer
    Dim bul As Range
    For Each bul In Sayfa2.Range("D6:D" & Sayfa2.Range("D65536").End(3).Row)
    For i = 6 To Range("E65536").End(3).Row
        If bul.Value = Cells(i, 5) Then
            Cells(i, 6) = bul.Offset(0, -1).Value
            Cells(i, 7) = bul.Offset(0, -3).Value
            Cells(i, 8) = bul.Offset(0, -2).Value
        End If
    Next i
    Next bul
    Set bul = Nothing: i = Empty
End Sub

 

[bmutlu966]

Süper çok teşekkürler.

 

[Murat OSMA]

Rica ederim, iyi akşamlar...

Bu sayfadan sayfaya kopyalama işlemleri basit işlemler, bunları öğrenmeye bakın derim...