I have been trying to crack this all afternoon to no avail - I've read every thread on it and not been able to customise the macros to work! In fact - i've never written a macro before!
If cells in Colomn E on Sheet '2014 Events' contain the text "Park" - Copy the Row to Sheet 'Park Events'.
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.
Monthly, I get a CVV of data with associated statistics. I'm generally only interested in rows with the first cell (A) containing specific words.
The cells (column A) are those such as below:
make a webpage free create web page free make a website with yellow pages how to create web page
So, if I wanted to take copy the rows where the cell contains the text 'create web page'. I want it to take 'create web page free' and 'how to create web page' and the cells in their respective row.
I would like these rows to be copied into a new sheet.
I have this code on my sheet1:
VB:
Private Sub Worksheet_change(ByVal Target As Range) Dim KeyCells As Range
Set KeyCells = Range("K:K")
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
If ActiveCell.Value = ActiveCell.Offset(0, -6).Value Then
ActiveCell.Offset(0, 1).Value = ((ActiveCell.Offset(0, -4).Value) * (ActiveCell.Offset(0, -5).Value)
End If
End Sub
Now I would like to add another code: When I will change value in actual cell (sheet1) then copy value from cell A1 (sheet1) to the first free cell in column A (sheet2). I still have problem with error that I am out of range if I tried to copy it to sheet2.
I'm creating a workbook to keep track of my utilities payments, one sheet for one utility and so on. I like to copy two cells from each sheet to another one to keep me updated of the amount to pay and the date. an example: column A with text, if text "NEXT" appear in column A, copy the value of two cells (at columns B & C) at the right of "NEXT" to another worksheet, if that possible? Below is a photo as an example:
excel.jpg
I would like to create macro, where it would on macro run copy text from active cell and find that value in another sheet (in column H) and select that cell.
What I did is this:
I want to do a loop where you can copy say A3 worksheet 1 then add another sheet naming the work sheet "A3" then copying A3 worksheet 1 to A1 "A3". After that looping to A4 to a new work sheet naming the work sheet "A4"copying the value to A1 "A4", etc...
Is there a simply way of doing this loop? I can probably fit my other coding into the structure.
I am looking to copy the columns containing firstly H and then A from this sheet (sheet 1) to sheet 2. At the moment the H and A run in sequence, sometimes 2 or 3 times in a row but I want them to appear seperatly in sheet 2 so that I have all of the H's together in a sequence and all of the A's together in a sequence further down the sheet. I haven't used macros since school and don't have the first idea where to start. Do I need macros or is there a simple formula I can input? The data I am looking to copy is below with the letters in question 3 rows down.
Week 22
Week 21
Week 20
[Code].....
I am not familiar with using VBA and believe this could solve my problem, I would be glad of any assistance.
I am trying to copy text from sheet 1 of my workbook onto sheet two of my workbook, whilst consolidating into a nice neat list omitting any blank cells.
The text appears on multiple tables each table has 10 rows throughout worksheet 1
A1 = Good
A2 = Bad
" "
A10 = Fantastic
A15 = Good
A2 = Bad
A10 = Fantastic
I hope this makes sense, I do have a formula that will do this =IF(ROW()-ROW($E$500:$E$509)+1>ROWS($K$35:$K$44)-COUNTBLANK($K$35:$K$44),"",INDIRECT(ADDRESS(SMALL((IF($K$35:$K$44<>"",ROW($K$35:$K$44),ROW()+ROWS($K $35:$K$44))),ROW()-ROW($E$500:$E$509)+1),COLUMN($K$35:$K$44),4))) however I have multiple tables and the formula greatly reduces the speed at which the sheet is working.
clicking the platform button on sheet 2 runs a module that plots trains waiting in platforms 1-15 the value are got from sheet 1 columns
a = arrive
b = depart
c = platform
ideally i now need these shaded cells to show the departure code of the train they represent and i need every cell of the train to show the code (eg all 60 cells if the train stays for 1 hour). this is because some trains arrive as 1 but detach and depart as 2 or more trains. this would show where 1 train leaves but another part remains to leave later under another headcode, the codes i need placing over the shaded cells are the code in column I sheet 1 (ideally written in the invert colour of the shaded cell so they can be read easily) as an example of what i'm after i've manually added the code for 1 train in black on sheet 2 for the 1st train in the list http://us.f13.yahoofs.com/bc/466da4e...i.abGBkbJbSCH_
Here's an interesting one:
A1 contains a text string which is both bold and unbold (
B1 is blank
I need a macro which scans the cells with text and copies the BOLD portions of the text string into the adjacent cell.
Example:
A1
The sky is blue
Macro is run
B1
sky blue
I have a commissions workbook with about 20-30 sheets. In A1 of every sheet is a Name and in column G is a bunch of Numerical Values. I want to create a "Grand Total" sheet where I have the Name and the Values corresponding from each of the sheets onto my final one.
View 3 Replies View Relatedi'm trying to do (for the past couple of days manually) is copy the names from the 2nd sheet to the 1st sheet but need to make sure that the proper location ID match that of the 1st sheet. If two names is assigned to the same location, a new line will be added to the 1st sheet but never allow if the location ID do not exist.
<1st Sheet>
A1, B1, C1, D1
ID, Name, Loc ID, Location, contact, date
1011,-, 101, 1/F, RM101,-
1012,-, 102, 1/F, RM102,-
1013,-, 104, 1/F, RM104,-
1014,-, 203, 2/F, RM204,-
<2nd Sheet>
Name, Loc ID, date
Thomas,101,10/03/09
Anthony,101,11/02/09
George, 102,11/25,09
Susan,203,10/31/09
Carrie,103,11/20/09
I would like to create a spreadsheet that when a selected number of cells are set to "yes" then a lookup to a small table should then copy 3 columns of text at the side of that table, if the criteria is met with a "1". If either f2, f3 or F4 = "Yes" then look up A9:c16 and if there is a "1" in respective column then copy all text to the right in columns D, E & F to "result" work sheet. I am trying to create auto copy of selected data without the use of a filter, by pressing a cell / button.
View 4 Replies View Relatedi have a workbook that has a lot of sheets but i need to pull information from the one sheet "Veneer Log" i Need it to make new sheets with the same heading as on the "Veneer Log" (Rows 1 & 2) Sheet but it needs to be filtered by the "Product" Column (H) with a new sheet made for all the diffrent products i.e. Dimensional, Drywall, Corners - Thin V., Accents,..... so each product will have a new sheet with i am hoping someone can help me with this. This log changes Daily and it would be nice to have a sheet with only the same product on it to compare new orders so we can batch run. i hope i have given you enough information so someone can help me with this. i have attached a sample log the real log has about 10 worksheet for diffrent departments but i only need info from the Veneer Log Sheet.
View 14 Replies View RelatedI would like a macro that will go to a fixed sheet, copy the format, go back to the previous sheet and paste the format. My problems arise going back to the previously activated sheet rather than just a fixed sheet.
View 2 Replies View RelatedI have a workbook with a hidden sheet ("Template") and a visible sheet("New Job"). I need code so when cell F1 in "New Job" is populated:
1-the sheet is renamed to the value of F1,
2-a new tab is made (a carbon copy of the hidden sheet "Template")
3-the new tab is named "New Tab" and marked as unhidden.
Public Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Name = Range("F1").Value
End Sub
Function WorksheetExists(SheetName As String, _
Optional WhichBook As Workbook) As Boolean
Dim WB As Workbook
Set WB = IIf(WhichBook Is Nothing, ThisWorkbook, WhichBook)
On Error Resume Next
WorksheetExists = CBool(Len(WB.Worksheets(SheetName).Name) > 0)
End Function..................
I have a workbook that writes what I need to do. When done I need to type in another sheet the exact same text and the date I did it.
I wonder if its possible to add a checkbox and when this checkbox is pressed it will automatically copy/paste the text to the next free cell of the other sheet, so I only need to type date.
Here is the workbook: [URL] .....
Check box would be added in cell A17, A18, etc.
And the text would be copied to sheet Preventive Maintenance Records in the next available cell in column A.
Essentially, I have 2 Sheets:
"SheetWSS" = data to be copied
"SheetWSD" = destination of copied data.
Below is a sample of the data in "SheetWSS"
----------A------------------------B-------------------------C
1------Trade ID -------Description---------System no.
2--------579----------------Loan ---------------------- 7
3--------580----------------Deposit---------------------22
4--------702----------------Deposit--------------------- 11
5--------703----------------Loan ----------------------- 58
6--------732 ---------------Loan------------------------66
7--------733----------------Deposit-------------------- 99
etc...(no more than 10000)
Now, an explanation of the data:
1) I work for a small bank (CORP) that takes deposits and gives loan.
2) CORP books these trades using only system no. 7 and 11; other system nos. belong to customers.
3) When a single trade is booked, the 2 sides of the transaction is recorded (by Trade IDs) . E.g rows 2 and 3 relates to one trade. So if CORP loans money with system no.7 to CUSTB, who uses system no.22, it shows for CORP a loan and for CUSTB, a deposit.
4) Everyday, the data in "SheetWSS" is updated with a different number of rows from previous, but the number of columns remain the same.
So, here's what i'ld like the macro to do:
1) Go into Column C, find system no.7 and 11.
2) For each 7 and 11 found, Copy the next row . So if for e.g, system no.11 was found in C4, i want the ENTIRE ROW 5 to be copied.
3) Paste the entire next row in "SheetWSD" until we have a list of all opposing sides of the same transactions initiated by CORP.
I'm having a 6000+ records, (contacts DB) exported in Excel 2003 format from MS Outlook.
Except the "First" and "LastName", all other contact elements are in the field "Notes" (which is the BZ column according to the exported outlook layout) multiplied by 6469 (records in total)
Useful information are included !!!
I'll give an example of a record...
Column: BZ, Row: 543 says --> "2110000000-6989000000, 1TOK_TER:17-11-010(25 DAYS LESS),
KATERINA 25 (MANTAS KALNNNNN_HYPERTENSION)1000-150, W:95_105, , HR THE 16wks_US NEFRON OK,
NT OK_B EPIP OK(GOLF BALL)_KAMPILI ORIAKI(DIAITA)_DOPPLER OK, O+,TEST OK(TOX_), , , , , , "
Now, I want every time to take the part of the text says "TER:something..." (part of which is date, but not every time with the known format dd-mm-yyyy, as you see here is yyy, followed by something else, with parenthesis here and maybe more data) and copy it in a new cell..., e.g:CO Column, same Row...
Above and every field which by the way is formatted as General (and it is text mainly) are made by merging older excel fields where data laid here and there, that's why you see the commas...with the method of a module with the following code:
Function MyMerge(Rng As Range)
For Each Cell In Rng
Temp = Temp & Cell.Value & ", "
Next Cell
Temp = Mid(Temp, 1, Len(Temp) - 2)
MyMerge = Temp
End Function
Note1:Records with the above string (TER:dd-mm-yyy) are 771 from 6469.
Note2: As an alternative solution I can see an extraction of the TER:dd-mm-yyy string and the copy in a new place, like the:CO Column, same Row...
I have a list of text quotes in column A. I then have column B which will have a Y entered if the quote is used in a presentation. I currently have around 100 quotes.
On a separate sheet, I want to be able to effectively say in one cell - If column B has text in it, copy the quote from column A. But the difficult part is how do I make this happen so that I can have multiple quotes being pulled into one cell?
If I have a cell that has as its contents as sheet name, is there anyway I can use the cell's address to reference that sheet?
As an example, say I have in Sheet1, cell A1, the text Sheet2. And let's say I want to return the value of cell B2 on whichever sheet the text of A1 says. So, on Sheet1, I might have this:
Ok so i have 2 sheets. Sheet 2 is a form that needs to be printed.sheet one will have data pasted into it by the user. The data will be placed in column a and b. If a has data in it then so will b. Now I need the macro to identify if data is in a then the macro needs to then copy a and paste special into A18 on sheet2 then copy b and paste into A6 on sheet2 then print sheet2. Repeat this process to every row as long as A has data in it.
View 3 Replies View RelatedI have Worksheet 1, with columns A to E. I would like a row to be copied to Worksheet 2, as soon as cell F in Worksheet 1 is populated. Also the row to be deleted from Worksheet 1.
So, as soon as F1 in worksheet 1 is populated and enter button pressed, row A1:F1 will be copied to the next empty row in worksheet 2, while being deleted from worksheet 1. So eventually all rows in worksheet 1 will be deleted and rows in worksheet 2 will be populated.
I have one sheet for each day of the month with a table that has Employee Name, Reason, and Expected Return. I need to copy each line into the monthly sheet, but each day may have varying number of rows. Needless to say I would like to do this without copying lots of blank lines into my consolidated sheet.
View 10 Replies View Relatedhow to work macros or VBA
I have a workbook with multiple sheets named by month and year that I use to keep track of loans I work with at a bank. In these sheets I have info such as:
Column B = due date
Column D = loan# A
Column E = loan# B
Column F = status
Column H = followup needed
(Columns A,C, and G aren't important for the current need)
What I am trying to do is create a main sheet (TRACKER) that all I will have to do is press a macro button and it will pull info for each loan that is in a pending status.
I need a macro that will search column F (Status) on all sheets and find each instance of "Pending" and once that is done, copy rows B,D,E, and H in each "Pending" instance and copy them to their designated area on my TRACKER sheet. After that is done I need it to continue to the next "pending" instance and do the same on the next available line on my TRACKER sheet.
The overall goal would be that everyday I can press the macro and it will repopulate the sheet with the current pending items (as each day I will change pending status' to complete and no longer need to track it the next day).
I already have the tracker sheet set up and ready to go with the spaces as follows:
Column G&H = Merged cells where due date will need to go
Column I&J = Merged cells where loan# A will need to go
Column K&L = Merged cells where loan# B will need to go
Column M thru S = Merged cells where followup needed will need to go
I want to create a loop, that copies the cell B11 from each sheet, and creates a new sheet called "Average". In this sheet I want it to add sheetname in column A, and in column B the value fetched from that sheet..
So ex for the created sheet called Average.
A -------------B
Sheetname AverageValue
sheet1 ---------- 2
sheet2 ---------- 5
sheet3 ---------- 4
I need to copy the corresponding sheet based on the value in D3 in sheet1 (which it has the sheet name) and copy that sheet and paste it on sheet1 A7.
View 1 Replies View RelatedI have a workbook that uses the following for a list of names (in a specific cell) over multiple sheets:
Burns, Charles; Simpson, Bart; Smithers, Waylon; Wiggum, Ralph
Some names appear on different sheets. I would like to create a TOC sheet that lists what sheet each name shows up on. I can pull the names and have a list of all of them, but how to
a.) determine all of the sheets where each name shows up and, subsequently,
b.) how to programmatically create a hyperlink to whatever sheet(s) each name shows up on.
I've attached a dummy workbook. The column in question is Content Owners. There would be a link to each separate sheet in different cells adjacent to the name.
CRSample.xls
The problem is:
I Sheet 1 cell I33 is updated weekly. It would then be great with a macro that could copy from I33 in Sheet 1, into C5 in Sheet 2. But if C5 is filled, it should paste into D5, and so on.