| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Export cell data to closed workbook
Is there a way to export a range of data of my current worksheet to the next
blank row on a closed workbook? I have a template excel file used to place orders and I want to copy the order information (ex B3:F3) to the next available row in a workbook that has all of the orders. Thanks |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Export cell data to closed workbook
Hi cluckers
Maybe this will help See the last example on this page : What if the Database sheet is in another workbook http://www.rondebruin.nl/copy1.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "cluckers" wrote in message ... Is there a way to export a range of data of my current worksheet to the next blank row on a closed workbook? I have a template excel file used to place orders and I want to copy the order information (ex B3:F3) to the next available row in a workbook that has all of the orders. Thanks |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Export cell data to closed workbook
Thanks for the post. However, I have gotten the macro to work but sometimes
it does not always exoprt the data to the destination workbook. Do you know why this sometimes does not work? "Ron de Bruin" wrote: Hi cluckers Maybe this will help See the last example on this page : What if the Database sheet is in another workbook http://www.rondebruin.nl/copy1.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "cluckers" wrote in message ... Is there a way to export a range of data of my current worksheet to the next blank row on a closed workbook? I have a template excel file used to place orders and I want to copy the order information (ex B3:F3) to the next available row in a workbook that has all of the orders. Thanks |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Export cell data to closed workbook
Show us your code then
-- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "cluckers" wrote in message ... Thanks for the post. However, I have gotten the macro to work but sometimes it does not always exoprt the data to the destination workbook. Do you know why this sometimes does not work? "Ron de Bruin" wrote: Hi cluckers Maybe this will help See the last example on this page : What if the Database sheet is in another workbook http://www.rondebruin.nl/copy1.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "cluckers" wrote in message ... Is there a way to export a range of data of my current worksheet to the next blank row on a closed workbook? I have a template excel file used to place orders and I want to copy the order information (ex B3:F3) to the next available row in a workbook that has all of the orders. Thanks |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Export cell data to closed workbook
At the end I am calling another macro to automcatically run. Combining them
into one was not working very well. Option Explicit Sub Send_To_Database() If MsgBox("Are you sure you want to submit this order?", vbYesNo) = vbNo Then Exit Sub Dim SourceRange As Range Dim DestRange As Range Dim DestWB As Workbook Dim DestSh As Worksheet Dim Lr As Long With Application .ScreenUpdating = False .EnableEvents = False End With If bIsBookOpen_RB("Orders.xls") Then Set DestWB = Workbooks("Orders.xls") Else Set DestWB = Workbooks.Open("G:\Destination path\Orders.xls") End If Set SourceRange = ActiveWorkbook.Sheets("Sheet1").Range("B12:L12") Set DestSh = DestWB.Worksheets("Sheet1") Lr = LastRow(DestSh) Set DestRange = DestSh.Range("A" & Lr + 1) With SourceRange Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count) End With DestRange.Value = SourceRange.Value DestWB.Close savechanges:=True With Application .ScreenUpdating = True .EnableEvents = True End With Call Email_Data End Sub "Ron de Bruin" wrote: Show us your code then -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "cluckers" wrote in message ... Thanks for the post. However, I have gotten the macro to work but sometimes it does not always exoprt the data to the destination workbook. Do you know why this sometimes does not work? "Ron de Bruin" wrote: Hi cluckers Maybe this will help See the last example on this page : What if the Database sheet is in another workbook http://www.rondebruin.nl/copy1.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "cluckers" wrote in message ... Is there a way to export a range of data of my current worksheet to the next blank row on a closed workbook? I have a template excel file used to place orders and I want to copy the order information (ex B3:F3) to the next available row in a workbook that has all of the orders. Thanks |
|
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Export cell data to closed workbook
We are not able to help you if you not tell what you want and what the macro
Email_Data is trying to do. Post this macro here -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "cluckers" wrote in message ... At the end I am calling another macro to automcatically run. Combining them into one was not working very well. Option Explicit Sub Send_To_Database() If MsgBox("Are you sure you want to submit this order?", vbYesNo) = vbNo Then Exit Sub Dim SourceRange As Range Dim DestRange As Range Dim DestWB As Workbook Dim DestSh As Worksheet Dim Lr As Long With Application .ScreenUpdating = False .EnableEvents = False End With If bIsBookOpen_RB("Orders.xls") Then Set DestWB = Workbooks("Orders.xls") Else Set DestWB = Workbooks.Open("G:\Destination path\Orders.xls") End If Set SourceRange = ActiveWorkbook.Sheets("Sheet1").Range("B12:L12") Set DestSh = DestWB.Worksheets("Sheet1") Lr = LastRow(DestSh) Set DestRange = DestSh.Range("A" & Lr + 1) With SourceRange Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count) End With DestRange.Value = SourceRange.Value DestWB.Close savechanges:=True With Application .ScreenUpdating = True .EnableEvents = True End With Call Email_Data End Sub "Ron de Bruin" wrote: Show us your code then -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "cluckers" wrote in message ... Thanks for the post. However, I have gotten the macro to work but sometimes it does not always exoprt the data to the destination workbook. Do you know why this sometimes does not work? "Ron de Bruin" wrote: Hi cluckers Maybe this will help See the last example on this page : What if the Database sheet is in another workbook http://www.rondebruin.nl/copy1.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "cluckers" wrote in message ... Is there a way to export a range of data of my current worksheet to the next blank row on a closed workbook? I have a template excel file used to place orders and I want to copy the order information (ex B3:F3) to the next available row in a workbook that has all of the orders. Thanks |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Replace data into closed workbook | Excel Discussion (Misc queries) | |||
| Get Data From Closed Workbook | Excel Worksheet Functions | |||
| Using Closed Workbook as Data Book | Excel Discussion (Misc queries) | |||
| Consolidation of data from cell in active sheet of closed workbook | Excel Worksheet Functions | |||
| Data Validation From Closed WorkBook | Excel Discussion (Misc queries) | |||
Hybrid Mode
