ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Order form linked to inventory (https://www.excelbanter.com/excel-discussion-misc-queries/161444-order-form-linked-inventory.html)

Lella

Order form linked to inventory
 
I've been asked to set-up an inventory sheet of graphics, banners etc. and a
Request form for our client to fill out. I am trying to combine the two so
that the client can click on the ID# in one sheet and that number fills
itself into the Request form on another sheet.

JW[_2_]

Order form linked to inventory
 
On the sheet where you where the client will be clicking, place this
in the sheet module.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
If Not IsEmpty(Target) Then _
Sheets("Sheet2").Cells(1, 1).Value = _
Target.Text
End If
End Sub

You will most likely have to make some changes to this. This is
assuming that the ID is in column 1 and that you want the values
placed in A1 of Sheet2. Simply make the necessary adjustments.

Lella wrote:
I've been asked to set-up an inventory sheet of graphics, banners etc. and a
Request form for our client to fill out. I am trying to combine the two so
that the client can click on the ID# in one sheet and that number fills
itself into the Request form on another sheet.



Lella

Order form linked to inventory
 
Thank you so much...but one other question. I have a column of different ID#
whenever I press more than one it removes the previous selection on the
request form. What do I do to make the selections continue down the request
form?

"JW" wrote:

On the sheet where you where the client will be clicking, place this
in the sheet module.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
If Not IsEmpty(Target) Then _
Sheets("Sheet2").Cells(1, 1).Value = _
Target.Text
End If
End Sub

You will most likely have to make some changes to this. This is
assuming that the ID is in column 1 and that you want the values
placed in A1 of Sheet2. Simply make the necessary adjustments.

Lella wrote:
I've been asked to set-up an inventory sheet of graphics, banners etc. and a
Request form for our client to fill out. I am trying to combine the two so
that the client can click on the ID# in one sheet and that number fills
itself into the Request form on another sheet.




JW[_2_]

Order form linked to inventory
 
You want it to continue down the same column whenever a new selection
is made? Is that right? If so:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
If Not IsEmpty(Target) Then _
Sheets("Sheet2").Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Value = Target.Text
End If
End Sub
Lella wrote:
Thank you so much...but one other question. I have a column of different ID#
whenever I press more than one it removes the previous selection on the
request form. What do I do to make the selections continue down the request
form?

"JW" wrote:

On the sheet where you where the client will be clicking, place this
in the sheet module.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
If Not IsEmpty(Target) Then _
Sheets("Sheet2").Cells(1, 1).Value = _
Target.Text
End If
End Sub

You will most likely have to make some changes to this. This is
assuming that the ID is in column 1 and that you want the values
placed in A1 of Sheet2. Simply make the necessary adjustments.

Lella wrote:
I've been asked to set-up an inventory sheet of graphics, banners etc. and a
Request form for our client to fill out. I am trying to combine the two so
that the client can click on the ID# in one sheet and that number fills
itself into the Request form on another sheet.






All times are GMT +1. The time now is 02:01 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com