aydgur
Altın Üye
- Katılım
- 31 Ekim 2005
- Mesajlar
- 455
- Excel Vers. ve Dili
- Excel 2007 Türkçe
AYD ve GRS adında 2 adet dosyam var.
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 .... bu makro ile AYD adlı dosyamdaki sayfa adlarına göre aktarma yapabiliyorum.
Fakat; AYD adlı dosyamdan GRS adlı dosyam kapalı iken GRS dosyasındaki sayfa adlarına göre
AYD den GRS ye aktarma yapabilirmiyim.
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 .... bu makro ile AYD adlı dosyamdaki sayfa adlarına göre aktarma yapabiliyorum.
Fakat; AYD adlı dosyamdan GRS adlı dosyam kapalı iken GRS dosyasındaki sayfa adlarına göre
AYD den GRS ye aktarma yapabilirmiyim.