How do i make a variable to a parameter

[Lino]

I am looping through a file with a for each statement and then in the for loop statement i am comparing the value of the cell with tickers to the for each loop ticker value and if the same i assign the value of the shares for the ticker to the totshares variable with the parameter of the Ticker in question.

then later on down the code when i reference TotShare(ThisTicker) I will be able to see how many shares for each specific ticker.

How do I set this up so TotShares will take a parameter.

Thanks Lino

For Each NewTicker In Range("C1:C" & Range("C65536").End(xlUp).Row)
ThisTicker = NewTicker.Value

For i = 1 To FinalRow
If Cells(i, 3) = ThisTicker And (Action = "B" Or Action = "BL") Then
TotShares(ThisTicker) = TotShares + Cells(i, 2)
End If
Next i

 

[Lino]

where do i look to see if this: Microsoft Jet 4.0 OLE DB Provider is installed?

thanks,

lino

 

[NateO]

See my previous response following: 'Check it out:'

There are detailed, explicit instructions there.

 

[Lino]

and i am saying where is this:

Drill down on Applications -> Microsoft Office Environment -> OLE DB Providers.

 

[NateO]

VBE -> Help ->About Microsoft Visual Basic... -> System Info...

 

[Lino]

i think i figured it out...it your code works if i embed the code in a module in the workbook to be parsed, but if i put the code in an addin called parse.xla it fails...why is that?

 

[NateO]

Activeworkbook versus Thisworkbook. Right here:

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
    ThisWorkbook.FullName & ";Extended Properties=Excel 8.0;"

 

[Lino]

what does this do:

.Open , , 3, 3 what are those parameters... , , 3, 3

Lino

 

[NateO]

See the comments here:

http://www.mrexcel.com/board2/viewtopic.php?t=53716&start=4