Sembol Veri Yükleme sorunu

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