I have a spreadsheet called "temp.xls" that will change file name often.
This "temp.xls" has text that needs to be copyed to a new spreadsheet named "punchlist.xls" that does not change names. I know how to acheive this using record macro but I need the text to find the next row in the punchlist.xls file. Do all the macros run on the 1st file or do both files need macros?
I am wanting to have certain cells of data from one worksheet appear on another worksheet once the cells on the first sheet have data entered in them.
I find that I can do a simple formula to copy the cell but I want the cell to remain blank until data is added in the first sheet (it will be a mix of text and numerical entries).
1. I have a list of data (Collated Data)
2. For every row in collated data I want to export the cells into a corresponding cell in my predetermined workbook (TAF Form), i.e, Cell C1 on Collated data goes into Cell D3 on TAF Form, cell D1 to cell I3 etc etc
3. Once all cells in one row have been copied into the TAF Form I want that TAF Form to save as "TAF Form & Employee Name" (which would come from cell D3).
4. I then want "TAF Form & Employee Name" to close.
5. I then want the Macro to do the same thing for Row 2, copy the cells, save the form, close the form
6. I want to do this for every row that I have (which varies).
Is this possible? If you have any more questions in terms of what I need, don't hesitate to ask.
I have 2 worksheets, let's call them "Sheet1" and "sheet2".
Sheet 1 has 2 columns (A, and B)
Ie. "Sheet1:"
Col A, Col B
Red
Green Yes
Blue
Yellow
Orange Yes
For each entry in Column "B" that has a "Yes" value, I need to copy the color value in column "A" into the next available empty cell in "Sheet2" in column A.
"Sheet2"
Col A, Col B
Red 3
Blue 5
Yellow 6
Final Result:
Col A, Col B
Red 3
Blue 5
Yellow 6
Green
Orange
how to do this particular challenge? For Sheet2, I think I'll need a function to determine the first available blank cell in column A.
I have Column A and Column B. Every row in column A is populated, but only some of the rows in column B are populated. I need a formula that copies column A if B is blank. (i.e. If B6 is blank, copy A6). Thoughts?
View 6 Replies View RelatedI want to copy a changing value from a cell (A3) to the next blank cell in the column creating a list of numbers for a total.
View 3 Replies View RelatedI need some VBA code that will allow me to copy the prior columns cell value into the current row if the cell is blank. More specifically if there is a blank cell in column D, then copy the adjacent value in column C to the cell. Hope this makes sence. I've attached a sample spreadsheet that shows my desired output.
View 3 Replies View Relatedusing a formula to copy a cell A1. if A1 is blank, i need forumula result in blank instead 0...is it possible..
View 9 Replies View RelatedIs it possible to copy a Cell Name from one workbook to another
I have defined different cells different names. Trying to copy this only gives me values and format of the cell, but not names.
Is there a way to copy the names of cells and ranges to another workbook?
I would like a macro that copys the contents of a cell and pastes it into the column before it and continues to copy that same number downward as long as the cell next to it contains numbers. So: ....
View 9 Replies View RelatedI have another query that I believe can only be solved using VBA.
In a row of input data, some cells are duplicated from previous cells in the same row but in some instances, the user needs to be able to input different information.
e.g. M4=F4 if left blank and the same would apply to columns N=G, O=H, P=I & Q=J.
I have done some searching but nothing quite matches my requirements and recording a macro only produces the following result.
I am using this code to copy a cell to a blank cell below. It works great but I just need to format it to "White Font". I have tried using "colorIndex = 2" but I am not able to do it.
Dim vData() As Variant, i As Long
With Intersect(Columns("B"), ActiveSheet.UsedRange)
vData = .Value
For i = 2 To UBound(vData, 1)
If Len(vData(i, 1)) = 0 Then _
vData(i, 1) = vData(i - 1, 1)
Next
.Value = vData
End With
I am trying to create a macro that copies cells B2 and C6 from the active worksheet in a workbook called "transfer". Then searches for the first empty cell in a worksheet called "summary" in a workbook called "report" and pastes the value from B2 in the first empty cell in column D and the value from C6 in the first empty call in column E.
View 4 Replies View Relatedi am pretty good with VBA after reading a lot of information on the internet but i have a problem i cannot solve:
I have two workbooks with the same sheet names and I am trying to transfer the interior colour of cells from one workbook to the other...
this is the code i came up so far but it doesn't work
With Application.Workbooks(WB1).Worksheets
For Each ws In Application.Workbooks(WB2).Worksheets
On Error Resume Next
For Each cl In ws.UsedRange
WB1.ws.cl.Interior.ColorIndex = WB2.ws.cl.Interior.ColorIndex
Next cl
Next ws
End With
I have an Excel 2010 spreadsheet consisting of many worksheets (20 or so). Each of these worksheets contain detail level data regarding different projects. One of the columns in these worksheets is the 'Status' column (column F). There is conditional formatting on this column where if the text is 'G' then change background to a green color, 'Y'=yellow, 'R'=Red and 'U'=Grey.
The first worksheet is a summary sheet that I would like to pull information from each of the detail worksheet's columns B, D, E, G and H if the status column (Column F) is 'R' or 'Y'.
The number of rows in the detail worksheet can change each week (as few as 0 and as many as 100)
I have the following code in another workbook that is used to populate a cell on the same sheet based on input to cells in column 'A'.
Is it possible to modify this for the attached workbook to select a cell with data (numbers) on the Input Data sheet in column 'E', add text to the beginning, ('CG' in this case), and paste the result to the Import Template in the corresponding cell of column 'A'? I currently have a formula copied to dozens of cells in 'A' but since the number of rows for the Input Template is variable, there are usually cells in 'A' that contain CG but no corresponding data in the rest of the row.
Sub simplecopypaste()
Workbooks.Open Filename:="G:DATAWork for JCdata source.xls"
Range("B2:E2").Select
Selection.Copy
Windows("Data Destination.xls").Activate
Sheets("Sheet1").Select
Range("A2").Select
ActiveSheet.Paste
End Sub
This should open my file, find the relevant data and copy it to the worksheet that contains the macro. At present I can have it paste to the first cell however in future the first cell will have data and as such i need it to paste to the first blank cell in column A. any ideas on how to do this, do i need to get excel to scan from the bottom cell up until it finds a cell with data then paste below it? if so how do i do that.
Need to copy the value from I2 to O2 if K2 is not blank. After that, L2 and P2 must be deducted from O2 (without affecting I2).
View 4 Replies View RelatedI need to copy a cell content to a Comment into another worksheet in
the same cell ref.
sheet1
A1 = apple
A2 = orange
Sheet2 - target
A1 = comment (apple)
A2 = comment (orange)
i have a group of workbooks all housed in the same folder 'ro24_ws' - who's path is -
C:UsersdavezDocumentseq
o24_ws
what i am looking for is some code to copy a worksheet named 'ro24' from each workbook within this folder into a single workbook
I've the following inherited macro which basically opens a CSV text file and copies the contents to another workbook + other things.
Sub GetFile()
' GetFile Macro
Dim ws As Worksheet
Sheets("Menu").Select
' Set Path and Filename and Import
PathName = Range("E4").Value
Filename = Range("E5").Value
ControlFile = ActiveWorkbook.Name
Workbooks.Open Filename:=PathName & Filename
' Setup Temp worksheet
TabNameTemp = "Temp"
' TabName = Range("A2").Value
TabName = "CSV File"....................
with the error: "Run-time error '1004':. Excel cannot insert the sheets into the destination workbook, because it contains fewer rows and columns than the source workbook. To move or copy the data to the destination workbook, you can selct the data, and then use the Copy and Paste commands to insert it into the sheets of another workbook." Nothing has changed in the CSV file or the Workbook with the macros.
I tried all failed.We have about 160 different workbooks (one for each business unit) stored online. Staff enters information about their weekly revenue and expenses and here at head office I collect that information and consolidate them.What I am trying to do is that;1.) Create a master Workbook with ~160 worksheets (One worksheet for each unit) named exactly the same with other workbooks2.) And macro can pull the information from related files stored in a certain folderIt is very much like another members problem but I am not sure why I cant get that code working for me? [URL]
View 5 Replies View RelatedIn a column, there are data, but in between of each data in a column, there are many blank cells. I would like to do a copy and paste of the first data, and paste it in the same column column, while the cells are blank, and stops when there is a cell with a data, which is different than the previous one, and do the same again and again.
View 4 Replies View RelatedI am looking for a macro that will open a file called File1.xls highlight only the cells in columns A:B that have content, then toggle back to another file called File2.xls, scan columns A:B, find the next blank cells within A:B and paste.
Here is a sample of what i am looking for:
Macro to scan File1.xls and find & copy only cells in columns A:B that are not blank.
File1.xls
_|__A_ |__B_|
1|_text|_text| (Copy)
2|_text|_text| (Copy)
3|_text|_text| (Copy)
4|_text|_text| (Copy)
5|blank|blank| (DO NOT Copy)
Toggle to File2.xls, scan columns A:B, paste content copied cells from File1.xls in next blank cells in columns A:B of File2.xls.
File2.xls
_|__A_ |__B_|
1|_text|_text| (Pre-existing text)
2|_text|_text| (Pre-existing text)
3|blank|blank| (Paste Row1 from File1.xls)
4|blank|blank| (Paste Row2 from File1.xls)
5|blank|blank| (Paste Row3 from File1.xls)
6|blank|blank| (Paste Row4 from File1.xls)
I have a Worksheet that is manually populated with file names into the 2nd cell of each column for columns A through D.
I need a macro that will loop through each column, starting at B2, c2 etc, and copy each value, and then paste it into the first available blank cell in column E
Before
YesterdayToday10108595101085661010859510110182
After
ALL10108595101085661010859510110182
Ive tried a few combinations of code, but nothing seems to be working.
It's finals week and I need to figure out this last VBA problem for my excel class. (Yes, we are allowed any outside help.)
The code below is something I tried to develope to do the following:
1. Search "N" column for blank cell
2. If cell not blank then select
3. Copy select cell information 3 cells to the left
4. Continue function to next row
I cannot figure out two things with this code. I need the code to copy/paste the information in the cell versus equalling values. Sometimes there is a small .jpg or .gif file inserted into the cell, so copy/paste is desired. Second is I need the function to not copy formulas if possible. I cannot figure either of things commands out. Hoping message boards can help me as they always have in the past.
Code: .....
The attached picture shows the problem. I want to automatically fill the blank cells in column A with the value immediatey above them. I want to do the same for column B and C. I have never worked with VB except to copy key strokes.
View 3 Replies View RelatedI have to report on 6 departments each with 6 sub departments weekly. First I need to consolidate 6 ( move/copy worksheet to consolidated workbook using a macro) separate worksheets (all saved in the same folder) per department into single workbook (preferably generated automatically by macro/code). I then need to repeat the above process for another 6 files per sub department. The output files should be pasted as "values" while retaining all other formatting. In essence I need to automate the whole right click on tab, select move or copy worksheet function in excel to take the load out of doing it manually.
View 2 Replies View RelatedI have a workbook with 12 sheets. On the 12th sheet I need some VB to go to each of the other tabs and find the letter “E” or “H” in column F. Once the “E” or “H” is found in column F and a number =>9 is found in column E then copy that row from column A-F and paste this row to sheet 12.
On sheet 12, I would like to be able to paste the row in a way that will hold the date in column A. The date can also be copied from each sheet found in cell E1. Also, the tab name has to be copied to sheet 12 with the row the E or H was found if “=>9 criteria” was met.
If cells in column J are not blank, values in column K must be copied from column I.
If not, i.e. cells in column J are blank, values in column K must be copied from column I + the fixed value in cell $C$2.
Can't get "if" nor "notblank" formula working.
