aydgur
Altın Üye
- Katılım
- 31 Ekim 2005
- Mesajlar
- 455
- Excel Vers. ve Dili
- Excel 2007 Türkçe
Sub sayfalaraaktar09()
Sheets("SATIŞ").Select
For X = 2 To [A65536].End(3).Row
Set s2 = Sheets(Cells(X, 1).Text)
sira = s2.[A65536].End(3).Row + 1
For y = 1 To 14
s2.Cells(sira, y) = Cells(X, y + 1)
Next y
Next X
Sheets("SATIŞ").Select
Range("A2:I100").ClearContents
Range("M2:U100").ClearContents
Range("W2:Z100").ClearContents
Range("B2:B100").Value = CDate(FORMAT((Date + 1), "dd.mm.yyyy"))
10 MsgBox "CARİLERE AKTARILDI"
End Sub
Bu kod ile AYDIN adlı dosyamdaki sayfalara aktarabiliyorum.Fakat BORÇ adındaki diğer dosyamdaki sayfalara da aktarmak için ne yapabilirim? AYDIN dosyasındaki SATIŞ sayfasındaki sayfa adlarına göre hem AYDIN hemde varsa BORÇ dosyasındaki sayfalara aktarsın istiyorum.
Sheets("SATIŞ").Select
For X = 2 To [A65536].End(3).Row
Set s2 = Sheets(Cells(X, 1).Text)
sira = s2.[A65536].End(3).Row + 1
For y = 1 To 14
s2.Cells(sira, y) = Cells(X, y + 1)
Next y
Next X
Sheets("SATIŞ").Select
Range("A2:I100").ClearContents
Range("M2:U100").ClearContents
Range("W2:Z100").ClearContents
Range("B2:B100").Value = CDate(FORMAT((Date + 1), "dd.mm.yyyy"))
10 MsgBox "CARİLERE AKTARILDI"
End Sub
Bu kod ile AYDIN adlı dosyamdaki sayfalara aktarabiliyorum.Fakat BORÇ adındaki diğer dosyamdaki sayfalara da aktarmak için ne yapabilirim? AYDIN dosyasındaki SATIŞ sayfasındaki sayfa adlarına göre hem AYDIN hemde varsa BORÇ dosyasındaki sayfalara aktarsın istiyorum.