Sayfa isimlerine göre aktar

[kamil09]

Değerli üstatlarım forumda aradm ama aradığım sonucu bulamadım.Sizden yardım bekliyorum...
Sayfa1 verileri girdikten sonra sayfalar dagit butonuna basinca dagitmasini istiyorum yaklasik 40 sayfalik bir excel k'tabi var..

 

[Necdet]

Merhaba,

Sorunuzu örnek dosya ile destekleyiniz.

 

[kamil09]

Sayin necdet bey dosya ekte...

 

[Merhum İdris SERDAR]

Değerli üstatlarım forumda aradm ama aradığım sonucu bulamadım.Sizden yardım bekliyorum...
Sayfa1 verileri girdikten sonra sayfalar dagit butonuna basinca dagitmasini istiyorum yaklasik 40 sayfalik bir excel k'tabi var..

Buradaki dosyaları inceleyin.


http://www.excel.web.tr/showthread.php?t=20271&highlight=sayfalar%FDna



.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Aktar()
Dim s1 As Worksheet
Dim i As Long, j As Long
Dim Kol As Integer, Sayfa As String
Set s1 = Sheets("Sayfa1")
s1.Select
Kol = [IV1].End(1).Column
For i = 2 To [A65536].End(3).Row
    Sayfa = Cells(i, "A")
    j = Sheets(Sayfa).[A65536].End(3).Row + 1
    Range(Cells(i, "B"), Cells(i, Kol)).Copy Sheets(Sayfa).Cells(j, "A")
Next i
MsgBox "Aktarım Tamamlandı", vbInformation, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

 

[kamil09]

Hata veriyo run-time erorr 9

 

[Necdet]

Hata veriyo run-time erorr 9

Sayfanın olup olmadığını kontrol etmedim, ondan veriyordur.