I have a few excel sheets that we use to keep up with clients and the hours spent working on projects for them. We add and delete clients almost every week, and every time we make these changes we have to update all of the linked sheets. I am wondering what is an easy way to have sheets update themselves as we add and delete clients.
View 9 Replies
I have one source spreadsheet, where are columns NAME, DATE. I read these data by ADO to other spreadsheet, where I can change/delete data and then run macro for update data in source spreadsheet. The problem: In source spreadsheet is column "NAME" and column "DATE", with values e.g. "Joseph"; 1.1.1980. I read this data to other spreadsheet, then I delete in it value 1.1.1980. When I run macro Update, it messages error.
Sub UpdateItem
...
.Fields.Item(1).value = activecell 'activecell value = "Joseph"
If Not isempty(activecell.offset(0,1)) Then
.Fields.Item(2).value = activecell.offset(0,1).value
Else
.Fields.Item(2).value = "" 'I tried Empty and 0 too but when I read data again then, it displays 0.1.1900, nothing works
End If
...
End Sub
It seems that in source spreadsheet has data in column "Date" format Date and when I try to update data in format String ("") in source spreadsheet by Update macro, it messages error. When I used
.Fields.Item(2).Value = Empty
' or
.Fields.Item(2).Value = 0
after rereading data it displays 0.1.1900 What I want to get is that if the cell with date (in other spreadsheet) is empty, the cell in column Date in source spreadsheet after updating will be blank (contains no values).
I am creating a macro that needs to open a report copy the data to a new sheet, add the clients name and then loop. Although when it loops around for the second time it adds a new workbook, although I need it to append to the bottom of the first....
View 9 Replies View RelatedI am just looking for an function which will gives me the average of the hours worked on daily basis. A breif descripiton is i have an workbook in sheet1 i have the sample report which i struggle to prepare on daily basis for each client.
Sheet2 i have the Raw data in column H i have the client name and then in column I is Date and finally in J the hours we worked on in it. To say i just want the average if the each client on the particular date as shown in Report sheet.
My goal is to learn how to universally add specific codes to all clients in one shot.
Here's an example of the data I'm working with......
In column A - I currently have a list of 200 unique clients listed multiple times (1000 rows).
In column B - I have several different types of codes, but that are the same for each client.
Example:
A B
Client 1 Code A
Client 1 Code B
Client 1 Code C
Client 2 Code A
Client 2 Code B
Client 2 Code C
Etc. Etc. for 200 clients
So the question is: When adding a new code, How do I add a codes to all clients in one shot?
I am actually using a basic formula to compute for the Staff OT based on the type of OT. see more details below.
JULY '09 (Worksheet1)
ABCBEFGHIJ5DateDayOT StartNo. of OT hoursOT TypeAttending EngineerRefDetailsCost6July 02, 2009Thu8:00 AM1111.00HolEngineer 1169504client support3,300.007July 03, 2009Fri6:00 PM11.00RegSystem Analyst169556support IT Manager, Albert's turn-overs assistanceneed formula8July 06, 2009Mon4:00 PM55.50RegEngineer 1169504midyear SR meeting supportneed formula9July 06, 2009Mon6:00 PM11.00RegSystem Analyst169556generate SIP data for the conf, setup SMRAS300.0010July 08, 2009Wed6:00 PM11.72RegSystem Analyst169556ZPC datat testing, attendforumsneed formula11July 09, 2009Thu5:00 PM22.50RegEngineer 1169504midyear SR meeting supportneed formula12July 10, .....................................................
I have received following macro from someone to delete series but the problem is that it gives error when some sheets are protected, and I want those sheets to protected. When run it will ignore/leave protected sheets but delete series only from unprotected sheets
Private Sub CommandButton1_Click()
Dim Rng As Range, i As Long, r As Range, lVal, uVal
Dim DeleteCount As Double
Dim lRow As Long
Dim dr As Long
Dim dc As Long
dc = Sheets("Deleted Numbers").UsedRange.Columns.Count - 1
dr = Cells(Rows.Count, Sheets("Deleted Numbers").UsedRange.Columns.Count - 1).End(xlUp).Row + 1
If dr = 60001 Then ................
I get this error on clicking a button in userform1 to display the userform2 (userform2.show) , i checked with another form and it works .
if i click on button to show userform2 second time , it displays outline of form and on third time it displays the form correctly .
Could you have a look at my attached sheets?
2 sheets here, one is "TEMP" the other is " SUM".I want to have a command button in the "SUM", in order to do the below actions
1.compare the right now A columns between "SUM" and "TEMP";
2.If it does not exist in "SUM",i.e. it is new,then move the row to the last row of "TEMP";
3.If it exists already in "SUM",then update the row.
I have a big spreadsheet with a number of sheets, some with dynamic lists which take up a lot of processing power, but which I only use rarely. Consequently the whole spreadsheet is running very slowly. Is there a way to set certain sheets to not automatically update, but retain automatic updating on others? I know you can set Calculation to Manual in the Options, but I need to retain automatic calculation on some sheets.
View 9 Replies View RelatedI know I can update the content of a cell on any sheet from other sheet using for example: =SHEET!$G$22. This works ok for text and numbers, but how to get the same result for a function?
Example: in sheet1, cell B3 I have =SUM(A5:A9). When I modify in sheet1, cell B3: =SUM(A1:A9) I need his formula to change on other sheets as well. How to do that?
I have a workbook that contains
Tab 1 --a datatable with mulitiple suppliers. Data changes once a week.
Tab 2-25 --Report Tab for each client--to be sent out to client weekly to update status of deliveries.
Current process:
1. copy and paste data table into excel model Tab 1
2. use advanced filtering to pull data from the datatable into each tab one tab at a time--25 times!
3. Sort the date in the report tab--25 times
4. Format the report tab--25 times
5. Copy and Paste into a separate workbook--25 times
6. Send each report--25 times
How do I reduce the number of steps in this reporting process?
I don't know why i'm having such trouble with this. I keep getting "Invalid Call or argument". All i need is to loop through sheets 2 to 9 and set the year of 8 pivots per sheet to 2005.
View 2 Replies View RelatedI am trying to make a line graph of a company's profitability. Each day I add a new page and use data I collect to determine the day's profit. I want the graph to update each time I add a new sheet. The cell that contains the day's final profit is the same cell on every sheet.
View 2 Replies View RelatedI have a excel workbook with One Master Sheet.
The data entered in the master sheet is automatically updated in the sub worksheets through direct links created . Each sub worksheet is a branch of organization. almost 100 branches are there.
The data is entered for all the branches in the Master Sheet at different periods continuously which is to be kept as such.
For example In first day 10th, 15th branch data may be entered in master sheet first and second row, which is getting automatically updated in the respective branch worksheets. But the problem is when the data is entered for any branch( for example 6th branch) in 5th row of Master sheet, in the respective 6th branch sheet also, it is updated only in 5th row only, leaving the first four rows blank. But i want the updation in the branch sheet continuously without any blank rows.
For updation i have used the simple direct link between the cells of Master worksheet and Branch sheets.
How to get the updation in branch worksheets while entering the data in Master sheet without any blank rows.
I've a workbook and it has two sheets. Suppose, I want to link A1(sheet1) and a1(sheet2). If I update any of the cells in any of the sheets the other one will be updated automatically. How can this be possible? Or are there any other alternatives?
View 14 Replies View RelatedI have already got an anwer for this long back from this site. The code was writted by Mr. Krishnakumar
the thread is here :[url]
i need some changes to be made in this code. The existing code creates and updates the details in the sheets automatically from the master data. I just need the sum of Column I in all the sheets after the last row of Column I.
selecting all the sheets and typing the formula in I column is not possible because, the last row in Column I is different in all the sheets.
In sheet 1, the last row of Column I is Row 15, in sheet 2 Row150 is the last row.
I guess something could be done in macros.
follwing is the existing
Sub TestIt()
Dim sWS As Worksheet
Dim Sellers As Range, Seller As Range
Dim lRow As Long, fRow As Integer
Dim CopyRng As Range, ws As Worksheet
I have 3 sheets: 1: master entry sheet that fills data in 5 different excel docs. Then there is another doc that aggregates data from the 5 and presents totals on the data. I am trying to get the end result without having to have 7 different excel files open, but when I enter into the master entry sheet, the data doesn't seem to be "pushed" up to the 5 different docs until each one is opened up. Obviously, the master aggregator is not updated since the 5 don't have the new data. When the files are all opened at the same time, the data flows perfectly, I'm just trying to find a way to avoid having to open the 5 docs in the middle of the process.
View 9 Replies View RelatedEach monday i get a new price list from our supplier. My job is to compare this list with ours and update if neccesary. The reason, why I'm writing here is simple -I need to automate the process. Since their and our pricelist is somewhat different, it's only possible to use selection comparison. So, I need something that can do this:
1. First I open those two files and make a selection on both of them (like all the apples on the supplier list and all the apples on our list)
2. Push a button that executes a code
3. The code compares a value in the first column
4. If it finds a match, compares the data in second column
5. If data is same, color the cell (or the text) lets say yellow
6. If data is different, update field in our pricelist and color the cell (lets say red), so I can find and recheck it later
7. If the supplier has a _new_ product, the code will insert it somewhere in our list. Doesn't matter where, it may as well be a new sheet
8. Compare the next cells in selected area
I have a text box in a USERFORM .Have the following code associated with the text box. (which perform basic arithmetic.... e.g. If engineers wanna key in 39+137, instead of 176.)
[Code] .....
When I run the userform, the userform’s INITIALIZE procedure populates the textbox with value from a cell in the spreadsheet. When I delete the value completely , it gives error almost instantaneously:
Error is "Could not set the value property. Type Mismatch".
I have multiple sheets all of which are identical except for the number of rows containing data. I have been trying to create a macro to update these sheets into one 'Master' sheet but I'm having great difficulties due to me needing to leave Column A and Row 1 blank.
I have uploaded example data of what I am after, sheets 2 - 6 need to be automatically updated to the 'Master' sheet when the macro is run.
I am trying to modify the macro that I have put together so that it executes only specific worksheets within a single workbook. In this example, I would like the macro to update worksheets A, B, and C but I have more sheets in my actual file. I am only able to get the macro to work on the active sheet. Attached is my workbook.
VB:
Sub HideColumns()
Application.ScreenUpdating = False
Dim myRange As Range
For Each myRange In Range("B5:M5")
[Code] .....
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
So, I'm setting up an accounting book. There's a master sheet that needs to pull from the other sheets that are made. The problem is, with each new sheet that is made, I have to update the formulas on the master. I would like that if I made a new sheet, the master would automatically pull from it.
Example:
Master pulls renter fee info from May 3rd, May 7th
I create sheet (May 15th)
Master pulls renter info from May 3rd, May 7th, May 15th
I have a price list from my supplier with the new prices.
I then have my Accounting software where I need to update the cost and retail prices. The problem I have is the Accounting software has allocated it`s own Unique ID for each item. So in order for me to bulk import this I need to keep this unique ID with the Actual Product ID together otherwise it will duplicate the product.
Here is a example
Sheet to be updated (Cost and Retail only) from PRICE LIST SHEET
Uneque ID
SKU
[Code].....
I want to delete all sheets except for one named "Start"
View 3 Replies View RelatedI need to delete Row 1 of all on all open sheets in a workbook(meaning that hidden sheets should not be affected).
View 1 Replies View Relatedcode that would read the current spreadsheet names of the workbook and then delete some of those sheets.For example the current sheet names are:
Input
Budget12
Budget13
Sheet4
Sheet5
Sheet6
The code needs to delete all the sheets other than the following: Input, Budget12, Budget13. if the code could ignore sheet name that contains text "Budget" rather than ignoring Budget12 and Budget13. That would make it more dynamic.
How sould I remove (2) from sheets names
Like sheet1(2) change into sheet1
I would like to delete all except one sheets in the workbook by pressing onto a button. So I wrote the folllowing code (its obviously only a part)
Application.DisplayAlerts = False
For Each Worksheet In Worksheets
If (Worksheet.Name "Instructions") Then
Worksheet.Delete
End If
Next
Application.DisplayAlerts = True
and put it into a Module in the same workbook. The button itself is in one of the sheets to be deleted, so I assign a simple macro to it which is just calling the code above.
Well, sounds simple, but it does not work, with "Subscript out of range" error at the attempt to delete one (not the first one) of the sheets.
Searching around suggested that the problem appears when the worksheet I try to access does not exist (missspelling of a name or so). but in my code I dont really use it.
