Merhaba,
Matriks grafikleri 50-60 bin civarı veriyi sağlıklı olarak sunar,
Size yollanan veri bunun çok daha fazlası,
Gönderilen veriyi bölüp farklı semboller oluşturup öyle test etmeniz gerekecek,
Veri bölme için aşağıdaki dokümana göz atınız
Bilgilerinize
İyi günler dileriz
Excel çok satırlı veriyi 50.0000 satıra bölme
1. Bölünecek dosya açıldığında klavyeden Alt+F8 tuşuna basılır. Çıkan ekranda Makro adına bölme yazılır ve oluştura basılır.
2. Oluştura basıldığında çıkan ekranda çıkan kod bölümüne aşağıdaki kod yapıştırılır ve yukardan play tuşuna basılır.
------------------------------------
Sub MatriksBolme()
Dim wb As Workbook
Dim ThisSheet As Worksheet
Dim NumOfColumns As Integer
Dim RangeToCopy As Range
Dim RangeOfHeader As Range
Dim WorkbookCounter As Integer
Dim RowsInFile
Application.ScreenUpdating = False
Set ThisSheet = ThisWorkbook.ActiveSheet
NumOfColumns = ThisSheet.UsedRange.Columns.Count
WorkbookCounter = 1
RowsInFile = 50000
Set RangeOfHeader = ThisSheet.Range(ThisSheet.Cells(1, 1), ThisSheet.Cells(1, NumOfColumns))
For p = 2 To ThisSheet.UsedRange.Rows.Count Step RowsInFile - 1
Set wb = Workbooks.Add
RangeOfHeader.Copy wb.Sheets(1).Range("A1")
Set RangeToCopy = ThisSheet.Range(ThisSheet.Cells(p, 1), ThisSheet.Cells(p + RowsInFile - 2, NumOfColumns))
RangeToCopy.Copy wb.Sheets(1).Range("A2")
wb.SaveAs ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xlsx", "") & "_" & WorkbookCounter
wb.Close
WorkbookCounter = WorkbookCounter + 1
Next p
Application.ScreenUpdating = True
Set wb = Nothing
End Sub
-----------------------------------
Dosyanın bulunduğu dizine aynı isimde fakat sonunda sayıların olduğu bölünmüş dosyalar oluşturacaktır.
bilgilerinize
