Re: Is this possible?

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

****Man...I am loosing it***

EDITED REPOST:

Okay-

Disregard the post above...The code below works fine. However...

The only thing I'm stuck on now is figuring how to add an additional row in
my code to do exactly the same thing row C does. So, row D!

Also, since combobox1 (CB) is a range using the RowSource property, and CB2
and CB3 will be additems, how would I trigger those to drop into the cells
with the commandclick?

CODE:
Private Sub CommandButton2_Click()
rowno = Columns(1).Find(Trim(TextBox2.Value)).Row
Range("C" & rowno).Select
Selection.End(xlToLeft).Select
colno = ActiveCell.Column
Cells(rowno, colno + 1).Value = TextBox1.Value
End Sub




Chris Cred wrote:
>Okay-
>
>Disregard the post above...The code below works fine. However...
>
>The only thing I'm stuck on now is figuring how to add an additional row in
>my code to do exactly the same thing row C does. So, row D!
>
>Also, since combobox1 (CB) is a range using the RowSource property, and CB2
>and CB3 will be additems, how would I trigger those to drop into the cells
>with the commandclick?
>
>Private Sub CommandButton2_Click()
>rowno = Columns(1).Find(Trim(TextBox2.Value)).Row
>Range("IV" & rowno).Select
>Selection.End(xlToLeft).Select
>colno = ActiveCell.Column
>Cells(rowno, colno + 1).Value = TextBox1.Value
>End Sub
>
>>Chris,
>> You need to be more specific i.e. what textboxes put data
>[quoted text clipped - 19 lines]
>>> >Cells(rowno, colno + 1).Value = TextBox1.Value
>>> >End Sub

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.aspx/excel-programming/200601/1
.

Quantcast