Eres
Yeni Üye
Sub Emre()
Dim i%, son%, etf As Range
With Sayfa3
.Activate
.DrawingObjects.Delete
.Cells.Clear
For i = 2 To Sayfa2.Range("A65536").End(3).Row
Set etf = Sayfa1.Columns(3).Find(Sayfa2.Cells(i, 1).Value, , , 2)
If Not etf Is Nothing Then
son = .Cells(Rows.Count, "C").End(3).Row + 1
Sayfa1.Rows(etf.Row & ":" & etf.Row + 3).Copy .Range("A" & son)
End If
Next i
.Columns.AutoFit
End With
MsgBox "İşlem Tamamlandı.", vbInformation, "Www.ExcelTurkey.Com"
Set etf = Nothing: son = Empty: i = Empty
End Sub