Günün En Düşük ve En Yüksek Değerini Satır Satır Ekleme

[ALTINYAYLA]

çok kıymetli korhan hocam sizin yardımınızı beklemekteyim..

 

[Korhan Ayhan]

Kendi dosyanızı açın.
ALTIN isimli sayfa ismi üzerinde sağ klik yapın ve KOD GÖRÜNTÜLE seçeneğini seçin.
Karşınıza bazı kodlar gelecektir. O kodların tümünü silip aşağıdaki kodu uygulayın.

Dosyanızı kayıt edip kapatın. Tekrar açtığınızda işlem yaptığını göreceksiniz.

Private Sub Worksheet_Calculate()
    Dim S1 As Worksheet, Bul As Range, Satir As Long
    Dim Maksimum As Double, Minimum As Double
    
    Set S1 = Sheets("Liste")
    Set Bul = S1.Range("A:A").Find(Date)
    If Not Bul Is Nothing Then
        Minimum = WorksheetFunction.Min(S1.Range("B" & Bul.Row, "C" & Bul.Row), Range("C3"))
        Maksimum = WorksheetFunction.Max(S1.Range("B" & Bul.Row, "C" & Bul.Row), Range("C3"))
        Bul.Offset(, 1) = Minimum
        Bul.Offset(, 2) = Maksimum
    Else
        Satir = S1.Cells(Rows.Count, 1).End(3).Row + 1
        S1.Cells(Satir, 1) = Date
        S1.Cells(Satir, 2) = Range("C3")
    End If
End Sub

 

[ALTINYAYLA]

Size nasıl teşekkür etsem azdır saygıdeğer hocam... Hakkınızı helal ediniz...

 

[ALTINYAYLA]

Üstadlarım 9 no lu mesajdaki program çalışmıyor. düzenlenip tekrar yayınlanabilirmi çok mühim.
Selamlarımla...

 

[ALTINYAYLA]

Bu proğramı tekrar kullanmak stiyorum çalışmıyor lüften yardım

 

[ALTINYAYLA]

Yokmu bu konuda yardımcı olacak üstadlarım.

 

[ALTINYAYLA]

Korhan Ayhan Hocam yardımlarınızı umuyum...

 

[Korhan Ayhan]

Merhaba,

Çalışmıyor derken nasıl bir hata veriyor?

 

[ALTINYAYLA]

Hocam hakkınızı helal edin dosya ekte bilgileri anılan sayfaya ekleme yapmıyor

 

[Korhan Ayhan]

Ben bir hata göremedim..

 

[ALTINYAYLA]

En küçük rakamı sıfır en yüksek rakamı da 193,35 olarak göstermesi gerekiyor ama sıfırlı gösteriyor hocam. Saygılarımla...

 

[ALTINYAYLA]

Birde bu proğramı euro ve dolar için de ayrı ayrı sayfalar olarak aynı işlemi yaptırabilirmiyiz acaba ?

 

[Korhan Ayhan]

"ALTIN" isimli sayfada C3 hücresindeki formülü aşağıdaki gibi değiştirip deneyiniz.

=('Anlık Altın Verileri'!L3/10000)/31,1034768*C1

 

[ALTINYAYLA]

Düzgün çalışmadı bende çok mühim ustadlar bir bakabilirmi...

 

[ALTINYAYLA]

Euro Dolar ve Altın için ayrı ayrı sayfalara bunu eklemesi lazım...