sayfa kopyalama-yeni veri giriş sorunu

[brszgr]

bir sıkıntım daha günyüzüne çıktı ekli dosyayı hatırlarsınız umarım. sıra_88 den sonra yeni veri girişi yaptığımızda sira_88 in bilgilerini değerlendiriyor. sanırım bir yerde son satır belirtilmiş. bu problemi nasıl aşacağım konusunda yardımlarını bekliyorum.
saygılarımla
http://rapidshare.com/files/443041738/deney.xls

 

[Mahir64]

bir sıkıntım daha günyüzüne çıktı ekli dosyayı hatırlarsınız umarım. sıra_88 den sonra yeni veri girişi yaptığımızda sira_88 in bilgilerini değerlendiriyor. sanırım bir yerde son satır belirtilmiş. bu problemi nasıl aşacağım konusunda yardımlarını bekliyorum.
saygılarımla
http://rapidshare.com/files/443041738/deney.xls

Merhaba
Tam analamadım ama
Ekle>Ad >tanımlar da
Sira
=defter!$A$6:$A$88
88 de bitmiş burdan olabilirmi.

 

[brszgr]

yok sorun o değil onları değiştirdim ama nafile

 

[Mahir64]

yok sorun o değil onları değiştirdim ama nafile

Modül1 de
For i = 6 To 88 88 kadar döngü kurulmuş bunu deneyin

 

[brszgr]

denedim ama nafile

 

[mustafaine1]

Sub Generate_worksheets()
Dim ISIM As String
For i = 6 To [A65536].End(3).Row
ISIM = Sheets("defter").Range("A" & i).Value
    Sheets("Sira_").Select
    Sheets("Sira_").Copy After:=Sheets(i - 4)
    Sheets("Sira_ (2)").Select
    Sheets("Sira_ (2)").Name = ISIM
     Next
End Sub

kodunuzu yukaridaki gibi degistirin.

 

[brszgr]

re:

denedim ama bi sonuç çıkmadı
siz denediniz mi acaba yeni veri girişi yaptıktan sonra yeni olşan sayfaya (sira_88 den sonra oluşacak sayfaya) bilgiler doğru olarak geliyor mu