Sayfa adına göre aktarma

aydgur

Altın Üye
Katılım
31 Ekim 2005
Mesajlar
449
Excel Vers. ve Dili
Excel 2007 Türkçe
Altın Üyelik Bitiş Tarihi
04-03-2028
A sütunundan O sütunu dahil ne varsa hepsini A2 den itibaren a sütunundaki sayfa adlarına göre sayfalara aşağıdaki makro yardımı ile aktarabiliyordum ancak şimdi bir türlü bitmek bilmiyor ;
bunu için yeni bir makro yardımı yada bu makroyu düzeltebilmek için yardım rica ediyorum.Bugün bitirebilmeme yardımcı olursanız mükemmel olur.Teşekkürler.

Sub sayfalaraaktar()
Sheets("SATIŞ").Select
For x = 2 To [a1000].End(3).Row
Set s2 = Sheets(Cells(x, 1).Text)
sira = s2.[a1000].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:O80").ClearContents

10 MsgBox "CARİ SAYFALARA AKTARILDI"
End Sub
Bu makroyu çalıştırdığımda durmak bilmiyor ESC yapınca makroda "Next y " hatalı veriyor(yani sarı renk alıyor) ne yapabilirim
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Kodda kısır döngüye girecek bir durum göremedim. Sadece aşağıdaki satıra mavi renkli ilaveyi yapmanızı öneririm.

Kod:
Set s2 = Sheets([COLOR=blue][B]"" &[/B][/COLOR] Cells(x, 1).Text)
 
Üst