bir sayfadan değişken isimli başka sayfaya data taşımak

[ilhanaygun]

arkadaşlar merhabalar,

benim şöyle bir sıkıntım var. elimdeki datada belli bayiler için yeni workbook oluşturmak istiyorum bunların adınıda bendeki listeden alsın buraya kadar sorunum yok.

ancak bu yeni oluşturduğum bayi sayfasına kümül datadan bu bayi ile ilgili dataları almak istediğimde sorun yaşıyorum.

sorun yaşadığım kısım

Workbooks("TÜM MAKRO KODLARI.XLSM").Sheets("Sheet2").Rows(a).Value = Workbooks([MAPPING.xlsx].Sheets("rapor adi").Cells(i, 1)).Sheets(1).Row(z)


yardımınız için teşekkürler.

Sub rapor_adi()
Dim i As Long
Dim a As Long
Dim z As Long

Dim bayi_adet As Long
Dim satir_adet_data As Long

satir_adet_data = Sheets("Sheet2").Range("a1").CurrentRegion.Rows.Count
bayi_adet = Workbooks("MAPPING.XLSX").Sheets("RAPOR ADI").Range("a1").CurrentRegion.Rows.Count

For i = 2 To bayi_adet

Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\dilek\Desktop\makro_deneme\kayıt\" & Workbooks("MAPPING.XLSX").Sheets("RAPOR ADI").Cells(i, 1), _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

'Sheets("Sheet2").Rows(a).Value = Sheets(4).Rows(1).Value

For a = 2 To satir_adet_data

Workbooks("TÜM MAKRO KODLARI.XLSM").Activate
If Sheets("Sheet2").Cells(a, 120) = Workbooks("MAPPING.XLSX").Sheets("RAPOR ADI").Cells(i, 1) Then
z = 2
Workbooks("TÜM MAKRO KODLARI.XLSM").Sheets("Sheet2").Rows(a).Value = Workbooks([MAPPING.xlsx].Sheets("rapor adi").Cells(i, 1)).Sheets(1).Row(z)
Else

z = z + 1
'[MAPPING.xlsx]
'Sheets(Sheets.Count).Rows(a).Value = Sheets(4).Rows(i).Value
End If
Next a
Next i


End Sub

 

[ilhanaygun]

yaw arkadaşlar çok zor bir şey yazdığımı zannetmiyorum cevap verebilecek kimse yok mu?