Repost Of ealier Question

Hi all I had asked this before but I dont think I was very clear so I will
try to explain this better.

I have a userform where I have a combobox1 which it rowsource is ranges
a1:c:1000
I also have 2 textbox's

textbox1 and textbox2

I want to have a macro look up the value of combobox1 and then compare it
with sheet "reg". Once it has found the item I want the value of textbox1
to automatically add on to the value in that cell which is in column "e" and
the same with textbox2 with column"f".

Bob tried to help with this code below but it does not seem to work.
Set rng = Worksheets("Sheet1").Range("A1:A10")
On Error Resume Next
iPos = Application.Vlookup(Listbox1.Value)
On Error GoTo 0
If iPos > 0 Then
Worksheets("Sheet1").Cells(iPos, "E").Value = _
Worksheets("Sheet1").Cells(iPos, "E").Value TextBox1.Text
Worksheets("Sheet1").Cells(iPos, "F").Value = _
Worksheets("Sheet1").Cells(iPos, "F").Value Textbox2.Text
End If

Thanks

Greg

Greg,

Couple of errors in the code. Try this

Set rng = Worksheets("Sheet1").Range("A1:A10")
On Error Resume Next
iPos = Application.Match(ListBox1.Value, rng, 0)
On Error GoTo 0
If iPos > 0 Then
Worksheets("Sheet1").Cells(iPos, "E").Value = _
Worksheets("Sheet1").Cells(iPos, "E").Value + TextBox1.Text
Worksheets("Sheet1").Cells(iPos, "F").Value = _
Worksheets("Sheet1").Cells(iPos, "F").Value + TextBox2.Text
End If



--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Greg B" <tam71@ihug.com.au> wrote in message
news:dupacf$fp7$1@lust.ihug.co.nz...
> Hi all I had asked this before but I dont think I was very clear so I will
> try to explain this better.
>
> I have a userform where I have a combobox1 which it rowsource is ranges
> a1:c:1000
> I also have 2 textbox's
>
> textbox1 and textbox2
>
> I want to have a macro look up the value of combobox1 and then compare it
> with sheet "reg". Once it has found the item I want the value of textbox1
> to automatically add on to the value in that cell which is in column "e"
and
> the same with textbox2 with column"f".
>
> Bob tried to help with this code below but it does not seem to work.
> Set rng = Worksheets("Sheet1").Range("A1:A10")
> On Error Resume Next
> iPos = Application.Vlookup(Listbox1.Value)
> On Error GoTo 0
> If iPos > 0 Then
> Worksheets("Sheet1").Cells(iPos, "E").Value = _
> Worksheets("Sheet1").Cells(iPos, "E").Value TextBox1.Text
> Worksheets("Sheet1").Cells(iPos, "F").Value = _
> Worksheets("Sheet1").Cells(iPos, "F").Value Textbox2.Text
> End If
>
> Thanks
>
> Greg
>
>

it doesn't seem to work must be a problem on my end. I will work on it and
try it again later. The macro doesnt change the numbers in the cell.

Thanks

Greg
"Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
news:en1xzB4QGHA.1416@TK2MSFTNGP12.phx.gbl...
> Greg,
>
> Couple of errors in the code. Try this
>
> Set rng = Worksheets("Sheet1").Range("A1:A10")
> On Error Resume Next
> iPos = Application.Match(ListBox1.Value, rng, 0)
> On Error GoTo 0
> If iPos > 0 Then
> Worksheets("Sheet1").Cells(iPos, "E").Value = _
> Worksheets("Sheet1").Cells(iPos, "E").Value + TextBox1.Text
> Worksheets("Sheet1").Cells(iPos, "F").Value = _
> Worksheets("Sheet1").Cells(iPos, "F").Value + TextBox2.Text
> End If
>
>
>
> --
> HTH
>
> Bob Phillips
>
> (remove nothere from email address if mailing direct)
>
> "Greg B" <tam71@ihug.com.au> wrote in message
> news:dupacf$fp7$1@lust.ihug.co.nz...
>> Hi all I had asked this before but I dont think I was very clear so I
>> will
>> try to explain this better.
>>
>> I have a userform where I have a combobox1 which it rowsource is ranges
>> a1:c:1000
>> I also have 2 textbox's
>>
>> textbox1 and textbox2
>>
>> I want to have a macro look up the value of combobox1 and then compare it
>> with sheet "reg". Once it has found the item I want the value of
>> textbox1
>> to automatically add on to the value in that cell which is in column "e"
> and
>> the same with textbox2 with column"f".
>>
>> Bob tried to help with this code below but it does not seem to work.
>> Set rng = Worksheets("Sheet1").Range("A1:A10")
>> On Error Resume Next
>> iPos = Application.Vlookup(Listbox1.Value)
>> On Error GoTo 0
>> If iPos > 0 Then
>> Worksheets("Sheet1").Cells(iPos, "E").Value = _
>> Worksheets("Sheet1").Cells(iPos, "E").Value TextBox1.Text
>> Worksheets("Sheet1").Cells(iPos, "F").Value = _
>> Worksheets("Sheet1").Cells(iPos, "F").Value Textbox2.Text
>> End If
>>
>> Thanks
>>
>> Greg
>>
>>
>
>

Greg,

It is doing so for me.

One thing, I am doing a match on cells A1:A10, is that the correct range?

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Greg B" <tam71@ihug.com.au> wrote in message
news:dupcg2$jhl$1@lust.ihug.co.nz...
> it doesn't seem to work must be a problem on my end. I will work on it
and
> try it again later. The macro doesnt change the numbers in the cell.
>
> Thanks
>
> Greg
> "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> news:en1xzB4QGHA.1416@TK2MSFTNGP12.phx.gbl...
> > Greg,
> >
> > Couple of errors in the code. Try this
> >
> > Set rng = Worksheets("Sheet1").Range("A1:A10")
> > On Error Resume Next
> > iPos = Application.Match(ListBox1.Value, rng, 0)
> > On Error GoTo 0
> > If iPos > 0 Then
> > Worksheets("Sheet1").Cells(iPos, "E").Value = _
> > Worksheets("Sheet1").Cells(iPos, "E").Value + TextBox1.Text
> > Worksheets("Sheet1").Cells(iPos, "F").Value = _
> > Worksheets("Sheet1").Cells(iPos, "F").Value + TextBox2.Text
> > End If
> >
> >
> >
> > --
> > HTH
> >
> > Bob Phillips
> >
> > (remove nothere from email address if mailing direct)
> >
> > "Greg B" <tam71@ihug.com.au> wrote in message
> > news:dupacf$fp7$1@lust.ihug.co.nz...
> >> Hi all I had asked this before but I dont think I was very clear so I
> >> will
> >> try to explain this better.
> >>
> >> I have a userform where I have a combobox1 which it rowsource is ranges
> >> a1:c:1000
> >> I also have 2 textbox's
> >>
> >> textbox1 and textbox2
> >>
> >> I want to have a macro look up the value of combobox1 and then compare
it
> >> with sheet "reg". Once it has found the item I want the value of
> >> textbox1
> >> to automatically add on to the value in that cell which is in column
"e"
> > and
> >> the same with textbox2 with column"f".
> >>
> >> Bob tried to help with this code below but it does not seem to work.
> >> Set rng = Worksheets("Sheet1").Range("A1:A10")
> >> On Error Resume Next
> >> iPos = Application.Vlookup(Listbox1.Value)
> >> On Error GoTo 0
> >> If iPos > 0 Then
> >> Worksheets("Sheet1").Cells(iPos, "E").Value = _
> >> Worksheets("Sheet1").Cells(iPos, "E").Value TextBox1.Text
> >> Worksheets("Sheet1").Cells(iPos, "F").Value = _
> >> Worksheets("Sheet1").Cells(iPos, "F").Value Textbox2.Text
> >> End If
> >>
> >> Thanks
> >>
> >> Greg
> >>
> >>
> >
> >
>
>

Thanks for that it was that problem exactly.
thanks

Greg

"Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
news:es8HDb4QGHA.4608@tk2msftngp13.phx.gbl...
> Greg,
>
> It is doing so for me.
>
> One thing, I am doing a match on cells A1:A10, is that the correct range?
>
> --
> HTH
>
> Bob Phillips
>
> (remove nothere from email address if mailing direct)
>
> "Greg B" <tam71@ihug.com.au> wrote in message
> news:dupcg2$jhl$1@lust.ihug.co.nz...
>> it doesn't seem to work must be a problem on my end. I will work on it
> and
>> try it again later. The macro doesnt change the numbers in the cell.
>>
>> Thanks
>>
>> Greg
>> "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
>> news:en1xzB4QGHA.1416@TK2MSFTNGP12.phx.gbl...
>> > Greg,
>> >
>> > Couple of errors in the code. Try this
>> >
>> > Set rng = Worksheets("Sheet1").Range("A1:A10")
>> > On Error Resume Next
>> > iPos = Application.Match(ListBox1.Value, rng, 0)
>> > On Error GoTo 0
>> > If iPos > 0 Then
>> > Worksheets("Sheet1").Cells(iPos, "E").Value = _
>> > Worksheets("Sheet1").Cells(iPos, "E").Value + TextBox1.Text
>> > Worksheets("Sheet1").Cells(iPos, "F").Value = _
>> > Worksheets("Sheet1").Cells(iPos, "F").Value + TextBox2.Text
>> > End If
>> >
>> >
>> >
>> > --
>> > HTH
>> >
>> > Bob Phillips
>> >
>> > (remove nothere from email address if mailing direct)
>> >
>> > "Greg B" <tam71@ihug.com.au> wrote in message
>> > news:dupacf$fp7$1@lust.ihug.co.nz...
>> >> Hi all I had asked this before but I dont think I was very clear so I
>> >> will
>> >> try to explain this better.
>> >>
>> >> I have a userform where I have a combobox1 which it rowsource is
>> >> ranges
>> >> a1:c:1000
>> >> I also have 2 textbox's
>> >>
>> >> textbox1 and textbox2
>> >>
>> >> I want to have a macro look up the value of combobox1 and then compare
> it
>> >> with sheet "reg". Once it has found the item I want the value of
>> >> textbox1
>> >> to automatically add on to the value in that cell which is in column
> "e"
>> > and
>> >> the same with textbox2 with column"f".
>> >>
>> >> Bob tried to help with this code below but it does not seem to work.
>> >> Set rng = Worksheets("Sheet1").Range("A1:A10")
>> >> On Error Resume Next
>> >> iPos = Application.Vlookup(Listbox1.Value)
>> >> On Error GoTo 0
>> >> If iPos > 0 Then
>> >> Worksheets("Sheet1").Cells(iPos, "E").Value = _
>> >> Worksheets("Sheet1").Cells(iPos, "E").Value TextBox1.Text
>> >> Worksheets("Sheet1").Cells(iPos, "F").Value = _
>> >> Worksheets("Sheet1").Cells(iPos, "F").Value Textbox2.Text
>> >> End If
>> >>
>> >> Thanks
>> >>
>> >> Greg
>> >>
>> >>
>> >
>> >
>>
>>
>
>