Altın Verisi Günün En Düşüğü Formül

[ALTINYAYLA]

Merhaba sevgili Excell üstadları.
Excell de bir dosyam var ve bu dosyamda ben çeyrek altın borcumu günlük dilimler halinde borç ödemek suretiyle ödüyorum. Bu dosyamda webden veri çekme ile çeyrek altın fiyatlarını alıyorum. Ancak örnek olarak sabah çeyrek 194,00 lira iken akşam 198, 00 e çıkabiliyor yani anlık değişiyor. Ben Borcumu 198 üzerinden ödüyorum. bir bakıyorsun gün içerisinde düşmüş yada yükselmiş. Benim üstadlardan ricam. gün içerisinde oluşan fiyatları en küçük değer ile en büyük değeri elde edebileceğim bir formül. Kafa yoran ve emek verecek olan herkese şimdiden çok teşekkür ederim.

 

[YUSUF44]

=MİN(A1:A50)

=MAK(A1:A50)

formülleri A1:A50 aralığındaki minimum ve maksimum değerleri bulur.

 

[ALTINYAYLA]

Hocam dediğiniz formulü biliyorum da tek değişken var o da veriyi çektiğim tek hücre sürekli değişiyor güncelledikçe

 

[YUSUF44]

Örnek dosyayı paylaşırsanız belki sayfa olaylarına bağlı bir makro ile hücre değiştikçe yeni değeri başka bir listeye kaydedilebilir. Böylece içinden seçim yapılabilir.

 

[ALTINYAYLA]

Örnek dosyayı paylaşırsanız belki sayfa olaylarına bağlı bir makro ile hücre değiştikçe yeni değeri başka bir listeye kaydedilebilir. Böylece içinden seçim yapılabilir.

Buyrun örnek dosya ekte

 

[YUSUF44]

Dosyanız pek anlaşılır değil. Hangi hücreyi dikkate almamız gerekiyor?

 

[ALTINYAYLA]

B3 hücresini hocam Altın ve fon sayfasındaki

 

[YUSUF44]

Nedense sizin dosyanızda makro yazmaya başladığımda bir süre sonra excel donuyor. Dış veri almayla ilgili bir problem olabilir.

 

[ALTINYAYLA]

Hocam dış veriyi zaten "Anlık Altın Verileri" Sayfasından alıyor

 

[YUSUF44]

Sorunuzun çözümüne başlamak için öncelikle dosyanıza Sayfa1 isimli bir sayfa ekleyin.
bu sayfada A1'e Tarih B1'e Fiyat diye başlık yazın. Yazılacak başlığı isteğinize göre değişebilirsiniz. Makro bu sayfada A2'den itibaren tarih saat ve fiyatları alt alta yazacaktır.

Sonra dosyanızda mevcut Anlık Altın Verileri sayfasının kod bölümüne aşağıdaki kodları yapıştırın:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D36:E36")) Is Nothing Then Exit Sub
yeni = Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row + 1
Sheets("Sayfa1").Cells(yeni, "A") = Now
Sheets("Sayfa1").Cells(yeni, "B") = Round([B2], 2)
End Sub

Anlık Altın Verileri sayfasında D36 ve E36 hücrelerini değiştirirseniz Sayfa1'de alt alta verilerin geldiğini göreceksiniz.

Günlük minimum ve maksimum değer için ise Sayfa1'deki verileri kullanabilirsiniz.

 

[ALTINYAYLA]

Yusuf Hocam Öncelikle verdiğiniz emek için teşekkürlerimi sunuyorum.
Hocam Belirttiğiniz değişikliği uyguladım. Anlık Altın Verileri sayfasındaki veriler bildiğiniz üzere her 5 dakikada bir web üzerinden güncelleniyor ve sayfa 1 e sürekli veri ekliyor. Ve fiyat değişmemiş olsada altalda aynı fiyattan birden çok veri eklenmiş oluuyor. Bunun yerine her değişiklikte eğer fiyat değişmişse eklese değişmemişse aynı kalmışsa eklemese daha derli toplu olur diye düşünmekteyim. Sizi de yoruyorum hakkınızı helal edin bu konuda ne yapılabilir hocam. Selamlarımla...

 

[YUSUF44]

Eğer "son satırdaki veri değişmemişse" şartı size uyuyorsa aşağıdaki gibi kullanabilirsiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D36:E36")) Is Nothing Then Exit Sub
yeni = Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row + 1
    If Sheets("Sayfa1").Cells(yeni - 1, "B") = Round([B2], 2) Then GoTo 10
Sheets("Sayfa1").Cells(yeni, "A") = Now
Sheets("Sayfa1").Cells(yeni, "B") = Round([B2], 2)
10:
End Sub

 

[ALTINYAYLA]

Emeğinize sağlık değerli hocam saygı ve selamlarımla. Hakkınızı helal ediniz.

 

[ALTINYAYLA]

Hocalarım Sayfa1 deki fiyat kısmına eklenen rakamdan bir önceki rakam değilde b2 den b151 e kadar hücreler içerisinde mükerrer olduğunda hem o rakamı hemde yanındaki a sütünuna eklenen tarihi silmesini istiyorum Acaba çok şey mi istiyorum arkadaşlar. saygılarımla...

 

[YUSUF44]

Aşağıdaki kod, eğer B2'deki tutar Sayfa1 B sütununda varsa pas geçer:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D36:E36")) Is Nothing Then Exit Sub
yeni = Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row + 1
    If WorksheetFunction.CountIf(Sheets("Sayfa1").Range("B2:B" & yeni), Round([B2], 2)) Then GoTo 10
Sheets("Sayfa1").Cells(yeni, "A") = Now
Sheets("Sayfa1").Cells(yeni, "B") = Round([B2], 2)
10:
End Sub

 

[ALTINYAYLA]

Çok teşekkür ederim tekraren hocam...

 

[ALTINYAYLA]

Dosyamı açtığımda bugün

Run-time error '1004':
Application-defined or object-defined error

şeklinde uyarı çıkıyor. Debug a tıkladığımda

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D36:E36")) Is Nothing Then Exit Sub
isiyeni = Sheets("Altinpiyasa").Cells(Rows.Count, "A").End(3).Row + 1
If WorksheetFunction.CountIf(Sheets("Altinpiyasa").Range("B2:B" & yeni), Round([B2], 2)) Then GoTo 10
Sheets("Altinpiyasa").Cells(yeni, "A") = Now
Sheets("Altinpiyasa").Cells(yeni, "B") = Round([B2], 2)
10:
End Sub

kodu çıkıyor ve güncelleme yapmıyor. değerli üstadlarımızdan yardım diliyorum. Saygılarımla

 

[YUSUF44]

Kodda isiyeni değişkeni varken alttaki kısımda yeni var, ya "yeni" şeri "isiyeni" yapın ya da tam tersini.

 

[ALTINYAYLA]

Yusuf üstadımmm yüregine saglik hakkinı helal et çok teşekkür ederimmmm.

 

[ALTINYAYLA]

Arkadaşlar bu konuyu ben açmış ve bahse konu uygulamanın yapılması konusunda yardımlarınızı talep etmiştim. ancak kaybettim. buradaki uygulamayı da indirdim yapamadım son ve kullanılabilir olanı elinde olan arkadaşlar ekleyebilirmi rica etsem. şimdiden teşekkür ederim.