Re: Help with search and create code
- From: "Ross Culver" <rculver@xxxxxxxxxxxxxxx>
- Date: Fri, 19 Oct 2007 12:17:44 -0500
"Mekinnik" <Mekinnik@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:0BF02B23-721A-49A9-9F8F-C8999E525EBF@xxxxxxxxxxxxxxxx
Let me try and explain it more clearly. I have a userform with a combobox
on
it which gets it values from sheet 'Lists' C2:C10. I would like when the
user
selects the value in the combobox and click the add button it will create
the
alphanumeric number in column 'M' on sheet 'ProCode', it will search for
the
left 2 letter and add 1 to the numerical value.
I tried you code and I have 2 problems
#1 I am not sure how to reference sheet 'Lists' column C2:C10 in the
following line
Prefix = left(range(??).value, 2)
Did you set a LinkedCell value for your combobox? If so, then reference it
like this: sheets("Lists").range("D2").value
D2 is just an example. Use which ever cell you actually set the LinkedCell
value to.
If you didn't set the linkedcell value then use:
Prefix = me.combobox.selectedtext
What's in C2? Just the two letter codes or something more? And the new
value that you're trying to derive, it that supposed to added to the bottom
of your List?
#2 I keep coming up with a compile error for the folling line with the
replace highlighted
highestnumber = highestnumber + value(replace(range("M" &
X).value), prefix, ""))
Actually, that wouldn't get you what you want anyway. Try this:
dim NextValue as long
NextValue = 0
Do while range("M" & x).value <> ""
If left(range("M" & x).value, 2) = prefix then
NextValue = value(replace(range("M" & X).value, prefix, ""))
If nextvalue > highestnumber then
highestnumber = nextvalue
end if
End if
x = x + 1
loop
Note the change in the formula above. I had too many parenthesis in the
last one.
"Ross Culver" wrote:
Your description of what you want is not very clear; however, I think
this
is it.
Dim X as integer, Prefix as string, HighestNumber as long, ValueDesired
as
string
X = 2 'Assuming that your values in col M start at row 2
Prefix = left(range(??).value, 2) 'Use the range to which you set the
comboboxes linked cell. That's where the selected value is stored.
HighestNumber = 0
Do while range("M" & x).value <> ""
If left(range("M" & x).value, 2) = prefix then
highestnumber = highestnumber + value(replace(range("M" &
X).value), prefix, ""))
End if
x = x + 1
loop
ValueDesired = prefix & highestnumber + 1
Try this.
Ross
"Mekinnik" <Mekinnik@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:F1272CBF-2831-4950-A37A-64FD2CA52FC2@xxxxxxxxxxxxxxxx
I am trying to create an alphanumeric value and insert it into a sheet
column
'M' based on a combocox selection, I want it to search column 'M' find
the
left 2 letters then add 1 number to the value it creates. I have been
trying
to create it but keep failing, here is my code
'searches for duplicate MSDS# in column 'M'
dept = Columns(13).Find(What:=CboDept.Value, _
After:=Cells(5000, 13), LookIn:=xlFormulas, _
LookAT:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, _
SearchFormat:=False).Row
If Me.CboDept.Value = "" Then
End If
If Me.CboDept.Value = dept Then
dept = Me.CboDept.Value & 0 + 1
End If
Exit Sub
.
- References:
- Re: Help with search and create code
- From: Ross Culver
- Re: Help with search and create code
- From: Mekinnik
- Re: Help with search and create code
- Prev by Date: Re: Array Problem
- Next by Date: Save File to specific place`
- Previous by thread: Re: Help with search and create code
- Next by thread: RE: Help with search and create code
- Index(es):
Relevant Pages
|
