değişen değerleri kayıt

[ekremer1969]

bir internet sayfasında bulunan tabloyu excele aktardım. değerler dakikada bir değişiyor. tabii aynı hücreye yazıyor. tablonun bazı hücrelerini kayıt edebilmem mümkünmü.

 

[fedeal]

güzel çalışma benimde işime yarayacak sayfa2ye imkb ve usd yaptım siz geliştirin. iyi çalışmalar.

 

[ekremer1969]

geliştirebilsem yardım istenmezdim fedeal , mesela C6 hücresini başka bir sayfaya otomatik olarak alt alta kayıt edebilirmiyim ve nasıl yapılır?

 

[fedeal]

nedemek elimizden geleni yapmaya çalışıyoruz. ben size mantığını anlatayım daha çok işinize yarar. kodlarımız şu an:
Private Sub Worksheet_Change(ByVal Target As Range)
x = Sheets("sayfa2").Range("A65536").End(xlUp).Row + 1
Sheets("sayfa2").Range("A" & x).Value = Sheets("sayfa1").Range("b2").Value
Sheets("sayfa2").Range("b" & x).Value = Sheets("sayfa1").Range("c2").Value
End Sub

sizin istediginiz ise
y = Sheets("sayfa3").Range("A65536").End(xlUp).Row + 1
Sheets("sayfa3").Range("a" & y).Value = Sheets("sayfa1").Range("c6").Value

bu satırı kodlarımıza ilave edersek istediginiz sayfa3 a sütununda olacak, burdaki "y" yukarda tanımladıgımız sayfa3 a sütunu ilk boş hücresini temsil ediyor. bu kodlar nerde derseniz sayfa1 sayfa sekmesi üzerinde sağ tıklayın kod görüntüleyi seçin eski kodlar yerine aşagıdaki kodları yapıştırın(sayfa isimlerini kodlardan değiştirebilirsiniz) iyi çalışmalar.

Private Sub Worksheet_Change(ByVal Target As Range)
x = Sheets("sayfa2").Range("A65536").End(xlUp).Row + 1
Sheets("sayfa2").Range("A" & x).Value = Sheets("sayfa1").Range("b2").Value
Sheets("sayfa2").Range("b" & x).Value = Sheets("sayfa1").Range("c2").Value

y = Sheets("sayfa3").Range("A65536").End(xlUp).Row + 1
Sheets("sayfa3").Range("a" & y).Value = Sheets("sayfa1").Range("c6").Value

End Sub

 

[parametre]

fedeal tatlı bir çalısma yapmısın bunu geliştirmek istiyorum mutesekkırım

 

[fedeal]

fedeal tatlı bir çalısma yapmısın bunu geliştirmek istiyorum mutesekkırım

Çalışma benim değil sayın ekremer1969'un Teşekkürler ona geliştirme sürecini eklerseniz (faydalanmak açısından) sevinirim. iyi çalışmalar.

 

[ekremer1969]

fedeal çok sağol tam istediğim buydu.

 

[fedeal]

fedeal çok sağol tam istediğim buydu.

ricaederim iyi çalışmalar.