is there a way to clear data in all worksheets according to the ranges specified in the code below, I have around 34 worksheets in which i need to clear data and i dont want to write the below code 34 times.
Sub Clear()
With Sheets("Rec")
.Range("A7:C7").Clearcontents
.Range("E7:O7").Clearcontents
End With
End Sub
I have attached a test workbook excel 2010 (ignore ref# errors, I've cut the workbook down for uploading purposes) What I would like to do is have a 'Button' on my 'information Sheet' which when clicked would clear certain cells. I have searched the forum but can't find a solution, everyone seems to want to delete rows or columns but I just want to clear certain cells. The workbook will have 11 sheets each named 'caravan 1' through to 'caravan 11' The uploaded test workbook only only has 3 sheets.
On 'caravan 1' (which is slightly different to the other 10) I want to clear the content of cells
B4 & B5
C4, C22 & C41
D4 & D5
E4,E5, E22,E23,E41 &E 42
On all other 'Caravan sheets' I want to clear the contents of cells
D4 & D5
E4, E5, E22, E23, E41 & E42
It would be icing on the cake if it could give a warning such as " are you sure you want to clear these cells" but that isn't really necessary. The worksheets will be password protected, but the cells mentioned above will not be. If it proves too difficult to clear all the cells on all the sheets with one click, then perhaps a simpler solution might be to have a button on each sheet instead
I have 2 nearly identical workbooks and I need to update historical data from the old workbook into the newer one.
My current Coding Snippets that I want to use look like the following:
Code:
Sub UpdateWorkbook()
Dim ws As Worksheet
Dim r1 As String
Dim r2 As String
Dim r3 As String
Dim r4 As String
Dim r5 As String
Dim r6 As String
[code]....
Now, this code isn't working I suspect because the Copy and PasteSpecial Functions don't work the way I wish to.
I have a spreadsheet where I am tracking several entries in a table that will keep growing. Three fields are Data Validation Drop Down Lists. The macro below works well to clear the two lists to the right when the first one is changed by the user.
[Code] .....
I want this to affect the rows below it in the table as they are added.
I need a macro that would consolidate all data in multiple worksheets of multiple workbooks in one Master file.
All the workbooks will be in one particular folder. The macro should search for data in all the workbooks and consolidate it in one master excel workbook.
I am currently using both excel 2007 and excel 2010. This macro would really reduce manual work as currently consolidating data from 45 to 50 sheets takes an ample amount of time...
I have a monthy activity where I would like to clear the area B13:P42 on various worksheets in the same spreadsheet. Is there an easier way to do this rather than just recording a macro?
View 5 Replies View RelatedClicking the button opens the MSgbox then on clicking Yes to run the code it stops on - Range("E3:BU98").Select - saying range selection method failed, and i cant understand why it seems to be such a simple piece of code.
Private Sub CommandButton2_Click()
Dim msg2 As Integer
msg2 = MsgBox("Has a back up copy been saved?" & vbCr & "Are you sure you want to clear all existing products and their results?", vbYesNo, "Delete Products?")
If msg2 = 6 Then
Worksheets("Input Record").Activate
Range("E3:BU98").Select
Selection.ClearContents
Worksheets("Results record").Activate
Range("E3:CA23").Select
Selection.ClearContents
Worksheets("Input Page").Activate
End If
End Sub
I have a macro to clear all contents for a sheet in a workbook. The problem is that every file has over 20 sheets of data. Is there a way I can code a for statement to clear all sheets in this one workbook? Is it possible to make a for statement for multiple workbooks with several sheets?
Range("A11:Z11").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.ClearComments
I'm trying to create code that will clean up a budget template of numeric inputs so it can be reused. This is as close as I can get but the code still isn't right.
[HTML]Sub ClearSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, 21).ClearContents
Next ws
End Sub[/HTML]
I have a workbook with 7 different worksheets (site_worksheets) containing data about various sites. I need to copy all this data into a single worksheet (worksheet_a). I want worksheet_a to update itself when another row of data is added to any of the site_worksheets.
View 12 Replies View RelatedI have 9 sheets of sales data, some with over 50,000 records. I need a way to present this information in another worksheet so I can bring up just the data based on individual brands. I understand a pivot table is needed however I cannot see how to gather data from multiple worksheets.
For example:
I need to look at all the different sales for Product A, which appears in multiple worksheets. Product A is broken down to store-level, with records for number of sales in each store, one record for units and one for value (for the same store and product). Is there a way I can get the data for all of Product A in one worksheet so I can then easily add the totals across all stores by both units and value?
E.g.
Store 1 - Product A - 10 units
Store 1 - Product A - £20
Store 2 - Product A - 7 units
Store 2 - Product A - £14
The macro able to extract the value of each 'Summary' sheet A1 and B1
But it couldn't identify the value of 'total day(s)' of work/leave/unpaid leave.
This is because the location (rownumber) of 'total day(s)' rows is not same for each worksheet.
(depending the number of staff)
Actual Result:
department:laundry
department:marketing
department:security
Expected Result:
department:laundry5361
department:marketing60146
department:security 2875
I'm trying to consolidate inventory for my department. I have Part#s in (column E) of all the worksheets and the amount of the product in (column C). I need a formula that finds the specific part# (in column E) and adds up the total amounts (in column C) in another worksheet has the part#s and amounts in same column.
Im trying to import data from multiple worksheets. The data from these worksheets are scattered throughout the different work sheets.
I would like to extract the specific data from each worksheet into a master template that ive created. 80% of the worksheets templates match my master template.
Is there any way to do this without taking 1 week to complete?
Consolidation of data from multiple worksheets of a workbook in a different workbook.
The, to be copied ranges are static at column B, E & AB. However, the data is required to be copied below each other for each sheet. Also the name of sheet is required to be assigned to every copied data in consolidated file...
Suppose i have 5 sheets with data... then in the consolidated sheet i need name of "sheet1" to be assigned to all the copied records and so on for all the sheets...
Sub trial()
Application.ScreenUpdating = False
Dim Wb As Workbook
Dim path As String
[Code] ........
I run a report each month and I have several hundred lines of data with Heading 1 being the customer Name. I would love to copy this information to individual sheets based on the customer name as showed below (Output).
Raw Data:
Sheet 1
Heading 1
Heading 2
Heading 3
Heading 4
Heading 5
A
DATA
DATA
DATA
DATA
[Code] .....
Output:
Sheet 2 = Rename to A
Heading 1
Heading 2
Heading 3
Heading 4
Heading 5
A
DATA
DATA
DATA
DATA
[Code] ...........
I have data in multiple worksheets and I want it all combined in 1 excel sheet. The 1st worksheet is named as A and all the data in column labled "date" as well as column labled "name" should be copied to master sheet. The range is not specific as vary every month. 2nd worksheet is named as B and all the data in column labled "date" as well as column labled "name" should be copied to master sheet. The range is not specific as vary every month. and there are some more worksheets like that. The start point of data will always be same but can end till any row. Can I get a code for collating all together in one sheet,
View 9 Replies View RelatedI have 37 workbooks that are timesheets for employees for calendar 2007. Each one has 52 tabs for the weeks of the year. Each worksheet has a particular column that needs to have a drop-down selection. That's working fine as long as I do it one worksheet at a time.
Since I don't relish doing this 1,924 times (37 employees x 52 weeks), I opened a workbook and selected all tabs (first, shift, last), but when I tried to highlight the cells that need the drop-down info, "Validation" under "Data" was grayed out. I checked another sheet and found the same thing. As long as I do it one worksheet at a time, it works fine.
Can data validation, for the purpose of adding drop-downs, not be done across multiple worksheets within the same workbook?
would anyone be able to write the code that will combine the data from all rows from all worksheets within a workbook. i've struggled with this one....
here is the deal:
all worksheets have the same columns and column headings but differnet amount of row counts. the width of the sheets is to Column "M" or "13" and there are no blank columns.
There is no need to have the columns headings repeat within the compiled worksheet.
the amount of worksheets will vary depending on when i run it so it will not be able to use specific naming conventions.
I have a summary sheet where I am trying to move data from 20 to 30 different worksheets (in the same workbook). I am refrencing a code from column a in the summary sheet. Then I want to lookup that code in a column in a different worksheet then go down 150 rows and over 1 column to return the value from that cell.
abStandardsUnit Time (Minutes)CodeTaskPrepFabClean UpTables & BenchesFP10106' Table Process StepsA6SHAssemble 6' Table Seat Holders0.151.750.19A6StAssemble 6' Table Seats0.603.150.13A6TAssemble 6' Tops5.4715.002.22
So I am trying to use vlookup to find the code "a6sh" in a worksheet, then once I find that code (column), I need to go down 150 rows and return that cell value into the "prep" cell. The value in the "prep" cell is an average of the 150 rows, one column over from "a6sh". I don't want to have to do this manually.
I have a worksheet that was created by converting a pdf file of 40 pages or so. The conversion process created 40 separate worksheets in one workbook. I would like to consolidate all the data on to 1 large worksheet.
View 9 Replies View RelatedI am using the code below to transfer data from a single sheet to approx'
200 sheets. These sheets are staff training sheets, one per staff member.
This code works great. What I would like to know is, is there a way to then sort the data on these sheets in decending order? I have tried on sheet change but this seems to stop the transfer to other pages.
Sub Tranfser()
Dim shtTemp As Worksheet
Dim lngOutRow As Long
Dim rngData As Range
For Each rngData In Range("A5", Range("A5").End(xlDown))
Set shtTemp = GetWorksheet(rngData.Offset(0, 1).Value)
If Not shtTemp Is Nothing Then ..........................
I have 5 worksheets (all formatted the same) with data inputs from row 19 to 119 and columns A to BA. After row 119 I have several sums based on the data that is being entered on rows 19 to 119, I don't want this data being copied over. In most cases all rows from 19 to 119 will not be used, so I would only like to copy the rows that have data. To complicate matters, there are times when there will be blank rows within rows that have data. For example rows 19 to 25 will have data and 26 will be blank but rows 27 to 38 will have data. The blank rows are identified by column A (Job Number) being blank. This occurs because a job is dropped from the schedule and is no longer necessary.
In the end, I would like to have a button using VBA that will first clear the data in the new sheet (the sheet that is being populated with the information) and then re-populate it with updated data from the 5 worksheets.
We are trying to sort a spreadsheet by the data in column I. This column refers to a state. I need help creating a macro that can sort column I so that different states go into different worksheets.
States ME, NH, MA, RI, CT, VT go to a worksheet titled 357899, states NY, NJ would go into worksheet 351835, states MI, IN, OH would go into worksheet 351857, and everything else would go into worksheet 351836. The main data worksheet where the info is being sorted from is named All_Accounts. Column I has a header labeled State, so data actually starts in Row 2. I need the full rows copied to the new worksheets while leaving the main All_Accounts worksheet in tact.
I have multiple sheets in a workbook. The sheets are protected as this workbook is used by other users also. I need to enter same data in column E of around 15 sheets. I select multiple sheets with ctrl+ or shft+click method and enter the data in the required cells. The problem is after selecting multiple worksheets, I'm not able to enter any text but I can enter numbers. When I remove the protection from all the sheets it is possible to enter either text or numbers.
View 4 Replies View RelatedI am trying to use a main page to enter in all information for tracking worksheet. I would like to create a macro that will paste the information from the first week into column A, the info for the second week, into column B etc. It should also be able to paste information to another worksheet when the first month has been completed.
View 5 Replies View RelatedI currently have a spreadsheet that has a total of 20 workbooks in all. Each workbook contains between 5 and 100 rows and between 20-40 columns. Each column is a different category that I have data on for that particular tool manufacturer. What I want to do is create a front workbook where I can do all my searching. I would like the user to impute data into a search cell, hit a macro button, and have the full row that data was in be shown to them. Depending on which criteria they search for, the value may be found at the start, middle or end of the row.
Also, like I said the number of columns differs between each workbook. I would also like it to print out the categories for that workbook so that the person inputing the data knows what all the different numbers are when they come up.
Each workbook is a different tool manufacturer that my company has a tool from so there should never be duplicate data. The problem is that after I finish the spreadsheet, I am turning it over to the floor workers and they will have the ability to add/change any information in any workbook. If a mistake is made and different workbooks have the same data, I would like it to print out the category and data from the first workbook, then print the category and data from the next workbook and so on. The Category headers make up the first 2 rows of each sheet.
I have an issue to where I have my worksheet entitled "Index Data" as my output. I need to loop multiple worksheets to copy cell D2 and copy onto worksheet "Index Data" in column B.
It should look similarly to this:
VB:
Sub Range("D2").Value = myinput1
For Each ws In Worksheets
[relevant code]
Next ws
End Sub
how to Transfer data between worksheets using multiple criteria?
View 1 Replies View Relatedfor creating the macro As I dont have any idea about macro.
My question is that I just want to marge all the tab into one tab however some header in all the tab are dirffernet however I need one header.
I have attached the example file, in that tab named as "OUTPUT" that is what I needed by macro.