Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
  Advanced Search
  HOME    TRACKER    Excel


Advertisements:










Macro - Copying/Pasting Data From One Workbook To Another


I'm trying to do is record a macro that will copy data from cells A1/A2 of Test.xls and paste it to cell A1/A2 of Text2.xls. Then when I run the macro again, it will copy B1/B2 of Test.xls to B1/B2 of Test2.xls, and then do that for the remaining cells.


View Complete Thread with Replies

Sponsored Links:

Related Forum Messages:
Searching Cells Then Copying/pasting And Deleting Macro
I need to search column C for the text "X". If an "X" is found, I need to copy the text from the cell directly left of it and paste it into a seperate worksheet into cell B2, then go back to the original worksheet and delete the cell with "X" on it and the cell to the left.

View Replies!   View Related
Macro Copying & Pasting Chart Affects Its Size
I have a macro that takes a worksheet and copies it to another workbook. It works, but the graph that is contained in the new worksheet ends up a little screwy; for instance, the Plot Area is larger than it should be (height-wise along the screen), and the chart's legend isn't in the exact same place as in the original chart.

ThisWorkbook.Worksheets(tempSheet).Copy After:=wb.ActiveSheet 'before:=ThisWorkbook.Sheets(1)
RenameTemplate

'unlink copy from template
'must unprotect before unlinking. We'll leave it unlocked cuz we don't care.
wb.ActiveSheet.Unprotect
'cells
wb.ActiveSheet.UsedRange.Copy 'ThisWorkbook.Sheets(tempSheet).UsedRange.Copy
wb.ActiveSheet.UsedRange.PasteSpecial Paste:=xlPasteValues ......................

View Replies!   View Related
Copying And Pasting Data Scenarios Into A Data Report Sheet
breeze.

Here is my situation:

X Y Z
Oct Nov Dec Jan Feb Mar Apr May Jun Jul Aug Sep
A
B
C

The above format is how I want my spreadsheet to look like. On another sheet within the workbook, I have a chart with some control options that allow me to vary X, Y, Z (I can vary either of these individually). Anytime I vary any one of X,Y,or Z, then the values in A,B,and C all change. This is what I am looking for, a Macro that will allow me the opportunity to everytime I change or vary an option (X,Y,Z), I can hit "Save Scenario" and the new values will be appended to my "Report" sheet. The values of A-C and X and Y are kept on a sheet entitled "FY 07". X is maintained on a sheet called "Inputs". So in all, X,Y, Z and A,B,C are all copied for each scenario.

View Replies!   View Related
Convert Data Into A List Format By Copying And Pasting
I have a consolidation workbook and source files.I would like to convert the data from the source files into a list format in the consolidation workbook.

I have attached a sample of the sheet format of the source files in the attached file, called 'Page 5'. The other 2 sheets are 'Template' and 'Instructions'. The 'Template' sheet is what I imagined would be the list format of the data copied from the 'Page 5' sheet. Instructions is where the lookup table for currency is.

So basically starting from row 8 in 'Template' sheet, I would like to copy and paste from 'Page 5' sheet to 'Template' sheet:
- H2 to A8 & B8
- B2 to C8
- According to the list of currency in 'Instructions' sheet, lookup the currency according to operating unit in C8 and paste to D8
- D5-I5 to E8
- row A8-A23 to column F-N

I actually have had a similar problem before, which Derk has helped me here - link: Use Access or XL? (I've decided to start a new thread because this is a more relevant forum).

I have tried to modify the code but I am rather lost as to which part I am supposed to modify.. Note that in this code, the source data is in separate file instead.

Sub add()

Dim wb As Workbook, f As Worksheet, t As Worksheet, j As Integer, k As Integer, n As Integer
Dim mty As String, yr As Integer, d As Date, bu As String, cur As String, sTodo As Variant

sTodo = Array("Page 5") 'finish adding the names
Application. ScreenUpdating = False
Set t = Workbooks("Example1.xls").Worksheets("Template")
i = t.Cells(65536, 2).End(xlUp).Row

View Replies!   View Related
Copying Data And Pasting Data To Update Database
I have a workbook with a database of 15 different products. We receive information with current prices for each of the 15 products on a weekly basis. This info comes in one single worksheet. I have created a different file with one worksheet for each product to track price behavior over time. I need to update these database everytime I get a new report. What I was trying to do is to develop a Macro to copy the data from a "Master" worksheet that includes all 15 products info to the respective worksheet for each product. Information is sorted in columns having the most recent date in the lowest column. I would need the Macro to copy the new data below the last price for each product. I would copy the data into the "MAster" worksheet, then run the Macro who would copy each row and paste it in its respective worksheet in the row rightafter the previous one.

View Replies!   View Related
Pasting Charts Between 2 Instances Copies Macro Code Into Hidden Workbook
Consider two instances of Excel - one with a workbook containing a chart and some VBA code, the other containing a blank workbook. When I paste a chart from the first instance of Excel to the other, all the VBA code from the original workbook is also pasted into a new third hidden workbook in the second instance of Excel! If that weren't weird enough ON WINDOWS XP (but not Windows 2000) if the VBA code included WorkbookOpen or AutoOpen this code is executed in the second instance of Excel, which of course fails if it references sheets that only existed in the workbook open in the first instance of Excel! This is the first time I've seen the same version of Excel do different things on different versions of Windows! Example attached - What's going on!? Auto Merged Post Until 24 Hrs Passes;...note: this does not happen when pasting charts between workbooks open in the SAME instance of Excel

View Replies!   View Related
Copying Sheet Data And Pasting It To A New Sheet
I have multiple worksheets and I am looking to take specific information from those worksheets and paste them into a new one, thereby compiling the information.
The "C" column is populated with certain cells that say "Not Acceptable". This varies from sheet to sheet, but all in the C column. I'm looking for a code that will run through all the sheets, find the cells that say "Not Acceptable", copy that row of information it is in, and paste it onto a specific sheet that we'll call "Summary"

View Replies!   View Related
Copying And Pasting
I've got cells which change after I use Solver to do simulations, These cells after the calculation is run I'd lke to paste into a seperate sheet and row for example (in preparating of charting them for example)..

I would like to paste it as folllows for example... .. but problem is, let's say the below list are in column A of the new sheet, than column B would be the first output of the calculation in the other sheet, column C would be the second output from the calculation in the other sheet. and so on..

I don't know the first thing on scripting, but I'd like to click on button where the calculations are made which when clicked on ,will paste to the other sheet in this sort of manner below.

Each calculation will use another column.. so the script must recognise there is other columns to the left already filled, ie. B, C, D, E F, coresponding to the results of calculations already performed.

Gross income
Expenses
Net Tax

View Replies!   View Related
Copying And Pasting Using VBA
I have the following code which copies and pastes from one row to another

View Replies!   View Related
Copying And Pasting Objects In VBA
I have a range of cells I want to copy which has some textboxes and check boxes in it. When I do a copy/insert cells in vba it only copies the cells and their values but not any of the boxes.

.Range(.Cells(Origin.Row + 1, Origin.Column), .Cells(Origin.Row + 12, Origin.Column + 10)).EntireRow.Copy

.Range(.Cells(Ind.Row, 3), .Cells(Ind.Row, 3)).EntireRow.Insert Shift:=xlDown


View Replies!   View Related
Copying And Pasting Graphs
I have a graph, that I would like to be able to copy from one sheet and paste into another, is there away of doing this without dropping the data i.e. every time I copy and paste the graph clears, I don't want to copy the spreadsheet data as well as the graph is purely for a visual

View Replies!   View Related
Copying A Row And Pasting The Same Below It With Just Formulas
I have attached the file. The row being copied is row "X" for both buttons. I have 2 buttons in the same worksheet to copy a row and insert the copied row below it. I have this macro running for 2 different rows in the worksheet, assigned to the respective 2 buttons. See my code below.

View Replies!   View Related
Directory Looping Copying And Pasting
In my very crude code below....I would like to speed up the coding so by extracting data from some 800 CLOSED workbooks and pasting the data from Non-contiquous cells in an active workbook on one sheet. Can't seem to ge the = Excelmacro4 closed workbooks method to work so I went with opening each workbook, extracting data and then closing each workbook...way too slow.

Question 2. As the loop progresses...I would like to concatenate the text strings copied from the Source books Ranges G4 and G5 as they are pasted into a single cell in the destination workbook. Can't figure out how to either concatenate or xlpaste special in the coding.

Question 3. IF a user has a one of the workbooks OPEN, how do I copy that data as well other than On Error Resume Next?

Dim wbOpen As Workbook
Dim wbDest As Workbook
Dim WS As Worksheet
Dim i As Long
Sub GetdaData()
Application.ScreenUpdating = False
Application.EnableEvents = False

View Replies!   View Related
Sales Report- Copying And Pasting One By One
I have multiple customers in a list that I would like to create individaul tabs for each, with customer name and store #, and at the same time utilizing my sales sheet template for all customers. Is there a way to do this without copying and pasting one by one.

View Replies!   View Related
Copying And Pasting A Filtered Area
i have a huge table which i've filtered for a value in a column. my data has been reduced from 20000 to 100.

how can i copy and paste ONLY the values for those 100 rows? (4 columns and 100 rows)

everytime i do it, it copies all 20k rows!

View Replies!   View Related
Copying Row Information And Pasting Onto New Sheet
I just need a code that will copy items in a row from column A:F...

View Replies!   View Related
VBA Copying And Pasting Specific Rows
I have a main worksheet with several categories in column A. I would like to set up an IF statement VBA macro, where by if cell "A2" = XYZ, then copy entire row 2 to worksheet XYZ; if cell "A3" = ABC, then copy entire row 3 to worksheet ABC, etc.

View Replies!   View Related
Copying Certain Data From One Workbook To Another
I have a Workbook that contains some invoice data from a purchase. I would like to copy this data to a "Master" workbook that'll put everything from that particular workbook on 1 row, and put all the data from another workbook on the next free row and so on.

For example in workbook "Mock" i would like to copy all the cells that have arrows next to them into "Mock 2". Unfortunetly some of the invoices aren't similar in format so i named all the cells that i want to copy (instead of copying cell C3 i'd copy cell "type").

Some of the cells are lists and some of them have conditional formatting with colors. I tried copying the data using Range.copy but it also copied the color of the cell which isn't what i want.

And finally is there a way to generate a unique number each time a new invoice is copied in a row, and them copy that back to Mock 1 cell B2.

View Replies!   View Related
Copying Data To Another Workbook
I have made this form to basically allow the user to enter data, click the save button and all the data on screen will move to another sheet "Leads Log" and then the data on the form "Insurance form" will be cleared for next time around.

This works fine and will keep adding records onto the second sheet...but ideally i would like to data to be copied and saved to another sheet in another workbook - seperate to this one.

Suggestions on the relevant code would be great. Please find attached my system so far.

View Replies!   View Related
Copying And Pasting Soure-code Not Working
I've been trying to use the source code from one of my earlier modules pasted into a new one.

The only thing I changed was the name, and the necessary parameters.

The code doesn't run, is there some logical reason for this?

View Replies!   View Related
Error When Copying And Pasting Fields With Validation
I have created a daily operating room schedule in which each time slot has a drop down box for the Doctor doing the procedure and the Group of doctors from which he/she came.

It is a yearly schedule with each day of each month duplicated on a tab for that month - the same daily schedule for each.

I have been able to duplicate each day right up until the 25th of the month in which I attempt to save the spreadsheet and am given an error stating it can not save some of the data, though the data appears to be intact (the validation drop down lists)

Upon closing and reopening the spreadsheet, all of the cells that contain validation including and after the 25th of the month are simply gone.

I have attempted to attach a copy of the file but I keep encountering an error with the database.

Zip file with xls file has been added

View Replies!   View Related
Grouping Objects Then Copying And Pasting Onto Another Sheet
doesnt work when recording a macro because the group name changes each time I group the pictures (visios) and the picture names change depending on what is on the sheet at the time.

Is there a way to group every picture on a sheet1 (excluding macro buttons), then copy them to sheet 2?

View Replies!   View Related
Storing/Copying/Pasting MID Function Output
I am having some trouble with the "mid()" function. I have it saved as a variable which pulls 6 digits from another variable. I was trying to paste from the mid variable into my excel worksheet but it keeps on telling me that there is an object required error.

The goal is to input the "mid()" output in my code into a cell in the spreadsheet.

Here is some sample

View Replies!   View Related
Copying And Pasting Multiple Worksheets Into One Sheet
I'm writing code which will copy multiple sheets of information in a workbook (from a report) and trying to paste it onto one sheet in another document where I can further manipulate the data. Here's my code, I've made some mistakes, and I've just been banging my head against the screen try to fix it. I'm erroring at ActiveCell. Offset(1, 0).Range("A1").Select. I'm trying to paste it all in one sheet at the next blank cell in the sheet and then close the document after it's all been pasted.

Sub OpenDataSheet()
'Opens CSS Report
Workbooks.Open Filename:="C:Documents and SettingseichornjDesktopTest and Destroy est and destroy CSS.xls"
'Delete first two sheets of CSS report
Application.DisplayAlerts = False
Worksheets( Array(1, 2)).Delete
Dim mySheet As Worksheet
For Each mySheet In Worksheets
mySheet.Select
'Delete unneeded rows of CSS report

View Replies!   View Related
Retain Leading Zeros When Copying/Pasting
I have a macros which copies a column of cells to a different spreadsheet and does a few other complex tasks with the data. Some of the data are reference numbers such as 00012345 or 001 which is changed to 12345 and 1 after being copied. What macros could I use to copy this data as is without it being changed?

View Replies!   View Related
Looping Through Folder And Copying And Pasting Into New Worksheet
I am looking to loop through a folder and open every workbook in the folder. For every workbook I would like to copy a range in a worksheet named "explain" and paste values into a separate file. All in all this separate file would be a consolidation of the information from the individual workbooks.

View Replies!   View Related
Macro: Save New Workbook After Copying Sheets To It
I am moving some sheets into a new workbook and from the new workbook I want to prompt the user to save the workbook where they see fit. For some reason I cannot seem to save the new workbook only the old with the below code.

Sub Moving
Dim wb As Workbook
Set wb = ThisWorkbook
Sheets( Array("Hk", "Li", _
"SAM")).Select
Sheets("SAM").Activate
Sheets(Array("Hk", "Li", _
"SAM")).Copy
If wb.Saved = False Then
Select Case MsgBox("Do you want to save your changes?", vbYesNo Or vbExclamation Or vbDefaultButton1, "J & R Solutions")
Case vbYes
wb.Close True
Case vbNo
wb.Close False
End Select
End If

View Replies!   View Related
Copying Data From Old Workbook To New Workbook
I am trying to automate the process of filling out monthly reports and I have run into a problem I just cannot seem to work around.

These reports contain both weekly and monthly information, but because most months do not end on a friday or begin on a monday I have to have a couple of the week reports as partial weeks (e.g. April ended on a Thursday and so that week's report has both April 27-30 and May 1). When the first week of the next month's report runs I would like it to prompt the user to locate the last month's report, open the report, find week 5 of that report and copy the relevant data into the current month's report. (Hopefully that explanation is sufficient)

What I am running into is, after prompting for and opening the past month's report I am trying to select the Range A137:I232 on Sheet5 but instead the previous month's report just opens to wherever it was when it was last saved and won't select any ranges I tell it to, it just selects the range it was on last time it was saved. It will then copy that range and paste it into the Current Month's report.

below is my code ...

View Replies!   View Related
Copying Data To Other Sheets In Workbook
I have a mastersheet with all the information and I want to be able to copy it to new sheets.

The four different sheets I want are: Male-Olympic, Male-Sprint, Women-Olympic, Women-Sprint. Is there anyway to go through the sheet, copy the rows, and paste them into their proper sheet.

View Replies!   View Related
Macro - Opening, Copying And Saving Workbook To Worksheets
I have been trying to create a Macro that can do the following.

Open a Excel Workbook, Copy the Worksheets that I need (ignoring ones that are not needed.), Save them in the correct location with a new folder of date and time and saving them as csv files.

I have all the elements but can't seem to get them to gel correctly.

Just wondering if anyone has anything like this that I could adapt or edit.


View Replies!   View Related
Copying The Data From Two Notepad Files To An Workbook
I'm having problem in copying the data from 2 notepad files into a single excelsheet, i have the below macro which creates two seperate excel sheets. i want to put the data from summary1 to tab1 and summary2 to Tab2....

View Replies!   View Related
Copying And Pasting A List In Order To Print (using Check Boxes)
I have a sheet which contains a list of products. I have created a check box next to each name with the linked cell in the adjecent column. I have formatted the cell so you can see the TRUE or FLASE.

I need to be able to select different products and then when I run a macro, it places all of the selected products onto the second sheet. I just need it so it lists the products in column A with no blank rows.

Can this be done using Index/Match? Would a macro which achieves all this be possible?

View Replies!   View Related
VBA Copying Data On Closed Sheet To Open Workbook
Ive been searching this forum for simmilar topics but the info on them is all different and I cant get this to work.

All I want to do is open another workbook by

View Replies!   View Related
Copying Data Into A New Row - Macro
What I want to do is for a macro to run and for that macro to copy data and place it in a specific place. For example i want it to take the the 20 from "Village Headquarters (Level 20)". Another time when I run the script the 20 might be a 30. I there a way to do this? To define a place to take the data from within a cell.

My other question is, is there a way to have a macro automatically paste data one row down from the time it was run last?

View Replies!   View Related
Copying Data Via A Macro
I have the following macro which copies data from one spreadsheet to another spreadsheet. The 2 files are specifically named in the database so they must have those specific file names in order for the macro to work.

Is there a way to set up this macro so that it automatically copies the data in the file that is active at the time (File1 in the attached code) to File2? File2 will always be the same file name, so that part of the macro is fine as it is. The active spreadsheet will always be the same format (so the Source Cells will work) but it may have a different file name each time.

View Replies!   View Related
Copying Data Macro
I am creating an order form and after a user makes an order I want the data the be copied accross to another table (on the same sheet) - like an archive. I would like to create a macro that does the function. However, what I have thought of it that if I record a macro that cuts and pastes e.g. cells A2 and B2 to cells H2 and I2, the first time an order comes through it will be fine however, if the macro is run again it will keep over-writing the existing data in the archive section.

So, is it possible to construct a macro that will copy accross the data but each time it is run won't over-write what is in the cells. Like using an IF statement in the macro (if cells H2 contains data, then move to next avalible cell).

View Replies!   View Related
Copying Data In Macro
I wrote the following code for sorting data in a column. but can't choose first 5% of the whole column and paste it in a separate sheet.

View Replies!   View Related
Macro For Copying Data Into A New Cell Each Day
12/23/20081/2/20091/5/20091/6/20091/7/2009Stores TotalTMX TotalTotal TMX Expedite

I'm trying to create some code that will do this:
On Day1- Copy info from a different worksheet in the 3 cells for 12/23 (column B)
On Day2 - Copy info from the worksheet in the 3 cells for 1/2 (col C) without deleting the info in Column B from the previous day, etc....

I can't figure out how to get it to paste into a different column each day. It will be continuously moving one column to the right each day.


View Replies!   View Related
Copying Data To Next Empty Row In A Macro
I am trying to do is copy two ranges of data from one sheet and past the values to one other sheet. The trick is not having the data overwrite each time the macro is run (I need the data to be pasted to the next blank row). Also, as there are two ranges of data to be copied, I need to define which rows the paste is to start at e.g. copy data from sheet 1, Range("B8:M8") and paste to the next blank row on sheet 2 starting a cell "A3" AND copy data from sheet 1, Range("B9:M9") and paste to the next blank row on sheet 2 starting a cell "A20".

I've managed to get this far (see below) by pasting the data into two separate sheets but cannot work out how to modify the macro so the data can be pasted into a single sheet with conditions outlined above.

-----------------------------------------------------------------------
Sub Stats()

Application.ScreenUpdating = False

Dim NextRow As Range
Set NextRow = Sheets("Past Stats Mar to Aug 2010").Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0)
Sheets("Current Stats Mar 10 to Aug 10").Range("B8:M8").Copy
NextRow.PasteSpecial (xlValues)

Dim NextRow2 As Range
Set NextRow2 = Sheets("Past Stats Mar to Aug 2010").Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0)
Sheets("Current Stats Mar 10 to Aug 10").Range("B9:M9").Copy
NextRow2.PasteSpecial (xlValues)

Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
-----------------------------------------------------------------------

View Replies!   View Related
Macro - Copying Data From One Worksheet To Another
I want to write an excel macro for copying the data from one excel sheet to another. The data should be copied as:

- It should sort the data on column E.
- Then it should sort the data on the column N.
- Copy the resulting rows in the ‘Result’ worksheet.

View Replies!   View Related
Pasting Entire Row Into A Different Workbook
I'm running a code to copy rows from one workbook and paste into another...Code runs but doesn't paste anything into the workbook.

Sub Macro2()

Workbooks.Open Filename:="J:BestExIncMikey_copy.xls", UpdateLinks:=3, ReadOnly:=False
Dim c As Range
Dim rng As Range
Dim ws As Worksheet
Dim Row As Integer
Dim LstRow As Integer
Dim i As Variant

For Each ws In Worksheets
Select Case ws.Name
Case "Total Locked Pipeline"
Range("I2").Select
Selection.End(xlDown).Select...........


View Replies!   View Related
Copying And Pasting Cells From A Worksheet Into A List Format In Another Worksheet
I need help with a macro for copying and pasting of cells. I believe this should not be a problem for the Excel VBA experts, but for someone who can only record macro, I'm really at a loss.

Attached is a sample file, where sheet 'Source' is an example of the sheet from which data are to be copied. The other sheet, sheet 'Final' is an example of the final format that I need. The reason I'm doing this is I'm planning to upload my data into Access and so I need to convert them into a list format.

List of target columns in sheet 'Final' and source cells in sheet 'Source':

Column A: Biz ID - not sure if I really need this, by right it should be listed automatically once I paste the data
Column B: B2 of 'Source'
Column C: B2 of 'Source'
Column D: B1 of 'Source'
Column E: row 6, relevant column
column F: column K
column G: row 5, relevant column
column H: the specific amount

So basically I'm creating an entry for every amount in the table.

View Replies!   View Related
Macro For Copying And Duplicating Data Based On A Cell Values.
I am trying to copy two cells from one worksheet to another in the same work book based on the value in Column B of one of the sheets. This is just a building block to a larger script I am going to create.

Below is my attempt but I keep getting an error at Range(Cells(x, 3)).Select.

View Replies!   View Related
Run-time Error '1004' :: Copying Data From Other Sheets By Macro
I've been trying to use the below code,


Sub combine()
'This will copy data from all sheets of the selected workbooks
'To a sheet named 'Data' in the sheet in which the macro is run from

Dim pasterow As String

mainsheetname = ActiveWorkbook.Name

MsgBox ("Please select spreadsheets to combine")
filestoopen = Application.GetOpenFilename(MultiSelect:=True)...

View Replies!   View Related
Copying Part Of A Cell And Pasting It To The Cell Next To It
I have just generated a report of current customer numbers for our company. Unfortunately it reports it as "162 (162)". No idea why the program does it like that because it now makes using VLOOKUP very difficult.

What I want to do is copy the "162" part of the cell and paste it into the adjacent cell to make it easier to manipulate the worksheet. All of the customer numbers are in column D if that makes a difference.


View Replies!   View Related
Improve Coding For Copying Existing Workbook To New Workbook
i came up with this..

Sub Copy_To_New_Workbook()

Application. ScreenUpdating = False

Dim strFileName As String
strFileName = Application. GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls", Title:="Please select the excel file to be copied")

View Replies!   View Related
Copying Print Range From One Workbook To Another Workbook.
I have created a macro that copys pivot table from one Workbook to new workbook. Problems I am encountering are print selecting from source workbook are not copied to new workbook.

Dim AmountofColumns As Long, AmountofRows As Long
Dim ColumnCount As Long, RowCount As Long
Dim ThisWorkbookName As String, ActiveWorkbookName As String, ActiveSheetName As String
Public Sub CreateGroups()
Application. ScreenUpdating = False
Sheets("Preferences").Select
ThisWorkbookName = ActiveWorkbook. Name
AmountofColumns = Range("A1").End(xlToRight).Column

For ColumnCount = 2 To AmountofColumns......................

View Replies!   View Related
Macro Not Pasting
I am trying to use the code below to select certain information from different areas of each sheet in the workbook and paste it onto the List sheet one after the other so I end up with a long list made up of short lists off each sheet. The macro runs through each sheet OK. each sheet has the correct area I want to copy highlighted, so I know it's selecting the right area for copying, but the 'List' sheet is blank, i.e. nothing has been copied to it.

This macro is one I'm trying to put together from other macros I already have, and they all work

Sub Generate_Repair_Kit_List()
For Each ws In Sheets
ws.Activate
Const testColumn = "A" ' change for your data
Dim lastRow As Long
Dim topCell As Range
Set topCell = Range(testColumn & 1) ' top of column
lastRow = Range(testColumn & Rows.Count).End(xlUp).Row
'work up from the bottom until we hit
'a cell that has a border on the bottom edge.
Do While lastRow > 1
lastRow = lastRow - 1.........


View Replies!   View Related
Copying A Cell Value In One Workbook To Another Workbook
I am trying to set up a template for my MD to use to calculate budgets and have so far encountered a number of problems most of which i have overcome thanks to help from this forum.

What i am trying to do is have a 'Selection sheet' which contains a number of drop down boxes from which the user can choose several different options.

Based on what they have choosen on this sheet a second sheet 'initial budget' is populated.

What i am trying to do is a formula similar to the following. but i can't seem to get it to work.

View Replies!   View Related
Auto Pasting Using Macro
I have a sheet pasted below for reference. I am trying to make a macro that when I type the word "Completed" into "Sheet1" row N then in this sheet pasted (ProductionList) below the corresponding row gets deleted. I hate explaining this stuff. I'm so bad at it.

******** ******************** ************************************************************************>Microsoft Excel - Unique Print Schedule.xls___Running: 11.0 : OS = Windows XP (F)ile (E)dit (V)iew (I)nsert (O)ptions (T)ools (D)ata (W)indow (H)elp (A)boutA9B9C9D9E9A10B10C10D10E10A11B11C11D11E11A12B12C12D12E12A13B13C13D13E13A14B14C14D14E14A15B15C15D15E15A16B16C16D16E16A17B17C17D17E17A18B18C18D18E18A19B19C19D19E19A20B20C20D20E20A21B21C21D21E21A22B22C22D22E22A23B23C23D23E23A24B24C24D24E24A25B25C25D25E25A26B26C26D26E26=
ABCDEF1*2345678Job*NameTowelQuanitityDate*Due:HandlingPress9GCHS*Tigres1525-23-BKHL759/14/2007Ship*From*Team*Spirit*TowelsB10Crunk*Energy1518-125*WHHC50009/18/2007NoneDONE11Atlanta*Falcons1518-15WHHL500069/18/20076*Post*Pro*To*DonB12Sunstreet*Mortgage1626-30*WHDC3029/18/2007Hook*&*GrommetR13McDonalds*Hacer*Golf*Outing1626-30*WHDC3049/18/2007Hook*&*GrommetR14Arizona*Cardinals1218-13*WHFI670069/20/20076*post*Pro*To*DonR15Michigan*Go*Blue1118-12PMS10910169/20/200710*towels*to*Greg*Cannon*6*to*DonR16Golf*Etc.1626-30WHDC1549/24/2007Hook*&*Grommet.**4*samples*to*sendB17Buffalo*Bills*"Billieve1118-12WHHR600369/26/200736*post*pro*to*Donny*DonB18Wreck*Em*Tech1518-125*WHHC100510/1/2007NoneR19Go*Hogs1518-125*WHHC100510/1/2007NoneR20U*Conn*Huskies1518-125*WHHC100510/3/2007NoneR21Go*Bulldogs1518-125*WHHC150510/3/2007NoneR22Chargers??6800010/8/20070R23Kansas*University*Homecoming1118-13RYFC2501810/30/2007Strike*to*Corey*&*VernR24Go*Aggies1518-125*WHHC50511/1/2007Drop*ShipsR25St.*Paul*USBC1118-16*COLORS1512FlexibleRDDC,*HUDC,*RYDCB26Fire*Antz1118-12WHHR2000PENDINGNoneBProduction List*
[HtmlMaker 2.42] To see the formula in the cells just click on the cells hyperlink or click the Name box
PLEASE DO NOT QUOTE THIS TABLE IMAGE ON SAME PAGE! OTHEWISE, ERROR OF JavaScript OCCUR.

View Replies!   View Related
Copyright © 2005-08 www.BigResource.com, All rights reserved