Veri kaydı yaparken 65536. satırdan sonra 2. sayfaya geçm

[Korhan Ayhan]

Selam Arkadaşlar,

Excelde verileri kaydetmek için oluşturduğum 5 adet sayfam var. Ve bu sayfalara userform yardımı ile veri girişi yapmak istiyorum. Bu işlemi A ve D sütun aralığında yapmak istiyorum. Kayıt işlemi yaparken 65536 satırda dolduğunda işlemin kaldığı yerden 2. sayfadan devam etmesini hangi kodlarla sağlayabilirim. Bu şekilde 5. sayfaya kadar döngü nasıl oluşturabilirim.

Yardımlarınız için teşekkür ederim.

 

[Levent Menteşoğlu]

Kayıt işlemi yaptığınız kodları verirmisiniz.

 

[Korhan Ayhan]

Kullandığım kodlar;

Sheets("VERİ").Select
Range("B65536").End(xlUp).Select
For i = TextBox5.Text To TextBox6.Text
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0) = CDate(TextBox1.Text)
ActiveCell.Offset(0, 1) = TextBox2.Text
ActiveCell.Offset(0, 2) = TextBox3.Text
ActiveCell.Offset(0, 3) = i
ActiveCell.Offset(0, 4) = TextBox4.Text
ActiveCell.Offset(0, 5) = "EVET"
Next
....

 

[Korhan Ayhan]

Selam Arkadaşlar,

Bu konuda yardımlarınızı bekliyorum. :hey:

 

[danersin]

Pek Test etmedim ama kullanacağınız 5 sayfa arka arkaya olsun ve ilkinin ismi "birinci" olsun. aşağıdaki kod işinizi görür sanırım. 65535 e varınca bir sonraki sayfada en alta gidiyor.

Sub sonsat()
Sheets("birinci").Select
Range("B65536").End(xlUp).Select

For i = 1 To Sheets.Count
If ActiveCell.Row = 65535 Then
If Sheets(i).Name = ActiveSheet.Name Then
Sheets(i + 1).Select
End If
End If
Range("B65536").End(xlUp).Select
Next i
End Sub

 

[Korhan Ayhan]

Sn. danersin,

Vermiş olduğunuz kodları denedim fakat ilk sayfada takılıp kalıyor. Ã?rnek uygulama ektedir.

 

[danersin]

Zannedersem bir sorun oluştu bu dosya indirilemiyor.
başka ismle birde zipleyip yollarmısınız.

 

[Korhan Ayhan]

Dosyanın rarlı hali... (ziple sığmıyor)

 

[Korhan Ayhan]

Selam Arkadaşlar,

Bu konuda yardımlarınızı bekliyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:697b1dbaa8]Sub sonsat()
For a = 1 To Sheets.Count
say = WorksheetFunction.CountA(Sheets(a).[b1:b65536])
If say < 65536 Then
ad = Sheets(a).Name
GoTo 10
End If
Next
10 Sheets(ad).Select
Sheets(ad).Range("B65536").End(xlUp).Select
For i = TextBox5.Text To TextBox6.Text
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0) = CDate(TextBox1.Text)
ActiveCell.Offset(0, 1) = TextBox2.Text
ActiveCell.Offset(0, 2) = TextBox3.Text
ActiveCell.Offset(0, 3) = i
ActiveCell.Offset(0, 4) = TextBox4.Text
ActiveCell.Offset(0, 5) = "EVET"
Next
End Sub[/vb:1:697b1dbaa8]

 

[Korhan Ayhan]

Sn leventm,

Vermiş olduğunuz kodları ekteki dosyama uyarladım fakat hata verdi. 2. sayfaya geçiş işlemini yapmıyor. Benim sıra numarası için kullandığım kodların hataya sebep verdiğini düşünerek silip o şekilde denedim fakat kodlar yine hata verdi.

Dosya ektedir.

 

[Korhan Ayhan]

Selam Arkadaşlar,

Bu konuda yardımlarınızı bekliyorum.