Help. I have worksheet "A" and once the user has populated columns A4 - F4
I'd like to have a button that says "Complete" and once they hit that button
all the data from the above fields automatically populates worksheet "B"'s
same field numbers on the second worksheet.- same numbering schema - in other
words the next person may have A5 - F5. How do I do this? is it even
possible?
Help
--
Shanen

Hi Shanen

In worksheet A insert a Command Button from the Control Toolbox menu, then
right click on the button and select Wiew code.

Paste this code in the codesheet that appears:

Private Sub CommandButton1_Click()
Dim TargetCell As String
TargetCell = Range("A3").End(xlDown).Address
Range(TargetCell, Range(TargetCell).Offset(0, 5)).Copy _
Sheets("Sheet2").Range(TargetCell)
End Sub

Change "Sheet2" to the name of worksheet B i needed.
Close the VBA editor and hit Exit Design Mode button on the Control Toolbox
menu.

Now it's time to test it :-)

Regards,
Per

"Shanen" skrev i meddelelsen
...
Help. I have worksheet "A" and once the user has populated columns A4 -
F4
I'd like to have a button that says "Complete" and once they hit that
button
all the data from the above fields automatically populates worksheet "B"'s
same field numbers on the second worksheet.- same numbering schema - in
other
words the next person may have A5 - F5. How do I do this? is it even
possible?
Help
--
Shanen

Thank You - it's working. One thing I forgot, how do I make this so that it
repeats this function for the rest of the lines. In other words you coded it
for line 4. I would like it to work for the rest of the lines thru 25 when
they are ready to be copied.

Should I make 25 'buttons' like this and each one corresponds to a
particular row?Thoughts?

Thanks again!!
--
Shanen


"Per Jessen" wrote:

Hi Shanen

In worksheet A insert a Command Button from the Control Toolbox menu, then
right click on the button and select Wiew code.

Paste this code in the codesheet that appears:

Private Sub CommandButton1_Click()
Dim TargetCell As String
TargetCell = Range("A3").End(xlDown).Address
Range(TargetCell, Range(TargetCell).Offset(0, 5)).Copy _
Sheets("Sheet2").Range(TargetCell)
End Sub

Change "Sheet2" to the name of worksheet B i needed.
Close the VBA editor and hit Exit Design Mode button on the Control Toolbox
menu.

Now it's time to test it :-)

Regards,
Per

"Shanen" skrev i meddelelsen
...
Help. I have worksheet "A" and once the user has populated columns A4 -
F4
I'd like to have a button that says "Complete" and once they hit that
button
all the data from the above fields automatically populates worksheet "B"'s
same field numbers on the second worksheet.- same numbering schema - in
other
words the next person may have A5 - F5. How do I do this? is it even
possible?
Help
--
Shanen

Thank you, for your reply.

The previus code will work for an unlimited number of rows.
Code below will only copy 25 rows, starting at row 4.

Private Sub CommandButton1_Click()
Dim TargetCell As String
TargetCell = Range("A3").End(xlDown).Address
If Range(TargetCell).Row <= 28 Then
Range(TargetCell, Range(TargetCell).Offset(0, 5)).Copy
Sheets("Sheet2").Range(TargetCell)
End If
End Sub

Best regards,
Per

"Shanen" skrev i meddelelsen
...
Thank You - it's working. One thing I forgot, how do I make this so that
it
repeats this function for the rest of the lines. In other words you coded
it
for line 4. I would like it to work for the rest of the lines thru 25 when
they are ready to be copied.

Should I make 25 'buttons' like this and each one corresponds to a
particular row?Thoughts?

Thanks again!!
--
Shanen


"Per Jessen" wrote:

Hi Shanen

In worksheet A insert a Command Button from the Control Toolbox menu,
then
right click on the button and select Wiew code.

Paste this code in the codesheet that appears:

Private Sub CommandButton1_Click()
Dim TargetCell As String
TargetCell = Range("A3").End(xlDown).Address
Range(TargetCell, Range(TargetCell).Offset(0, 5)).Copy _
Sheets("Sheet2").Range(TargetCell)
End Sub

Change "Sheet2" to the name of worksheet B i needed.
Close the VBA editor and hit Exit Design Mode button on the Control
Toolbox
menu.

Now it's time to test it :-)

Regards,
Per

"Shanen" skrev i meddelelsen
...
Help. I have worksheet "A" and once the user has populated columns
A4 -
F4
I'd like to have a button that says "Complete" and once they hit that
button
all the data from the above fields automatically populates worksheet
"B"'s
same field numbers on the second worksheet.- same numbering schema - in
other
words the next person may have A5 - F5. How do I do this? is it even
possible?
Help
--
Shanen

Thanks again, I can get line 4 to work using both macros, any additionl lines
I add do not get copied upon clicking the button?
--
Shanen


"Per Jessen" wrote:

Thank you, for your reply.

The previus code will work for an unlimited number of rows.
Code below will only copy 25 rows, starting at row 4.

Private Sub CommandButton1_Click()
Dim TargetCell As String
TargetCell = Range("A3").End(xlDown).Address
If Range(TargetCell).Row <= 28 Then
Range(TargetCell, Range(TargetCell).Offset(0, 5)).Copy
Sheets("Sheet2").Range(TargetCell)
End If
End Sub

Best regards,
Per

"Shanen" skrev i meddelelsen
...
Thank You - it's working. One thing I forgot, how do I make this so that
it
repeats this function for the rest of the lines. In other words you coded
it
for line 4. I would like it to work for the rest of the lines thru 25 when
they are ready to be copied.

Should I make 25 'buttons' like this and each one corresponds to a
particular row?Thoughts?

Thanks again!!
--
Shanen


"Per Jessen" wrote:

Hi Shanen

In worksheet A insert a Command Button from the Control Toolbox menu,
then
right click on the button and select Wiew code.

Paste this code in the codesheet that appears:

Private Sub CommandButton1_Click()
Dim TargetCell As String
TargetCell = Range("A3").End(xlDown).Address
Range(TargetCell, Range(TargetCell).Offset(0, 5)).Copy _
Sheets("Sheet2").Range(TargetCell)
End Sub

Change "Sheet2" to the name of worksheet B i needed.
Close the VBA editor and hit Exit Design Mode button on the Control
Toolbox
menu.

Now it's time to test it :-)

Regards,
Per

"Shanen" skrev i meddelelsen
...
Help. I have worksheet "A" and once the user has populated columns
A4 -
F4
I'd like to have a button that says "Complete" and once they hit that
button
all the data from the above fields automatically populates worksheet
"B"'s
same field numbers on the second worksheet.- same numbering schema - in
other
words the next person may have A5 - F5. How do I do this? is it even
possible?
Help
--
Shanen

Hi again

Did you entered any date in cell A5 ? The macro will copy the downmost row
with data in column A.

Regards,
Per

"Shanen" skrev i meddelelsen
...
Thanks again, I can get line 4 to work using both macros, any additionl
lines
I add do not get copied upon clicking the button?
--
Shanen


"Per Jessen" wrote:

Thank you, for your reply.

The previus code will work for an unlimited number of rows.
Code below will only copy 25 rows, starting at row 4.

Private Sub CommandButton1_Click()
Dim TargetCell As String
TargetCell = Range("A3").End(xlDown).Address
If Range(TargetCell).Row <= 28 Then
Range(TargetCell, Range(TargetCell).Offset(0, 5)).Copy
Sheets("Sheet2").Range(TargetCell)
End If
End Sub

Best regards,
Per

"Shanen" skrev i meddelelsen
...

Yes I did. I entered data in several lines and I purposly skipped some
lines...when I press the button, only the first two rows (4 and 5) are
updating to the second sheet.
--
Shanen


"Per Jessen" wrote:

Hi again

Did you entered any date in cell A5 ? The macro will copy the downmost row
with data in column A.

Regards,
Per

"Shanen" skrev i meddelelsen
...
Thanks again, I can get line 4 to work using both macros, any additionl
lines
I add do not get copied upon clicking the button?
--
Shanen


"Per Jessen" wrote:

Thank you, for your reply.

The previus code will work for an unlimited number of rows.
Code below will only copy 25 rows, starting at row 4.

Private Sub CommandButton1_Click()
Dim TargetCell As String
TargetCell = Range("A3").End(xlDown).Address
If Range(TargetCell).Row <= 28 Then
Range(TargetCell, Range(TargetCell).Offset(0, 5)).Copy
Sheets("Sheet2").Range(TargetCell)
End If
End Sub

Best regards,
Per

"Shanen" skrev i meddelelsen
...