Copying data into new sheet depending upon selection of rows or columns based upon highlighted [closed]

Question

It's difficult to tell what is being asked here. This question is ambiguous, vague, incomplete, overly broad, or rhetorical and cannot be reasonably answered in its current form. For help clarifying this question so that it can be reopened, visit the help center.

Closed 8 years ago.

This question may be posted on other forums as well but i am unable to find out my answer.

I want a macro that could

• Copy my selected rows or columns or cells.
• makes new file.xlsx
• pastes that data in that sheet.

Answer 1

Are you looking to paste it into a certain place or just the start of the sheet? What would determine whether you copy the row or column?

This will copy the row of your currently selected cell and then paste it into the first row of a new workbook

Sub CopyRow()
  Selection.EntireRow.Copy
  Workbooks.Add
  ActiveSheet.Paste
End Sub

Edit

Add this code to ask if you want to save, you could then have a question to copy row or column or have a separate macro to copy the column.

Dim docname As String
If MsgBox("Would you like to save the doc?", vbYesNo, "Save?") = vbYes Then
 docname = InputBox("What would you like to call the doc?", "Title")
 ActiveWorkbook.SaveAs Filename:=docname, FileFormat:=xlOpenXMLWorkbook
End If