Yes, its the latter option. I want the macro to detect how many stocks I have every time I run the macro, so the number of stocks is "unknown".
I tried to implement you solution, but I keep getting the errormessage: "Run-time error '438': Object doesn't support this property or method".
Maybe I'm doing it wrong?
Sub LoginNordnet()
'Range("C3:F7").Clear
'Inn med navnet på aksjene
'Range("C2").Value = "Kurs"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Navigate "https://www.nordnet.no/mux/login/startNO.html?cmpi=start-loggain"
Do Until .ReadyState = 4
DoEvents
Loop
.Document.all.Item("input1").Value = "mlcinvest"
.Document.all.Item("pContent").Value = "1MillionDollaz$"
.Document.all.Item("login_btn").Click
Application.Wait DateAdd("s", 2, Now)
.Navigate "https://www.nordnet.no/mux/web/depa/mindepa/depaoversikt.html"
'Vent til eksplorer har loadet ferdig
Do Until .ReadyState = 4
DoEvents
Loop
Dim dd As Single, de As Single, df As Single, dg As Single, dh As Single
NoStocks = IE.Document.getElementById("tr1").Table.Rows.Length + 1
For I = 1 To NoStocks
Range("Q" & 4 + I).Value = dd = IE.Document.getElementById("tr" & I).Cells(6).innerText
Next I
'Hent og lagre kursen (celle 6 i tabbellen "tr1" -> "tr5")
'dd = IE.Document.getElementById("tr1").Cells(6).innerText
'de = IE.Document.getElementById("tr2").Cells(6).innerText
'df = IE.Document.getElementById("tr3").Cells(6).innerText
'dg = IE.Document.getElementById("tr4").Cells(6).innerText
'dh = IE.Document.getElementById("tr5").Cells(6).innerText
End With
'Skriv ut den lagrede verdien (kurs) i celle Q5 - Q9
Range("Q5").Value = dd
Range("Q6").Value = de
Range("Q7").Value = df
Range("Q8").Value = dg
'Range("Q9").Value = dh
'Formatterer cellene slik at de ikke er lagret som text, men tall (må da finnes bedre metoder?)
'Range("A3").CurrentRegion.EntireColumn.AutoFit
Range("Q5:Q9").NumberFormat = "0.00"
' Rydd opp og lukk explorer
Application.StatusBar = ""
IE.Quit
Set IE = Nothing
End Sub
Bookmarks