Değişen hücre değerlerini her değiştiğinde ayrı hücreye yazdırmak.

[Orhan3535]

Merhaba,

Sorunum şöyle :

WEB'den bazı datalar alan ve bir çok ayrıntılı hesap yaparak sonuçlar bulan bir sheet yazdım. Sonuç hücrelerinden birisi her gün farklı data alındığı için doğal olarak her gün değişik sonuç veriyor. Mesela T1 tarihinde 100, T2'de 120, T3'de 90 gibi.

Bu sonuçları başka bir sheetde veya aynı sheet üzerinde T1, T2, T3...Tn tarihlerinin karşısındaki hücrelere sırasıyla yazdırmak ve kaybolmamalarını sağlamak istiyorum. Yani T1 tarihinde 100 olan örneğin A3 hücresi R3 hücresine yazılıyor, bu kolay. Ama ertesi gün A3 hücresi WEB'den aldığı datalar farklı olduğundan sonuç olarak 120 veriyor ve bunu T2 tarihinin karşılığındaki R4 hücresine yazdırmam lazım. Evet yazıyor 120. Ama T1 tarihinin karşılığı olan R3 hücresi de mecburen 120y'e dönmüş oluyor. Oysa istediğim T1 tarihindeki A3 hücresi değerinin T1 tarihi karşılığındari R3 hücresinde 100 kalması, T2'de R4 120 ve ertesi gün T3'de R5 90... gibi. Nasıl apabilirim, mümkünmüdür acaba? Teşekkürler.

 

[YUSUF44]

Örnek dosya olsa daha kesin çözüm olurdu.

Aşağıdaki kodları ilgili sayfanın kod bölümüne (sayfa ismine sağ tıklayı Kod görüntüle deyince açılan sayfaya) yapıştırıp deneyiniz. A3 hücresi her değiştiğinde R sütunundaki ilk boş hücreye yeni değeri yazar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A3]) Is Nothing Then Exit Sub
yeni = Cells(Rows.Count, "R").End(3).Row + 1
Cells(yeni, "R") = [A3]
End Sub