Sayfalara aktarırken bir sayfa değişik olsun

[aydgur]

Günaydın !
Sub sonerolaktarma()
Sheets("ANASAYFA").Select
For x = 2 To [A65536].End(3).Row
Set s2 = Sheets(Cells(x, 1).Text)
sira = s2.[A65536].End(3).Row + 1
If s2.Name <> "STOK" Then
For y = 1 To 110
s2.Cells(sira, y) = Cells(x, y + 1)
Next y
Else
For y = 1 To 9
s2.Cells(sira, y) = Cells(x, y + 1)
Next y
End If
Next x
Sheets("ANASAYFA").Select
Range("A2:H80").ClearContents
Range("J2:J80").ClearContents
Range("M2F80").ClearContents
Range("B2:B80").Value = CDate(Format((Date + 1), "dd.mm.yyyy"))
10 MsgBox "CARİLERE AKTARILDI"
End Sub
Yukarıdaki kod da diğer sayfalara aktarırken sorun yok,sadece STOK sayfasında A sütunundan itibaren (A ve DF dahil) aktarsın istiyorum,yardımcı olurmusunuz?

 

[Orion1]

Aşağıdaki kodları kullannınınz.

Sub sonerolaktarma()
Sheets("ANASAYFA").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 110
s2.Cells(sira, y) = Cells(x, y + 1)
Next y
Next x
Sheets("ANASAYFA").Select
Range("A2:H80").ClearContents
Range("J2:J80").ClearContents
Range("M2F80").ClearContents
Range("B2:B80").Value = CDate(Format((Date + 1), "dd.mm.yyyy"))
10 MsgBox "CARİLERE AKTARILDI"
End Sub

 

[aydgur]

Teşekkür ederim.Ben sadece STOK sayfası için A sütunundan DF sütununa kadar aktarsın ..diğer sayfalarda ise 1 To 9 devam etsin istiyorum.

 

[Orion1]

Aşağıdaki kodu deneyiniz.

Sub sonerolaktarma()
Sheets("ANASAYFA").Select
For x = 2 To [A65536].End(3).Row
Set s2 = Sheets(Cells(x, 1).Text)
sira = s2.[A65536].End(3).Row + 1
If s2.Name <> "STOK" Then
For y = 1 To 9
s2.Cells(sira, y) = Cells(x, y + 1)
Next y
Else
For y = 1 To 110
s2.Cells(sira, y) = Cells(x, y + 1)
Next y
End If
Next x
Sheets("ANASAYFA").Select
Range("A2:H80").ClearContents
Range("J2:J80").ClearContents
Range("M2F80").ClearContents
Range("B2:B80").Value = CDate(Format((Date + 1), "dd.mm.yyyy"))
10 MsgBox "CARİLERE AKTARILDI"
End Sub

 

[aydgur]

Çok pardon !! STOK sayfasına sayfa adları ile beraber (yani A dan DF dahil aktarcak , diğer sayfalara ise 1 To 9 devam edecek,İnşallah anlatabildim.

 

[Orion1]

Çok pardon !! STOK sayfasına sayfa adları ile beraber (yani A dan DF dahil aktarcak , diğer sayfalara ise 1 To 9 devam edecek,İnşallah anlatabildim.

Zaten 4 numralı mesajımda öyle aktarıyor.

 

[aydgur]

Sn.Gizlen siz bir baksanız , tam izah edemiyorum.
STOK sayfasına tüm ANASAYFA yı , diğerleri için sayfa adınıı bulunca aktaracak