Merhabalar,
Aşağıdaki şekilde kontrol ediniz,
sorununuz devam ederse egitim@matriksdata.com adresine yazınız,
Aldığınız excel verilerini öncelikle bölmeniz gerekir, aşağıya hangi kodla nasıl bölmeniz gerektiğini bırakıyorum,
Daha sonra grafiklerinize yüklemek için ise aşağıdaki dokümanı lütfen bir inceleyiniz,
https://www.matriksdata.com/website/bireysel-urunler/matriks-veri-terminali/dokumanlar/matriks-veri-terminali-grafik-menuleri-dokumani
(sayfa 36 den itibaren bakınız)
Excel çok satırlı veriyi 50.0000 satıra bölme
- 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.
- 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.
İyi çalışmalar
