I have a spreadsheet with columns set up like this: RowName, Date, Value1, Value2, Value3 etc. The date is in format YYYYMMDD. What I am trying to do follows, in some sort of pseduo fashion.
View 2 Replies
I would like to be able to select several non-sequential rows in a worksheet called "Data" (using a check box or just entering a value in Column A) and then be able to press a Command button to copy the selected rows to another worksheet called "Estimate" at the bottom of a table, and delete the designators in Column A (i.e. deletes the value, or unchecks the boxes) so I can repeat the process again if needed.
View 7 Replies View RelatedI try to do the following I get an error 'Subscript out of range'
View 3 Replies View Relatedi would like to know whether a worksheet exists or not... say, the worksheet name is sheet1, i need to check whether the worksheet exists... the point is, i need to delete the worksheet if it exists and execute a code... if the worksheet doesn't exist also, i need to execute the code... so im getting a little confused with this... i need something like this...
if sheet1_exists then
delete the sheet
end if
my_code.......
Does anyone have SIMPLE code for this that can be run in a normal Sub. My worksheet will always be named "Cleaned". I have seen some posts regarding Functions and other things that seem more complicated than necessary.
View 9 Replies View RelatedHow do I delete a worksheet but ONLY if it exists, if it doesn't exist, ignore the command. I'm afraid to mess up the other code in the macro/sub, so here it is...
View 2 Replies View RelatedI have an array that opens a workbook containing close to 100 worksheets, and copies specific sheet names into there own individual workbooks. The problem I have now, is that I assume the worksheet exists in the workbook, but often times it does not Is there a way to add some sort of "catch" that will 1st verify the worksheet exists instead of my code crashing?
View 9 Replies View RelatedI have a macro that 'opens all' workbooks in the specified folder. I've copied it over, but need to only open all the wbk's if a specified worksheet exists w/in the wbk..I know there is a dim ws statement that can be used, but how do i use it w/ the current macro?
Option Explicit
Sub recTestOpenAll()
Dim x As Integer
Dim WB As String
Dim wbk As Workbook
For x = 1 To 100
WB = "G:Rule Test FilesREC " & x & ".xls"
On Error Resume Next
Set wbk = Workbooks.Open(Filename:=WB)
On Error Goto 0
If Not wbk Is Nothing Then
End If
Next
End Sub
I am writing a macro which first needs to look and see if a certain worksheet exists. If it doesn't then I want it to create it but if it does I first want it to delete the sheet then create a blank one with the same name. At trhe moment I have this but it is scrappy and doesn't work very well:
On Error Goto AddSheet
If Sheets("MONEYSHEET").Activate Then Goto Data
AddSheet:
Sheets.Add before:=Sheets("LOOKUPSHEET")
ActiveSheet.Name = "MONEYSHEET"
Data:
It also does not delete the sheet if it already exists, just edits the existing one.
This is a simple macro that copies the rows from one worksheet to another, but how do I get it to copy the values only and not the formulas?
View 2 Replies View RelatedPost1:
I need a macro that will search column R for a date, and search column E for a value (Signature, Revised Signature or Custom Finals). When those conditions are met, certain cells (C,D,E,F & M) need to copy over to another sheet. Also certain cells in that row have formulas (I,J,Q & U) that need to be copied over. Both sheets have the same column headings, A5-U. Everytime the macro is run I need it to look at column C to see if the project # (ex. 0901234) is the same, I don't want duplicate project numbers in sheet 2.
Post 2:
Sheet 1 is (Assignment List), Sheet 2 is (Cut Sheet). The dates are in this format m/d/yy. The column heading is in the same order. Column R is the completed date in the "Assignment List" sheet. In column E, if it reads Approval and column R has a completed date i don't want it to copy over, but if it reads Signature, Revised Signature or Custom Finals and it has a completed date i want it to copy into the (Cut Sheet) sheet starting at row A6.
There is a sales sheet which basically produces a sales receipt and a report sheet which should keep track of all the items sold. so i was wondering how a simple do loop or equivalent command could be used to copy about 15 rows (6 cells from each row) from the sales sheet to the report sheet (technically starting from the first available empty row in the report sheet) each time a sales receipt is produced.
View 3 Replies View RelatedI'm looking to use the value from a series of dropdowns (made via data validation lists).
Cell AM5 is a dropdown of named ranges made form a seperate sheet
Cell AO5 is a dropdown that uses '=INDIRECT(AM5) to lookup the values in the named range.
I need cell AO5's value to be used to filter rows in the current worksheet. The current problem is when i use the first dropdown in AM5 it still displays the last value, untill i use the dropdown to select a new one. This value typically will not be found and i do not want my code to execute in these cases.
how do I automatically add beside the name the colum title where it previously existed. see the attached.
View 2 Replies View RelatedI'm creating a macro to select, modify dimensions and place shapes on a excel sheet. (I'm talking about pictures insered and stocked in a specific sheet of my workbook)
When the users insert a new picture he has to set a name for each of them.
A combobox contain the choices, when an item is selected, the macro identify, size and place the corresponding picture.
But I have a bug if a shape doesn't exist when I try to select it :
Sheets("fiche de controle").Select
'select the sheet with the pictures
ActiveSheet.Shapes(Item_old).Select
'select the shapes "Item_Old"
Item_Old is a variable corresponding to the picture name.
If the user made a typo, I have a bug.
Someone knows how to test if the shapes exist to display a meesage if not ?
Or somethig to avoid this kind of bug ?
I have working data on list sheet and added data on compiled sheet.
I need to match duplicates and delete these rows from compiled sheet.
I've tried coping to the list sheet and use "Remove Duplicates", but it rids me of the data that has been processed and has fills applied.
I'm looking for a macor that can do this work for me without losing data on list sheet.
This data reaches into the thousands and I'm looking to run this off the CASE column.
1. Find a text "State" in column 5 of a active sheet and copy that particular row to a new worksheet "Summary" including the header row.
2. Loop through other worksheets and add results to "Summary worksheet" without the header row.
Worksheet (Daily Sales) - daily input, copy to the worksheet (Weekly Sales), Monday through Saturday. The ranges copied are not consecutive. I am using If...then...else.
View 6 Replies View RelatedI haven't mucked about with Excel in quite a while now and have been asked to do a module in Excel 2000.
When given a workbook (tej-exit.xls) which has one worksheet of thousands of rows with columns from A to AS, i would like to copy all rows which have a zero in column N to a new worksheet.
Is this difficult?
Would i have to have one workbook with the code module in, load up the tej-exit.xls file ?
I have 2 worksheets in a workbook: "Orders" and "History". Both sheets contain the exact same columns. The "Orders" page data gets wiped clean at the start of each month. What I'm looking for is a macro solution that will copy any new rows and update any old ones that have changed on the "Orders" page to the "History" page, so we can keep a running history of sales. Ideally, I'd like the macro to fire only when performing a Workbook Save or Workbook Save As.
"History" is in date order, so adding new entries from "Orders" should be easy, just by adding rows to the bottom. Updating existing rows will be harder, because I want it to update if the row has changed but not be deleted or changed when the "Orders" sheet is wiped clean the 1st of the month.
Additional:
The columns in both sheets are:
Order Date
Ship Date
Order Number
Customer
Item
Qty
Amount
Because each item gets a seperate line, there will be rows that have identical Order Date, Ship Date, Order Number, and Customer entries, so I suspect I will need to compare multiple columns when deciding if one has changed (the only column that *should* change after initial entry on the orders page is the Ship Date, which would initially be left blank when the order is first entered).
I have used marcos to create two worksheets and need to compare each row of the first three columns in each worksheet to find any rows which non-matching data. I am comparing retrieved data (Worksheet1) against a master list (Worksheet2) to ensure the retrieved data was entered correctly. The three columns of data include Manufacturer, Lot number and Date.
The row in which the matches will occur is random. The three values from the retrieved data only have to find a match somewhere in the master list. I can place both the retrieved data and the master list side-by-side on the same worksheet if that would make things more efficient for running the comparison.
The non-matching rows, if found, will be copied over to another worksheet along with its corresponding row in columns "D" and "E" found in Worksheet1. The additional data alerts me to the location where the data was entered incorrectly. The master list does not have any location data in it.
I have filtered data on Sheet1, which I need just columns A, B & C combined and placed on Sheet2. The below code works, but its defined to copy all rows. I'm unsure of what syntax to use for the loop to copy just the filtered data. Also is there a way to "cycle" through the filters? Example Autofilter "1984" copy ABC to Sheet 2, then AutoFilter "1985" copy to sheet 2 and so on?
For Each Cell In Sheets("sheet1").Range("A:A")
If Cell.Value <> Empty Then
i = i + 1
b = Cell.Offset(0, 0).Value & ", " & Cell.Offset(0, 1).Value & " " & Cell.Offset(0, 2).Value
Sheets("sheet2").Range("A1").Offset(i - 1, 0) = b
End If
Next Cell
The workbook I have created will allow user to set up records for customer pricing. The code below is the module that will check if the file already exists and if so it will add the new record to that file and If it does not exist it will go to a nother module to create a new workbook.
View 3 Replies View RelatedI have two sheets
sheet1 and sheet2
What i want to do is this
if (a1 in sheet1) is found in (e1:e30 in sheet2) to copy cell from collum C (row which the value was found in) to (a4 in sheet1) if there is more then one then copy the next one to a5 in sheet1 etc
I have tryied vlookup hlookup but this does not work
Every day, I receive a datasheet from which one column is filled with different dates. I like to select only the rows with future dates to copy it to another workbook. I tried Advanced Autofilter without succes as I cannot pick the right criteria (I see today, next week, next month but not all something like to select all future dates).
View 9 Replies View RelatedIn sheet Model RC BOM I am trying to copy all the rows under Level 1 (row 3), including level 1, until it reaches the next Level 1 (row 537) (not including row 537), and paste those cells in next tab (BIW) starting at row 2. The next operation is to copy all rows under Level 1 (row 537), including level 1, until it reaches the next Level (row 827), not including row 537, and paste those cells in the next tab (Chassis) starting at row 2.
The challenge is that I cannot use the row numbering in sheet Model RC BOM as a reference for coding because the content will change every week.
I am making a workbook for our 4H horse shows. I want to be able to list the kids on the first page and check off (x in the cell) which classes they will be entering and then have the program move their info to each of the specific class worksheets where we will record the results. I'd like to move rows A thru E to each applicable class sheet. I've attached the workbook.
View 6 Replies View RelatedI have set up the attached workbook to try to show the results that I need using the matching shaded cells in the worksheets.
The first part of the problem is that all data in columns A, B, C & H (Input1) needs to be copied to columns A, B, C & F in Input2 with the addition of a Zero value in columns D & E (sample data lines 1 - 3).
The second part of the problem is that all data in columns A, B, & F (Input2) where the cell in column C is equal to ZERO needs to be copied to columns A, B & C in Input 3 (sample data Lines 4 - 11).
It would also be useful to be able to copy data in columns A, B, & F (Input2) where the cell in column C is NOT equal to ZERO to columns A, B & C in Input 3 (sample data Lines 12 - 25). However, there will be often be more than value in column C (Input2) dictated by the date in Column A and number in Column B. The value in Column F (Input2) will always be the same for each of those rows, so it does not need to be duplicated in Column C (Input3).
This would have to be manually triggered by linking it to a button or menu item, not sure what would be the best option. As data is entered at various times of the week, the routine would either have to overwrite existing matching data or carry on from where it last finished!
I have created a worksheet which contains seven columns of data and many rows. I need to copy entire rows into nine separate worksheets depending on the data in column G.
I know nothing about VBA but have read enough to realize this is the way to go with this. Would someone point me in the right direction on how to set this up? I've attached the file so you can better see what I'm talking about.
is it possible to Copy Rows to a multiple tabs on a New Worksheet using a start date and end date as reference?
I have a button (named Draw Report) on the Raw Data xls. should copy tickets uniquely on a new workbook, by uniquely - no duplicates on the new workbook on a given date range.
Will it be possible to separate them into tabs according to values under Assigned to (Transaction 1, 2, 3)?
Could we also copy the exact 2nd worksheet (Report) on the Raw Data xls on the Output.xls?
The Output would contain 4 tabs: Report, Transaction 1, Transaction 2, Transaction 3)
