Solved: Select line and send to specific fields to another worksheet

[marreco]

Hi.
I need to select one of the rows in spreadsheet 1, to Sheet2
But the fields will always Sheet2 cells
G5
F11
I5
I14
I tried to use it but is not working....http://www.sendspace.com/file/6w9mu3...om/file/6w9mu3
[VBA]Sub CopySelectedRows()
Dim rCopy As Range
Dim lAreas As Long

On Error Resume Next
Set rCopy = Application.InputBox("Select Rows to copy. " _
& "Use Ctrl for non-contiguous rows", "COPY ROWS", Selection.Address, , , , , 8)
On Error GoTo 0
If rCopy Is Nothing Then Exit Sub 'Hit Cancel

If rCopy.Columns.Count <> Columns.Count Then
MsgBox "Please select entire row(s)"
Run "CopySelectedRows"
Else
For lAreas = 1 To rCopy.Areas.Count
rCopy.Areas(lAreas).Copy Sheet2.Cells(Rows.Count, 1).End(xlUp)(2, 1)
Next lAreas
End If

End Sub[/VBA]

Cross-Post
http://www.mrexcel.com/forum/excel-q...worksheet.html

[patel]

try attached file

[marreco]

Hi.

Msgbox appears when I press the 'ok', then the code does nothing but.

[patel]

check macro assigned to button "Enviar", must be CopySelectedRows

[marreco]

Hi.

When running, the InputBox appears, I select the line.
Then appears a TextBox, I press OK, nothing else happens there!!

Thank you!!

[patel]

Hi.
When running, the InputBox appears, I select the line.
Then appears a TextBox......

textbox ? attach again your file

[marreco]

Hi.

See my file

[jolivanes]

Select a name only and then click on a button.

[VBA]Sub MaybeSometingLikeThis()
With Sheets("Plan2")
.Range("G5").Value = ActiveCell.Value
.Range("F11").Value = ActiveCell.Offset(, 1).Value
.Range("I5").Value = ActiveCell.Offset(, 2).Value
.Range("I14").Value = ActiveCell.Offset(, 3).Value
End With
End Sub[/VBA]

[patel]

You have to assign macro to button "Enviar", must be CopySelectedRows.
After that your file works

[marreco]

Hi.
I did the assignment happens but as mentioned in my post #5

Thank you!!

[patel]

I can't help you, that code works perfect on my Excel 2010, on my Win7, on my PC

[marreco]

Hi.
I use Excel 2007, Windows XP, is it therefore that is not working?

[jolivanes]

I tried your code from the attachment in #7 and it works for me in XP/2007.
Did you select the whole row (click on the row number)?

[marreco]

Hi.

I was not knowing how to use the code.
the code is working.

thanks to all