Alınan verileri aynı kolonda sıralama

[refaeli]

Merhaba, çalıştığım işyerinde kullanmakta olduğumuz veri platformu üzerinden anlık döviz kurlarını excel üzerindeki bir hücreye link vererek alabiliyorum. Benim istediğimse bu sürekli değişen verilerin dakikada bir alt hücreye yazılması. Yanı şu an A1 hücresinde değişip duran verinin1 dakika sonra kayıt edilip A2 hücresine geçmesi, 1 dk sonra A3... şeklinde. Nasıl yapabileceğimi bilmiyorum. Sanırım ancak makro ile mümkün. Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim. Syg.

 

[Recep İpek]

Aşağıdaki kodları kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s2
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Set s2 = Sheets("arsiv")
sat = s2.Cells(65536, "a").End(xlUp).Row
s2.Cells(sat + 1, "a").Value = Range("a1").Value
s2.Cells(sat + 1, "b").Value = Now
Set s2 = Nothing
End Sub