ALTINYAYLA
Altın Üye
- Katılım
- 26 Nisan 2005
- Mesajlar
- 284
- Excel Vers. ve Dili
- Office 2016 Türkçe
- Altın Üyelik Bitiş Tarihi
- 13-01-2029
çok kıymetli korhan hocam sizin yardımınızı beklemekteyim..
Son düzenleme:
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
=('Anlık Altın Verileri'!L3/10000)/31,1034768*C1