hejhej
Dim lngrad as long
lngrad= activesheet.range("A65536").end(xlup).row
Ovan kod kommer söka med start i cell A, och därefter uppåt i samma kolumn. Så du behöver inte specificera vilken kolumn som ska sökas av, den plockas av cellen du angett som startposition för sökningen. Den fungerar precis såsom om du skulle ha stått i cellen och därefter tryckt ctrl+shift + pil upp.
Ditt kompileringsfel bör dock bero på något annat efterssom den är körbar. Har du Option explicit på så måste du alltid deklarera dina variabler:
Dim Intsistarad as integer.
Sedan finns ytterliggare problematik. En int kan inte lagra tal över 32767, så om du får träff på en rad över detta kommer du få körfel. Därför ska du istället använda Long
Dim lngSistarad as Long
MVh
Christian