0 beğenilme 0 beğenilmeme
278 kez görüntülendi
Grafiklerde 2002 veya 2000 öncesi dataları nasıl ekleyebilirim. Yanıt için peşinen teşekkürler.
Grafik kategorisinde (34 puan) tarafından | 278 kez görüntülendi

1 cevap

0 beğenilme 0 beğenilmeme

Merhabalar,

Kripto ve Viop tarafında geçmiş verileri teknik@matriksdata.com dan talep edip grafiklerinize yükleyebilirsiniz,

 

Öncelikle excel verisini bölmeniz gerekir, aşağıya nasıl bölmeniz gerektiğini bırakıyorum,

Daha sonra grafiklerinize yüklemek için ise aşağıdaki dokümanı bir inceleyiniz,

 

https://www.matriksdata.com/website/bireysel-urunler/matriks-veri-terminali/dokumanlar/matriks-veri-terminali-grafik-menuleri-dokumani

(sayfa 35 ten 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.

image

  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

 

iyi çalışmalar

 

 

 

 

 

 

 

İyi çalışmalar

 

 

iyi çalışmalar

(30,418 puan) tarafından
8,701 soru
8,654 cevap
4,853 yorum
20,183 kullanıcı