i want to do a macro, that will copy and transfer Selected worksheets to a new Workbook? so guessing, you select the sheets, then click the button and it copies then opens new blank workbook and puts them in?
View 9 Repliesgot work book that has about 20 sheets in it.....there are links throught the workbook. ......one sheet in particular when i go to it, it freezes up...and i get the dreaded "Send Error Report to Microsoft" window"...and we all know what happens next.....excel shuts right down.
I can open the workbook and click on ANY sheet....but when i click on this one particular sheet in the book i get the error message
This work book is a template....its the estimating work book i use at work...and whenever i get a new job to estimate i open up this template.....put in my data and save the workbook as the job title.....so basically i have about 50 of these workbooks......and it doenst matter which one i open.......whenever i go to this one same sheet in any workbook i get the freeze
and the freaky thing about this is it does it randomly....I make save this template (as a new work book) when i get a new job to estimate.....and i never have any problems.......but today for some crazy reason its doing what i mentioned above......it did this about a month ago too.......same exact problem.
when it happened the first time i tried all kinds of stuff, and the only thing that worked was i had to go to windows explore...save all the files to a memory chip.......go to a different pc with my version of windows (XP)....open each file up......re-save it.......go back to my pc...reload it
I made the following code to merge 2 workbooks together.
The code is to be executed when the user has Workbook A opened. (All sheets in workbook KPISWD are supposed to be moved after all worksheets in workbook KPICustomers).
I keep getting a debug error on the code that is supposed to do the actual move and loop until it is finished with all of the sheets in Workbook B.
Code:
Dim KPICustomers, KPISWD As String
KPICustomers = ActiveWorkbook.Name
Workbooks.Open Filename:= _
"W:FacturatieKPI per periode SWD.xls"
KPISWD = ActiveWorkbook.Name
[Code] ..........
i have a made a macro that copies info to a new sheet now that is working great but if i change the name of the work book it wont work any more so i need the macro to work with what ever name i give the workbook
the current name is
AVERAGE PRICE (update 2009) Mimmos Armico 170809.xls
i have attached the code in notepad ...
how to get excel to open a work book in my c drive if i have given it the location in cell m2
eg: the cell is M2
C:AVERAGE PRICE (update 2009) 240809
i need the macro to open this workbook when i click the button in the workbook i have open that has the above in cell M2
i have put together quiet a large work book that i can easly update with new info and it is working great thanks to alot of help i got from you all
Now i would like to have all this info go into a simpal user inter face so that my staff can use it i am thinking of somthing of making it like a sml application i would like to know if there is a program that i can download that would do this for me or if there is a simpal way to go about getting it done useing excell its self i know quite a bit about excel but how to take it that far not sure and i do learn fast once i know i will be fine so pls even if it means you useing a complicated awnser the do it as i will keep trying untill i get it working
I am trying to copy a range from one workbook to another book sheet with the below code. But its giving error.Can any body fix the below code.
Dim rng1, rng2 As Range
Set rng1 = ThisWorkbook.Sheets(1).Range("A1")
'Create a new work book
Dim xlapp As Object 'Excel.Application
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = True
' Add a new workbook
Dim xlbook As Object 'Excel.Workbook
Set xlbook = xlapp.Workbooks.Add......................
I have a fluid document that I have to save for historical reasons in 2 separate directories. My save Macro works I was just wondering if anyone see's a better way of accomplishing saving to two separate directories then closing the document. I used the record function to gernerate most of the code.
Sub SAVEANDEXITTHESLATE()
Dim date1
Dim date2
Dim xlCalc As XlCalculation
xlCalc = Application.Calculation
Application.Calculation = xlCalculationManual
On Error Goto CalcBack
Application.ScreenUpdating = False
date1 = Now()
date2 = Format(date1, "mmm d yyyy hh mm")
ActiveWorkbook.SAVE
Application.DisplayAlerts = False
ChDir "c:Documents and SettingsmeDesktop"
ActiveWorkbook.SaveAs Filename:= _...................
I know how to create a text link to other cells within a work book but how can I create a button which will do the same?
View 2 Replies View RelatedI have a cell that I want to use data validation on so I have a drop down list. Problem is the location of this list will be in another workbook.. Is this possible to go from one workbook to another using data validation?
Also, depending on the information that is selected from the drop down list I want a cell to the left to pick the corresponding data from the list in the other workbook. These forms will always be in the same folder.. Not sure if that information is necessary but just in case you need to know.
Is there a way to run a macro automaticly on a closed work book every Friday ? I've found ways of doing this using on-open event but It made me wonder if this was possible.
I have a workbook with two sheets of sku numbers. One sheet has sku numbers and prices, the other just has sku numbers but some of the sku numbers on the second list have been broken out by sizes. I need to take the prices from the first list and transfer them to the matching sku numbers on the second including the ones with multiple of the same sku but with prices. Also, not all of the skus from the second list are on the first list so I only need to do the ones that occur on both lists. There are over 3000 on the first list and 14000 on the second. What is the fastest way to accomplish this.
I tried to sort so that all the sku's in both sheets are in the same order then copy and paste the price to the matching sku on the second sheet and then drag the price down through the sizes on the ones that have different sizes (not all of them do) but I know there must be a faster way.
For example:
Sheet one:
Sku Price
12345 $100
12346 $500
12444 $150
12347 $200
Sheet two:
Sku Price
12345
12345-5
12345-6
12345-7
12346
12444
12347
12347-5
12347-6
12347-7
I'm loving these new formulas that i'm learning here and applying them to whatever sheets i come across to make my life easier at work...
So now i've created another worksheet, this one is to help my colleague who wastes atleast an hour everyday to generate a consolidated report of our bank accounts...
Now i've sorted out half of the report where he can give an overview of the position of cash flow on a daily basis.
Theres however 1 more addition i wanted to make to make this workbook absolutely perfect!
On sheet 2 (which is my consolidated report sheet) I want to add all the transactions that occur on a particular date from all the different bank accounts (Each account having a seperate worksheet)
I'm not sure if advanced filters can achieve this or not or even easier/short macros... Any tips/hints as to how i can achieve this would be awsome..
I've attached a sample workbook which has sheet1 for a bank account and sheet2 for report generation...
I want to add all the rows having "Clearing date" (column A) in Sheet1 to report date in Sheet2
..And this for all the account sheets i can add...
find attached sheet of example.
In the attachment the supplier sheet is the sheet we get from our suppliers and it shows us the products they have in stock along with the prices and other information. This sheet has over 900 products on it. It is updated daily which we download and then paste it over the existing data.
The Deviltronics sheet is the products we have added onto our website. It has a code in column E which tells us if the products on the supplier sheet is in stock or out of stock. (this was done by the help of someone here)
Both sheets have been cut down considerably so that we can add them as an attachment on here.
So now I am going to tell you what I am trying to do!
What we need is a code that will automatically copy the trade price, suggested retail price and the shipping cost from the supplier sheet and insert it into the Deviltronics sheet next to the relevant product (say in columns F, G and H). This done by matching the product code part numbers in both sheets as done with the existing code on the Deviltronics sheet (column E).
I am currently using a macro to copy a sheet from a closed workbook in to my current workbook. However this copying is based on the sheet name. At present when I run the following code
View 11 Replies View Relatedspread sheet training matrix. The subjects to be trained on are plentiful so I have broken these down into different sheets. I produced this to my boss and the first thing he asked was "can we link the sheets so I can get information about one single employee" in other words I have a list of employees in the first column and this list is the same on each sheet, the headings on the sheets are different but instead of having a set of columns about forty headings wide I have split them down to ten headings on four sheets. The big question! Is it possible to print one sheet with one employee but all of the headings? When I say headings I mean the columns under the headings as well.
View 4 Replies View RelatedI'm having an issue with a macro that copies sheets from one workbook into a new workbook. The issue is it doesn't copy all the sheets. It only copies the first 10 and doesn't capture the the remaining 15. I've checked the range of the translation table and the issue doesn't appear to be there.
Sub SBGFiles()
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim a As Worksheet
Set a = Sheets("Input")
Dim Fpath As String
Fpath = ThisWorkbook.Path & ""
Dim SBG As Range
Dim RU As Range
Run ("UnPro")
For Each SBG In a.Range("B44:D44")
Workbooks.Add
newbook = Workbooks.Count
Workbooks.Item(newbook - 1).Activate
On Error Resume Next
Currently I have 15 Prepaid schedule sheets that get pulled together as lines in a detail sheet. The way I have the detail sheet set up currently is that I have designated 200 rows for each prepaid schedule sheet, and then I manually changed the sheet reference in the formulas every 200 lines or so, for each prepaid schedule account. One such formula looks like this:
=IF(OR(H11="",H11=0),"",IF(OR(LEFT('Prepaid Gnrl Ins'!A11,8)="Balances",'Prepaid Gnrl Ins'!A11="Variance"),"",CONCATENATE('Prepaid Gnrl Ins'!A11," - ",'Prepaid Gnrl Ins'!B11," - For month ending ",TEXT(Menu!$I$4,"mm/dd/yy"))))
The result of that formula is this: Beecher Carlson - 11/1/11 - 4/1/13 - For month ending 02/28/2013
The detail sheet also includes a formula to find values to be expensed. that formula is:
=IFERROR(IF(HLOOKUP(Menu!$I$4,'Prepaid Gnrl Ins'!$I$10:$T$110,A11,FALSE)=0,"",IF(F11="","",HLOOKUP(Menu!$I$4,'Prepaid Gnrl Ins'!$I$10:$T$110,A11,FALSE))),"")
I'm trying to shrink down the over all size of this detail sheet and I would like to be able to write code with the syntax:
IF {HLOOKUP of value in menu sheet, find in column 10 of active sheet and offset by 1 (row 11)} contains a value THEN run all formulas (examples above) and paste into detail page UNTIL value in column A contains "Balances".
After finding the word "Balances" the macro would move on to the next prepaid sheet and do the same thing.
I want to create a form and use VBA to make a combo box list all the sheets in a book. Is it possible to select multiple entries like in HTML? I would like the user to be able to select the sheets they do not want to delete before a macro runs.
View 2 Replies View RelatedI have 3 forms(3 sheets) with the same layout (fields) for data collection. I want to transfer the data from the 3 forms to a consolidated database worksheet. Every form needs to have its own rows of data. For example, if there are three forms for three divisions laid out as below:
BegBal Additions Subtractions Adjustments End Bal
xxxx xxxx xxxx xxxx xxxx
The resulting database worksheet should look as follows:
Division Beg Bal Additions Subtractions Adjustments End Bal
A xxxx xxxx xxxx xxxx xxxx
B xxxx xxxx xxxx xxxx xxxx
C xxxx xxxx xxxx xxxx xxxx
Sub MoveRecord()
Dim WSF1 As Worksheet ' Form 1 worksheet
Dim WSF2 As Worksheet ' Form 2 worksheet
Dim WSF3 As Worksheet ' Form 3 worksheet
[Code].....
I'm trying to copy rows from one workbook that is exported from access to multiple worksheets in multiple workbooks. I used a macro I found here from JBeaucaire that will copy the data for me but it over writes the information I have in rows 1-3 and also the rows below, 28-35.
Is there a way to copy the data without loosing the information in the first three rows and the rows below where the data goes?
I have a workbook that I would like the same operation on all sheets except the first sheet in the book every time I update it (which is once a week).
I get data (currency format) for all of my employees on a weekly basis. Unfortunately this data is shown as a negative number and I need to invert these values. (So I use the formula below)... but I have to do this manually for about 35 sheets and I figure I could automate this somehow with a macro. Here's what I do usually and what I would like the macro to do automatically:
I want to insert a column after column G.
I would like to enter the following formula into H2:
=IF(G4="u", "u", IF(G4
I'm trying to write a macro that selects cell A1 in each sheet within the book. I've written the following code:
Code:
Sub a1()
For i = 1 To Sheets.Count
Sheets(i).Cells(1, 1).Select
Next i
Sheets(1).Select
End Sub
However, it produce this message: "Run-time error '1004': Select method of Range class failed."
If I slightly modify the code to
Code:
Sub a1()
For i = 1 To Sheets.Count
Sheets(i).Select
Cells(1, 1).Select
Next i
Sheets(1).Select
End Sub
It works fine. I'm curious why this happens.
I have the below code, which now looks to see if a file is open or not, if it is, then copy and past 'Data' and if not open the book and copy 'Data'.
I think the code is sort of right, but im missing something, as i keep getting runtime error when i try and copy. Here is the
Sub PrintSaveKPIUpdate()
Dim sFilName As String
sFilName = "C: estCashSales_KPI.xls"
Set Main = ThisWorkbook
If IsOpen(sFilName) Then
' Book is Open.
Worksheets("Setup Data"). Range("Data").Activate
i have done a search on this topic and found many similar answers to many similar questions. All specify using Application.Run "workbookname.xls!macroname".
In my code, the filename has an assigned value as the master code goes out to many secondary files - the user selects the particular one they want at the start of the macro. The variable assigned is called "UpdateKAMsFile".
how do i get the macro called KAMsRandomColour to run in the workbook designated by UpdateKAMsFile?
so to start off im not able to attach things due to security reasons, what i need is either 1 of 2 macros. if its possible, both are related. one possible is as follows: i need it to go through a certain column (say I for example) and look at the information in it, this information can vary from peoples names along with dates and other stuff, i want it to look through these and if anything has a date today and prior i need the cell to be highlighted. problem is sometimes it might have 2 dates, or no dates. it should have todays date, their name, other information, and future date of something. but not everyone does, this is the macro i dont think that can exists.
2nd macro possibility the other macro uses the first sheet, AFTER been highlighted, normally by hand, and takes it to another workbook and puts in in certain spots. so the first sheet has names of everyone in column K. what i need is it to look at column I and if its highlighted take entire row to other book, and put into sheet under the person name in their tab. the second book has a tab for each person (at this time 18 tabs) which can fluxuate, and each tab is the persons first and last name, without spaces. since when i put sums on main page it didnt want to work with the spaces i had to omit them. again im not sure this is possible.
I have the below macro in a workbook that I need to combine the two sheets into one, (sheet1 and sheet2). Both sheets in use column "A" for id, but for some reason it is only copying over sheet one? One sheet has 12 columns and the other has 13, not sure if that is making the difference?
I use a code to work on all the sheets across all the files. But now I want the code work only on sheet named Paid across all the files.
Sub PP()
Dim wb As Workbook
Dim ws As Worksheet
Dim varWBnames As Variant
Dim varItem As Variant
varWBnames = Array("Book4.xls", "Book5.xls", "Book6.xls")
For Each varItem In varWBnames
Set wb = Workbooks(varItem)
For Each ws In wb.Worksheets
ws.Activate
ws.Range("A1").Formula = "=A2+A3"
Next ws
Next varItem
End Sub
How do I apply 1 Macro to all the sheets in a Work book. That is one Macro should execute the function in all the worksheets of the Workbook.
View 9 Replies View RelatedI am using Excel 2003.
I tried to change the number of new sheets in a new workbook, e.g. from 3 to 1.
But the option has no effect on new workbooks. They still show 3 sheets.