Kapalı dosyaya koşullu veri yollamak

[mehmetkoca]

Değerli arkadaşlar Ekteki dosyamda Genel isimli sayfayı aşağıda belirttiğim makro yardımıyla kapalı dosyaya yolluyorum.Burada Yapmak istediğim şey sadece (Q sütunu baz alınarak) Onaylandı-AKtarıldı yazan satırları yollamak.Bu konuda yardımcı olabilirmisiniz?


Sub veriyolla()
Dim basebook As Workbook
Dim mybook As Workbook
Dim sourceRange As Range
Dim destrange As Range
Dim i As Long
Application.ScreenUpdating = False
With Application.FileSearch
.NewSearch
.LookIn = "\\Motifserver\d\KAPAK TAKİP"
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
Set basebook = ThisWorkbook
For i = 1 To .FoundFiles.Count
Set mybook = Workbooks.Open(.FoundFiles(i))
Set sourceRange = basebook.Worksheets(1).Range("a5:q30000")
Set destrange = mybook.Worksheets(6).Range("a5")
sourceRange.Copy destrange
mybook.Close True
Next i
End If
End With
Application.ScreenUpdating = True
End Sub