I'd like to have done is to have a blank column inserted between columns W and X(these values change so the VBA statement should reference the end of the columns) and the values that are now in column Y(April 17th values) pasted as values into the now empty column X. I would like to do this for tabs Ann-Sheet 2. I'm having a bit of trouble with setting up the loop that would go through the desired sheets.
View 4 RepliesI have a workbook that usually looks something like this
Category Product No description Price
Balloons 12345 Red Disney balloon .50
Balloons 12567 Blue Princess balloon .86
Balloons 76521 Angry Birds Balloon .80
Kites 23456 A Big red Kite .27
Kites 22222 A small blue kite .06
Banners 10000 Party banner .33
etc..
I need to find a way to copy the category below an empty row from column A and paste it in the blank row in column B . If possible to bolden the text but I could probably work that bit out myself. I'm new to this but have used VBA before to run macros.
So I have two cells D15 and C15.
I simple want to copy there values (There paste links)
And paste them into the next blank row between D/E17/ and D/E26.
I'm trying to copy the non blank cells in an area ("B120:K239"). and special paste (values only) to the next blank row of the actual work area (3 pages) within the worksheet. The area that this needs to paste to is between("B10:K29, B44:K63, B78:K97"). Problem is that if there are more rows to be copied and pasted then there are open rows on the first sheet it gives an error due to the rows outside those areas having different formats (merged cells and that)
Question: Is there anyway to special paste between ranges? I've tried to hide the inbetween rows and that still doesn't work. Could it be possible to add something to this code to ignore hidden rows or to only paste to visible rows?
Sub Special_Paste ()
Application. ScreenUpdating = False
With Range("B119")
. AutoFilter Field:=2, Criteria1:="<>"
With Range("B120:K239")
Application.CutCopyMode = False
.Copy
With Range("30:43")
.EntireRow.Hidden = True
With Range("64:77")
.EntireRow.Hidden = True
Dim NextRow As Range
Set NextRow = Range("B97").End(xlUp).Offset(1, 0)...............
Sheet linked from external file, new data coming daily. How to copy Values of cells from B4 till B-empty to C column? The attached file has a properly displayed data.
View 3 Replies View RelatedI have a template with data only in column B, with fields going down the rows. I'd like to copy B2, B4, B6...B24 to the next blank row (so the values need to be transposed to a row vs. column) in a Consolidated Workbook. Here's what I have so far:
NextRow = Worksheets("Sheet2"). Range("A1000").End(xlUp).Row + 1
For a = 2 To 24 Step 2
Worksheets("sheet2").Cells(NextRow, a / 2) = Cells(a, 2)
Next a
Except that the formula above pastes the first value in column B of sheet2, any ideas on how to get it into column A? Worksheets("sheet2").Cells(NextRow, (a / 2)-1) = Cells(a, 2) gives an error. Also, instead of sheet2 in the same workbook, I need to paste the data into sheet2 of a different workboook (i.e. Main, located in My Documents.)
In sheet "diary" I have data in certain rows in column A8:C10000 that contains values if a certain condition is met. I need a vba to copy and past only non blank cells in column D8:F10000. I first wrote a formula with index but it takes too long to caculate.
View 9 Replies View RelatedI have another little VBA macro problem that appears to be beyond my coding knowledge.
I have attached a small excel spreadsheet, with a macro recorded (CTRL-P) of what I'm trying to accomplish. Basically, If the data in column A matches a single entry in column F, I need to copy and insert the row (columns F-L) that matches.
I got 3 columns of cell values as follows:
Demo 1
COL A COL B COL C COL D
_ 12 14 16
_ 32 12 18
_ EA LW RA
Demo 2
COL A COL B COL C COL D
12 12 14 16
32 32 12 18
EA EA LW RA
14
12
LW
16
18
RA
Can data of the 3 columns be copies (by vba code) to the blank col A in the exact sequence as shown in Demo 2?
getting a vba formula to copy values from two columns and paste it in 3rd column on the click of a button.
For example:
if I have 3 rows filled in column A and 5 rows filled in column B then i need a formula to copy 3 rows in A and 5 rows in B and paste it to column C. so column C will have 8 rows now.
The number of rows the value can be entered can vary. [ example: sometimes we may have 6 rows filled in A 2 rows in B ]
I know it's very simple; I'm obviously a beginner. What I would like to do is to have an input box prompt me and then take these values and paste them into columns. One value for each column. Ideally what I would like to have happen is for the values input into the inputbox to be pasted to specific cells. I have attached an image for reference. The beginning of the range B10 and C10 will be fixed but the ending cell range B14 and C14 will be variable based on the number of entries; essentially one less than the total number of forms on row 15.
View 11 Replies View RelatedI would like to copy and paste the values from a worksheet (HS-Detail) in a file to different tabs depending on the value in column A (Regions). I have a macro that works but it pastes the formulas and it takes quiet a while to run due to the number of records. How can I alter this to paste just the values and speed up the macro?
[Code] ......
1. For a file moving from one cell to the next, down the column, get the values and seach for the values in file number two.
2. If that value is found, copy a cell from file 1 to a cell of a column on the same row where the value was found on.
3. Do what was done on number two, but with a different column.
this is what i have so far...
Sub replace()
'
' Macro2 created by david
'
' for the entire sheet, moving from one cell to the next down the column, changing rows
' search for the contents in another sheet, and then if that is found,
' copy the row number to a variable, and then
' copy column K from sheet 1 to column N of sheet 2, using the same variable above
' after that same, but L goes to P.
'
'
Windows("file1.xls").Activate
Rng = Selection.Rows.Count
Dim toFind As String
ActiveCell.Offset(0, 0).Select
Application. ScreenUpdating = False
Dim i As Integer
For i = 1 To Rng
Windows("file1.xls").Activate
toFind = Range("A + i")
Windows("file2.xls").Activate
Please see attached sample worksheet. Column A will be generated by the user manually.
I'm looking for a way in VBA to have A1:D20 in Sheet2 copied and pasted in the "Bank Reconciliation" Sheet based on how many "Markets" there are in Column A. Then, once that's complete to have A22:D30 (the smaller box in Sheet2) copied and pasted directly below those results.
I have what the macro would hopefully generate to the right in "Bank Reconciliation" (B6:E54) as an example. So if there's a market in A1, copy and paste the box to B6. If there's a market in A2, copy and paste the box directly below the first (B26) etc. etc. until it's done, then paste the smaller box directly below whatever the macro generates.
Book2.xlsx
I'm stuck on the final piece of my macro project. I've attached a workbook with two sheets: sheet 1 is what I currently have, and sheet 2 is what I'd like my report to look like when complete.
On Sheet 1:
- column B is called Supervisor Name
- Columns D-O are months of the year, with either a Yes or No in each cell.
I'd like to write a macro that will:
- Take all unique values in Supervisor Name column, and paste these Above the current table.
- For each Supervisor, and each month, I'd like it to calculate, as a %, the number of Yes mentions in each month divided by the total cells (Yes/(Yes+No)).
Sheet 2 contains the output, in the format I'd like to see it.
Sheet 2:
Supervisor Name
October
November
December
Supervisor 1
8.3%
[Code] .......
I have mananged to find and tweak the following code in order to serve my copy / paste to master sheet requirements.
At the bottom of the code I have added a delete rows based on column contents routine although I'm not sure if it is actually the right one to use.
I have included it in the same module in order to tidy up the whole process and have it all operate under one click.
As stated on the sheet in this exmple, The paste could consist of any number of sheets although the range is always the same on each sheet. (only amounting to around 20 rows that we are dealing with so no reams of data with odd empty rows that would take an age to find otherwise).
The data can look like it does on Sheet 2 here and also could look like it does on sheet 3. (this data is coming from a sales rep's order sheet)
From the routine in module 1, I just don't know where an "add an empty row" or delete all empty rows bar 1" code would need to be inserted in order to keep the process going until all sheets are copied.
I'm aware that with the delete code at the bottom, the whole copy process is completing before the delete process then does it's bit so think I'm on the right track in thinking that the delete all empty rows but leave one" requirements needs to be further up the code but I just don't how to get the result I need or where that code should break into the routine.
The only other way I can think to acheive the result is to allow the range to increase by 1 row on the form but somehow make sure that the last row in the range contains a character in column B to "trick/force" the delete routine to leave that row in. That would be do-able but the trouble is, how do you get a value into a cell that the delete proces would treat as data but not be visible so keeping my spacer line tidy? I've tried just putting a space in the last row of the range in column B but the row still gets deleted.
What I'd like to do is; If column C contains data then insert a blank column and shift column C to the right.
View 4 Replies View RelatedI want my macro to consider the # of rows of data on a spreadsheet and insert values into columns for those rows but then stop when it hits a blank one. For simplified example below, I have 3 columns in my spreadsheet. Row 1 has headers of Location, Status, and Effective Date. The first 5 rows of data under the headers have a value in the Location column (San Jose, Oakland, etc). When I run the macro, I want it to insert a value of "ACTIVE" in the Status column for each row that has a value in the Location column. Also, a single Effective Date value is stored in a cell elsewere in the spreadsheet, and I want the macro to insert that value in the Effective Date column for each row that has a value in the Location column. When it hits a blank row - row 7 in this spreadsheet - I want it to stop.
Location| Status | Effective Date
San Jose
Oakland
Austin
Houston
Phoenix
I currently am using an IF statement in the Status column fields to say if Location = blank, then blank, else "ACTIVE". That works, except that the # of rows populated in Location column could be 5 or 1,000, and inserting the formula that many times seems to quickly increase the file size.
I'm working on this macro that copies data on sheet1 from A2:AI2 till the last non-blank row in the same range i.e. A:AI and paste it on sheet2 in the first blank row. However, my code keeps picking up A1:AI1 from sheet1 as well and pastes it on sheet2 just before the data that I actually want to paste. Here's my code:
[Code] .....
Looking for a code to do the following:
If rows 1 through 20 are unlocked and rows 21 to end are Locked
I want to use a Command Button to automatically
> Insert a new row (after row 20 and not before)
> Copy row 20 (which is already formatted)
> Paste row 20 onto the newly inserted row with all formats
After importing a data set into the worksheet entitled "SPACE", I am trying to find the column entitled "Variability Cpu" and then for every cell in that column that has a value in it, I would like to insert a new row beneath that cell. I thought my code made sense, but I get the "Run-time error '424': Object required" error on the line in red below so apparently I'm missing something. why I'm getting this error (doesn't the object variable shtS refer to the worksheet object "SPACE"? Why is it saying object required?). Here's what I've got so far:
[Code] .....
Attached is my code, pay attention to the bold part. I want the sourceSheet to be copied as a sheet and pasted in the targetSheet (the Sheet2 of "NewBook") but I want it pasted asvalues. Here is the specific part which needs to be looked at...and below is the full code.
VB:
Set sourceBook = Application.Workbooks.Open(sourceFilename)
Set sourceSheet = sourceBook.Sheets("Current")
Set targetSheet = NewBook.Sheets("Sheet2")
[Code].....
I'm looking for a way to write a macro to insert 5 lines at the end of the data in column A. Then I want to copy a range into the newly inserted lines. I would press a button anytime I need this to occur.
Current last line of data A39
Need to insert 5 rows after A39
Then copy range BA30:CB34 into the newly inserted rows.
writing a code where i can copy a worksheet (Sheet1), insert a new worksheet at the END (as the last worksheet), and paste to that new worksheet (which will have a different name each time a new one is added). I am using the code below, but it adds a worksheet after Sheet1 instead of at the end, and it also adds another weird worksheet that says "Dim Worksheet" in one cell, and "Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)" in another. This is not in the VBA window, it is just text in a cell in another inserted worksheet. I only want one worksheet added at the end that I can paste too (knowing that the inserted sheets will always have new names).
Code:
Sub CreatePercentageSheet()
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Paste
End Sub
I am trying to come up with a code that will copy column A entirely, and insert the copied cells into the first blank column. In the columns with information in them, there will always be text in the first cell, so that can be used as the test to find the first blank column, but I'm not sure how to get this done for my macro.
View 12 Replies View RelatedI am doing a lookup, populating a column (which works although slowly) then (in this part) doing a search on the header row.. If the heading contains the word "Category", I wish to insert a blank column next to (the column containing the heading), colour it yellow then look for the next heading and repeat if found.
It appears to clear my first row so I must have my columns referred incorrectly as rows
Dim FWord As String
Dim i As Integer
Dim lCol As Long
Dim MyString As String
.
.
FWord = "Category"
lCol = Range("A1").End(xlToRight).Column
For i = 1 To lCol
Cells(1, i).Value = MyString '
I have a spreadsheet containing hours logged against a specific project, all of which have a 'Week Beginning' date.
I would like a macro to insert two rows above a change of date (in the D column). How best should this be done?
It's basically a formatting macro I'm after, to group records by 'Week Beginning' date.
I've spotted a few similar requests, but none of them appeared to include the function to check for a change in date, from the cell above.
In 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 Relatedway to copy and paste a formula into every other blank row?
The formula will be staying in the same columns the whole way down the sheet. Eg: A1, A2, A3 ..... ETC
I 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)