15. december 2006 - 15:19Der er
10 kommentarer og 1 løsning
"Snap" af celle der Opdateres dagligt
Mit spørgsmål går på hvorvidt det er muligt at oprette en funktion der tager et øjebliksbillede af en celle der opdateres dagligt. Jeg ønsker eks at have en kollonne med datoer og en formel der for hver dato opdatere celleværdien på den pågældende dato??
Sub workbook_activate() Application.OnTime TimeValue("16:00"), "fangKurs" End Sub I Module1 (indsættes):
Sub fangKurs() With ActiveWorkbook.Sheets(1) kurs = .Range("O11") 'fang aktuelle kurs opretLog kurs End With End Sub Private Sub opretLog(kurs) Dim ræk With ActiveWorkbook.Sheets(1) 'find næste ledige celle på Ark1 ræk = 1 While .Cells(ræk, 16) <> "" 'i kolonne P ræk = ræk + 1 Wend
.Cells(ræk, 16) = Now 'sæt tidspunkt i kolonne P .Cells(ræk, 17) = kurs 'kurs i kolonne Q End With ActiveWorkbook.Save 'gem filen End Sub
Hmm, det er vist en anelse for kompliceret for mig. Frygtede lidt at eneste mulighed var VBA. Har prøvet at kopiere ind i VBA men aner ikke hvad der skal/burde gøres derefter etc.
Når mappe åbnes udføres Sub workbook_activate - d.v.s. at Ontime sættes til kl. 16:00. Minimer herefter mappen. Når klokken blever 16:00 udføres den anførte makro "fangKurs" automatisk - d.v.s. at den anførte kurs samt dato overføres til kolonner P & Q. Mappen gemmes.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.