• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Binance den APİ kodu ile çekilen BTC verilerinin listelenmesi

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
H

han cem

Yeni Üye
Katılım
13 Eki 2024
Mesajlar
3
Aldığı beğeni
0
Excel V
Office 2016 TR
Değerli,
Kullanıcı / ilgili arkadaşlar;
Doktora tezim için EXCEL üzerinde bir işlem yapmam gerekiyor.
Aşağıdaki dosyada gerekli açıklamaları bulacaksınız.
Kısaca anlatmam gerekir ise;
Binance sitesine ait APİ kodu ile excel e veri çekiyorum, sorgu ile gerçekleşen bu işlem verileri 1 dakika da bir yeniliyor.
Benim ihtiyacım, veriler yenilendikçe hemen altına liste olarak ilgili verileri kopyala yapıştırma gibi kayıt etmesi.
İlginiz ve emeğiniz için şimdiden çok teşekkür ederim.
SAYGILARIMLA
Han Cem demir
 

Ekli dosyalar

Tarihe göre sırala Oylara göre sırala
han cem' Alıntı:
Değerli,
Kullanıcı / ilgili arkadaşlar;
Doktora tezim için EXCEL üzerinde bir işlem yapmam gerekiyor.
Aşağıdaki dosyada gerekli açıklamaları bulacaksınız.
Kısaca anlatmam gerekir ise;
Binance sitesine ait APİ kodu ile excel e veri çekiyorum, sorgu ile gerçekleşen bu işlem verileri 1 dakika da bir yeniliyor.
Benim ihtiyacım, veriler yenilendikçe hemen altına liste olarak ilgili verileri kopyala yapıştırma gibi kayıt etmesi.
İlginiz ve emeğiniz için şimdiden çok teşekkür ederim.
SAYGILARIMLA
Han Cem demir
Genişletmek için tıkla...
Deneyiniz

Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim CurrentValue As Variant
    Dim TargetRow As Long
    
    ' A1:B12 aralığında bir değişiklik olup olmadığını kontrol et
    If Not Intersect(Target, Me.Range("A1:B12")) Is Nothing Then
        ' F3:I3 aralığındaki mevcut değerleri al
        CurrentValue = Me.Range("F3:I3").Value
        
        ' Hedef satırı bulma (F6'dan başlayarak)
        TargetRow = Me.Cells(Me.Rows.Count, "F").End(xlUp).Row + 1
        
        ' F3:I3 aralığındaki verileri F hedef satırına kopyala
        Me.Range("F3:I3").Copy Destination:=Me.Range("F" & TargetRow)
        
        ' D sütununa tarih bilgisini ekle
        Me.Cells(TargetRow, "D").Value = Date
        
        ' E sütununa saat bilgisini ekle (sadece HH:MM:SS formatında)
        Me.Cells(TargetRow, "E").Value = Format(Time, "HH:MM:SS")
    End If
End Sub
 

Ekli dosyalar

Olumlu oy 0 Negatif oyla
SNNAY daki arkadaş / arkadaşlar dosyayı indirdim bir sorun var belki ben yanlış bir şey yapıyorum;
Listeyi silip makroyu çalıştırdığımda, api sorgusu değişse de satırlar makronun ilk satırı ile aynı veriyi kopyalıyor.
Yani örnek 10 satır kopyaladığında tüm veriler bir önceki satırın aynısı geliyor daha doğrusu 10 satırdaki tüm veriler son
veri değişikliği ile eşit/aynı kayıt ediliyor ve ilgili satırlardaki hücrelere gittiğinizde ilk sütundakilerin tümünde =$A$3 yazıyor.
SELAMLAR
 
Olumlu oy 0 Negatif oyla
han cem' Alıntı:
SNNAY daki arkadaş / arkadaşlar dosyayı indirdim bir sorun var belki ben yanlış bir şey yapıyorum;
Listeyi silip makroyu çalıştırdığımda, api sorgusu değişse de satırlar makronun ilk satırı ile aynı veriyi kopyalıyor.
Yani örnek 10 satır kopyaladığında tüm veriler bir önceki satırın aynısı geliyor daha doğrusu 10 satırdaki tüm veriler son
veri değişikliği ile eşit/aynı kayıt ediliyor ve ilgili satırlardaki hücrelere gittiğinizde ilk sütundakilerin tümünde =$A$3 yazıyor.
SELAMLAR
Genişletmek için tıkla...
Deneyiniz

Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim TargetRow As Long
    
    ' A1:B12 aralığında bir değişiklik olup olmadığını kontrol et
    If Not Intersect(Target, Me.Range("A1:B12")) Is Nothing Then
        ' Hedef satırı bulma (F sütunundaki son dolu satırın altı)
        TargetRow = Me.Cells(Me.Rows.Count, "F").End(xlUp).Row + 1
        
        ' A3:A6 aralığındaki verileri F, G, H, I sütunlarına kopyala
        Me.Cells(TargetRow, "F").Value = Me.Range("A3").Value ' A3 -> F
        Me.Cells(TargetRow, "G").Value = Me.Range("A4").Value ' A4 -> G
        Me.Cells(TargetRow, "H").Value = Me.Range("A5").Value ' A5 -> H
        Me.Cells(TargetRow, "I").Value = Me.Range("A6").Value ' A6 -> I
        
        ' D sütununa tarih bilgisini ekle
        Me.Cells(TargetRow, "D").Value = Date
        
        ' E sütununa saat bilgisini ekle (sadece HH:MM:SS formatında)
        Me.Cells(TargetRow, "E").Value = Format(Time, "HH:MM:SS")
    End If
End Sub
 

Ekli dosyalar

Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst