satır ekleme

[gedavet]

iyi çalışmalr arkadaşlar
excelde 65536 satır yetmiyor satır elmemem lazım çözümü varmıdır

 

[fedeal]

sayfa dolunca yeni sayfa ekleyip kayıt yapacak kodlar var diye hatırlıyorum.

 

[fedeal]

kod arşivinde şöyle bir kod var belki işinize yarar.

Sub GetTxtData2()
'Raider ®
Dim MyFile As String
MyFile = "C:\Test.txt"
j = 0
Set NewSh = Worksheets.Add
j = j + 1
NewSh.Name = "TextSheet-" & j
Open MyFile For Input As #1
Do While Not EOF(1)
i = i + 1
Line Input #1, InputData
Cells(i, 1) = InputData
If i > 65535 Then
Set NewSh = Worksheets.Add
j = j + 1
NewSh.Name = "TextSheet-" & j
i = 0
End If
Loop
Close #1
Set NewSh = Nothing
End Sub

 

[gedavet]

bu kodu nereye uygulayacağım

 

[Korhan Ayhan]

Selamlar,

Nasıl bir işlem yapıyorsunuzda 65536 satır size yetmiyor. Açıklarmısınız.

 

[gedavet]

satır satır aşağıya doğru bilgi yazı yorum

 

[fedeal]

basit bir kodla halloldu, mantıgı a sütununa 65536.satırına veri girince sayfayı kopyalıyacak ve veri yolladıgınız sayfayı boşaltıcak. birtek sayfadan rapor alıyorsanız problem olur oda kodlarla hallolur.
not: 1.satır başlık satırı oldugunu düşündüğüm için ilk satırı silmiyor.

ilgili sayfanın kod bölümüne kopyalayın x yazan yere sayfa adını girin saygılar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = Sheets("x").Range("A65536").End(xlUp).Row
If x < 65535 Then
Else
Sheets("x").Copy After:=Sheets(3)
Sheets("x").Select
Range("A2:ıv65536").ClearContents
End If
End Sub