excel - Class won't work -


i'm learning work classes in vba. i'm attempting write 1 gets true used range. code in class module looks this:

option explicit private mysheet range  public property cltrueusedrange() range     set cltrueusedrange = trueusedrange(mysheet) end property  public property let cltrueusedrange(byref wssource range)     mysheet = wssource end property private function trueusedrange(byref wssource worksheet) range dim rlastcell range  wssource     set rlastcell = .cells.find(what:="*", after:=.cells(1, 1), lookin:=xlformulas, lookat:= _             xlpart, searchorder:=xlbyrows, searchdirection:=xlprevious, matchcase:=false)     set trueusedrange = .range("$a$1:" & rlastcell.address) end  end function

when try run it, error message, stating: byref type mismatch

what not correct in refrences in code?

your function expects sheet, not range. need: set cltrueusedrange = trueusedrange(mysheet.worksheet) or change code below, , pass worksheet when call it. also, property let needs property set assigning object:

option explicit private mysheet worksheet  public property cltrueusedrange() range     set cltrueusedrange = trueusedrange(mysheet) end property  public property set sheet(byref wssource worksheet)     set mysheet = wssource end property private function trueusedrange(byref wssource worksheet) range dim rlastcell range  wssource     set rlastcell = .cells.find(what:="*", after:=.cells(1, 1), lookin:=xlformulas, lookat:= _             xlpart, searchorder:=xlbyrows, searchdirection:=xlprevious, matchcase:=false)     set trueusedrange = .range("$a$1:" & rlastcell.address) end  end function

and use: set rdata.sheet = activesheet


Comments

Post a Comment

Popular posts from this blog

toolbar - How to add link to user registration inside toobar in admin joomla 3 custom component -

im trying write component admin side , need add user creation. dont want duplicate existing codes add link. know how add task not simple link toolbar. thx help. if wanting button opens new user screen can try in component: $bar = jtoolbar::getinstance('toolbar'); $bar->appendbutton('link', 'users', 'new user','index.php?option=com_users&task=user.add'); you need add view.html.php file wherever you're creating toolbar. is need?
Read more

linux - disk space limitation when creating war file -

i have 1 gb disk space limitation hosting app , have used 700mb of it. however want create war file directory big (around 600mb) using command : jar -cvf root.war folderpath that's why encounter quota limitation , can't following. i'm looking way delete folder content when it's applying archive conserve disk space take note can't install zip tool in ssh shell ~ the code works on test directories, test first anyway, deletes files. it's not efficient. assumptions: 300mb free space, in destructively compress 600mb folderpath directory. none of files big -- if file in folderpath 300mb or larger, fail. notes: if ' $out ' file exists, nothing. first find pipes file list while , if ' $out ' doesn't exist in loop, create it, don't update -- if does exist, update it. each pass adds 1 more file, deletes unless file directory. after loop finishes delete empty directories too. unset u ; in=folderpath ; out=roo...
Read more

How to provide Authorization & Authentication using Asp.net, C#? -

Image
i have asp.net application in c#. i have provide page authorization specific user/usergroup. i have created 2 tables in database: 1) pagename 2)permissions[insert, update, view, delete] but i'm unable match tables , permissions assigning... can 1 please me, how created tables in database , how coding. please me. you can below explanation. configure access specific file , folder, set forms-based authentication. request page in application redirected logon.aspx automatically. in web.config file, type or paste following code. this code grants users access default1.aspx page , subdir1 folder . <configuration> <system.web> <authentication mode="forms" > <forms loginurl="login.aspx" name=".aspnetauth" protection="none" path="/" timeout="20" > </forms> </authentication> <!-- section denies access files in...
Read more