View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
bisjom[_8_] bisjom[_8_] is offline
external usenet poster
 
Posts: 1
Default finding values from duplicates


Hi tom,

I was trying to fix the problem of displaying the data from sheet to
form..

it is working fine for one value since i am stucked half way..

The below is the code i have used...

Code:
--------------------

Dim a, k As Integer
Dim qsc As Variant
qsc = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
acell=RANGE("A1")
If acell = "" Then
msgbox " nothing in it"

boxno=1
Else
a = Split(acell, ",")
cellsum = 0
For k = LBound(a) To UBound(a)
'MsgBox LBound(a)

If a(k) < "" Then
qsc(k) = a(k)
USERFORM1.TXT&(boxno)=qsc(K)
boxno=boxno+1
endif
Next k


--------------------


but I have a problem at(here) :USERFORM1.TXT&(boxno)=qsc(K)
My plan is that give the text boxes names like: txt1,txt2 etc and it
should take that value from variable boxno. but it shows error.
If i give that line as USERFORM1.TXT1=qsc(K) , it is displaying the
value in it , but all the values are in the same text box and so i will
get only one value..

I know its really a silly thing.. i am trying , but really slow..

if you get sometime to do.. please help me..

thanks for your help...


--
bisjom
------------------------------------------------------------------------
bisjom's Profile: http://www.excelforum.com/member.php...o&userid=31206
View this thread: http://www.excelforum.com/showthread...hreadid=510448