Move Only Selected Data Frm 1 Sheet 2 other Existin Workbooks 1st Avaliable Empty ROW

[xcruc1at3r]

i need your help bro !

Sub CopySelectedMultiple()
Dim NextRow&, rng As Range
With Sheets(“Sheet2″)
For Each rng In Selection.Areas
On Error Resume Next
NextRow = .Cells.Find(What:=”*” _ , After:=.Range(“A1″), SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row + 1
If Err 0 Then NextRow = 1
On Error Goto 0
rng.Copy .Cells(NextRow, 1)
Next rng
End With
End Sub

can anyone modify it to Move the Selected Data to another Existing WorkBook “Database.xls” sheet1 which already exist in MY documents, if the Database.xls is active ? or not…

[tlafferty]

I'd be glad to tackle this, but forum rules are that you MUST enclose your code in code brackets so it will display properly.

[xcruc1at3r]

how will i do that ~!~>>? i dont know how to do that my friend am new in this town... .... Found it the code option rite :D

[tlafferty]

Sub CopySelectedMultiple()
Dim NextRow, rng As Range
With Sheets("Sheet2")
    For Each rng In Selection.Areas
        On Error Resume Next
        NextRow = Cells.Find(What:=” * ”, After:=.Range("A1"), SearchOrder:=xlByRows, _
        SearchDirection:=xlPrevious).Row + 1
        If Err = 0 Then NextRow = 1
        On Error GoTo 0
        rng.Copy .Cells(NextRow, 1)
        Workbooks("Database.xls").Activate
        ActiveWorkbook.Sheets(1).Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
        ThisWorkbook.Activate
    Next rng
End With
End Sub

NOTE: This has not been tested. To do that, I need a sample of your workbooks.

[xcruc1at3r]

well i have attached the ITV Report.xls its a sample from my main report and i want to move the data that i select in the genset sheet as u know that we select range with a mouse as well so that should move to the active worksheet DATABASE.xls Sheet 1 (complete-database) only the selected do add the option of multiple selection pls
The Database.xls will have all the same cell names as in the ITV Report.xls
the difference is that ITV report is based on daily updates and Database.xls will be for all the activities
Sample-ITV Report.xls

[xcruc1at3r]

this is the Sample of database.xls my main report is of 6mb that why i didnt sent u the complete report only the sample so u can understand the scenarioITV-DATABASE.xls

[xcruc1at3r]

bro i have to get read n leave for office so see ya soon man!
and thanks a million for helping me out

[tlafferty]

Do you want to copy just the selected cells, or all the data to the left and right of the selection as well?

[xcruc1at3r]

only the selected data ! should move to the 1st available empty row

[tlafferty]

It sounds to me like you want to allow selections of multiple, not necessarily sequential records, copy those, and paste them in the first available row in the Database.xls workbook. This code, slightly modified from what I posted above, will do this. Note that it requires the Database.xls workbook to be open. Run the code from the ITV-Database.xls workbook.

Sub CopySelectedMultiple()
    Selection.Copy
    Workbooks("Database.xls").Activate
    ActiveWorkbook.Sheets(1).Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
    ThisWorkbook.Activate
    MsgBox "Data transfer complete.", vbInformation, "Process Complete"
End Sub

Just place the above code in a code module in your ITV-Database.xls workbook.

Let me know if this does the trick for you.

[xcruc1at3r]

BRo U ROCK MAN....Big Time
AwsOmeeeee....
Well I really Want to learn how to create VBA macro's can U Guide me ! how to start... e books and site addresses so i can help Out PPL like U do...and assist U as well...

[tlafferty]

Thanks for your kind words! You might invest in the Excel 2010 Bible available through amazon.com. I'd also run a search on VBA. I don't own any references and am mostly self taught, so I can't vouch for how good any of it is.

Could you consider marking your post solved?

Thanks!
Tom

[xcruc1at3r]

THis Thread IS SOLVED PPL thanks TO "tlafferty"