Type Mismatch Error when matching excel user profile to list of names in cells -

-

i getting error of type mismatch when code runs usernames = .range("a1:a100") . not sure how can fixed, suggestions? 

sub addpix()  dim usernames() string dim userpixnames() string dim currentuser string dim mypassword string mypassword = "trade2013" sheets("collection slip").unprotect password:=mypassword  worksheets("user management")     'assign user names array (much faster looping through range)     usernames = .range("a1:a100")     userpixnames = .range("b1:b100") end = 1 100     'the 1 in usernames(i,1) needed because of way         'vba creates array assigned directly range         '(as did above)     if environ$("username") = usernames(i, 1)         'have missed picture inserted?         sheets("collection slip").pictures.insert _             ("g:\its\shared\signature\" & userpixnames(i, 1) & ".jpg")             .top = range("b31").top             .left = range("b31").left             .width = 250             .height = 58         end         'short-circuit loop when current user's name found         = 100     end if  next  'sheets("collection slip").protect password:=mypassword end sub

in addition have tired dim usernames() variant instead of string. error of "type mismatch" still occurs @ 'usernames = .range("a1:a100")

any appreciated

you should dim usernames() variant instead of as string. array of values range default type variant.


Comments

Post a Comment

Popular posts from this blog

Issues changing the value of an element in an array in matlab -

-
i'm trying create program sum n-1 , n-2 numbers create n , store value in array. currently, output (assuming numdisp > 2 ) num1 , num2 , 0 , 0 , 0 ... size of array correct, i'm having issues reassigning elements. num1 = input('input first integer of fibonacci sequence: '); num2 = input('input second integer of fibonacci sequence: '); numsdisp = input('how many integers display? --> '); list = zeros(numsdisp,1); list(1) = num1; list(2) = num2; if (numsdisp <=0) disp('value must integer greater zero.') elseif (numsdisp == 1) disp(num1) elseif (numsdisp == 2) disp(num1) disp(num2) else disp(num1) disp(num2) index = 3:numsdisp disp(list(index)) list(index) = list((index-1)) + list((index-2)); end end example input: 3 3 4 corresponding output: 3 3 0 0 you aren't printing out final result, intermediate steps. in for loop, printing list(index) updating value, rather updat...
Read more

php - MySQLi binding parameters in a prepared statement doesn't work unless inserted after "WHERE" -

-
i have php code pulls info database. uses prepared statement, works fine written below: <?php $n = '5'; if ($stmt = $connection->prepare("select title items id = ?")) { $stmt->bind_param("s", $n); $stmt->execute(); $stmt->bind_result($title); while ($stmt->fetch()) { echo $title; } $stmt->close(); } ?> and let's echo "batman". however, when move placeholder here: "select ? items id = 5" and change: $n = 'title'; instead of echoing "batman", echoes "title". not possible use placeholder select parameter? what have done this: select "title" items id = 5 you cant use prepared statement bindings identifiers, parameters.
Read more

vb.net - Alternative to the T-SQL AS keyword -

-
please see code below: imports system.data.sqlclient imports system.configuration public class form1 private _constring string private sub form1_load(byval sender object, byval e system.eventargs) handles me.load dim objdr sqldatareader dim objcommand sqlcommand dim objcon sqlconnection dim id integer try _constring = configurationmanager.connectionstrings("testconnection").tostring objcon = new sqlconnection(_constring) objcommand = new sqlcommand("select person.urn, car.urn person inner join car on person.urn = car.urn , personid=1") objcommand.connection = objcon objcon.open() objdr = objcommand.executereader(connectionstate.closed) while objdr.read id = objdr("urn") 'line 19 loop objdr.close() ...
Read more