Yüklenen geçmiş verilerin düzgün görüntülenememesi sorununu nasıl çözebilirim?

Question

XU030 için 5 DK'lık grafikte geçmiş verileri eklediğimde belirli yıllar arası yüklenemiyor ve grafikte o kısımlarda kopukluk oluyor. örneğin 2020-2021 nisana kadar grafikte veri görüyorum sonra 2021 mayıs 2022 temmuz arası olmuyor. Programı silip yüklediğimde eğer hiçbir grafik vs. açık değilse bu sorun düzeliyor. Bilgisayar i5 11. nesil 8GB ram var. Bilgisayara ram mi eklemem gerekir yoksa bunun matriks üzerinde kolayca düzeltilebileceği bir durumu var mı?

Answer 1

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

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.

1. 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