I have a report blank that is comprised of numerous excel worksheets (fixed letter size). During the completion of the report, one may add, delete, and/or move worksheets. I want each worksheet to have a cell that dispalys 'page # of total number of sheets'. Is there a way to automatically update this information?
View 4 Replies
I'm trying to create a bug reporting tool (with a bunch of text boxes and drop down lists) and have the following problems...
1. I would like to get a unique number inserted automatically in a textbox (it's supposed to be the bugs id (1001). How do I do this? And when I click OK after inserting all info I want this number to become +1 so the next defect can be added immediately.
2. Why are my drop down lists empty as default and their values only appear if I enter a value. Why aren't the lists displayed when i just click on them?
3. I have a multipel row text box. How do I get the text to jump to the next row automatically instead of using crtl + enter?
I have got 2 sheets:
- list (list of transactions)
- accepted (accepted transactions).
I want to make macro, which will:
1. select max value from sheet.accepted "B:B"
2. enter max value +1 in sheet.list "B8"
3. automatic fill down from B9 to the end of list with number increasing by 1 (in B9=B8+1, in B10=B9+1 etc.)
I tried with this:
The context of my question is "Invoice Numbering".
I would like to have a sheet where I can have an incremental number. Every time I run the macro it should strikeout the last number and it provides me an incremental number.
I used such a sheet in a previous job and I cannot find it online.
After entering some values in a form I want to get a unique id for that record to be displayed in a message box and thereafter inserted into column A in the same row as the rest of the information. The numbering should be 1, 2, 3 etc and when I use the application the next time the id displayed should be the next number. This is what I've got so far, but now my unique id is always 1 (not very unique at all).
Private Sub UserForm1_Initialize()
Dim rIds As Range
Dim MaxId As Long
Set rIds = .Range(Cells(A, A), Cells(Rows.Count, 1).End(xlUp))
MaxId = Application.WorksheetFunction.Max(rIds)
With Me.IdBox.Value = MaxId
Private Sub DateBox_Change()
DateBox = Format(Date, "yy/mm/dd")
End Sub
I would like to ask for some assistance to my Spreadsheet problem.
To illustrate my problem please see below:
1------------> Level 1
1.1----------> Level 1 Sublevel 1
1.1.1--------> Level 1 Sublevel 1 Item 1
1.1.2--------> Level 1 Sublevel 1 Item 2
1.2----------> Level 1 Sublevel 2
1.2.1--------> Level 1 Sublevel 2 Item 1
1.2.2
2
2.1
2.1.1
2.1.1
2.2
and so on
I need to have a formula to automate the adding of outline numbers from "Level 1, Sublevel 1, Item 1..." So that if I deleted or added a row, the rest will automatically update themselves.
I will be the one manually inputing the Top Level and Sublevels I just need that the Items will be automatically added and computed basing from the previous level.
What I am planning to do is:
1. Check previous cell if the format has two decimal points or periods --> kinda stuck here
2. If there's only one then it will be the Sublevel 1 Item 1 (or depending to its location)
3. If there's already two periods "." then it will compute automatically for what item it is already.
ie:
1
1.1
1.1.1
1.1.2----->Checks the previous cell if it has 2 decimal places then if it does then it will add 1
I am trying to work out how to automaticaly fill in the next number in a sequence of bespoke numbers like this in column B 1012-0153-70, next 1012-0153-71, next 1012-0153-72 and so on so when i click on the next open cell in column B it adds the next number in the sequence
I have the following VBA code in my Sheet:
Private Sub Worksheet_SelectionChang()
With Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
If Target.Address = .Address Then
.Offset(-1, 0).AutoFill Destination:=.Offset(-1, 0).Resize(2, 1), Type:=xlFillDefault
End If
End With
but nothing seems to work. i also have the following VBA code on the same sheet:
Private Sub ComboBox1_Change()
End Sub
Private Sub Calendar1_Click()
[Code].....
is possible to add a hyperlinked TOC (Table of contents) within a spead sheet (Excel 2003) like it is possible to do in Word. Also how do I go about sequential numbering of rows with sub numbering as shown below? Where if i add a row between 1.2.2 and 2 it would be 1.3.
1
1.1
1.1.1
1.1.2
1.2
1.2.1
1.2.2
2
I'm wondering if this is the way things work and there's nothing to be done about it (but I doubt that). I have a workbook that I load data into from a csv file. The csv file is "divided" into regions, and I want each region's group of data to be loaded into a separate sheet. To be on the safe side, I delete all the sheets before loading the data with the following code that I found in this forum
Sub delete_all_sheets()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In ActiveWorkbook.Worksheets
If sh. Name <> ActiveSheet.Name Then
sh.Delete
End If
Next
Application.DisplayAlerts = True
End Sub
Then, for each new region, I create a new sheet with the following code
On Error Resume Next
sheet_nr = sheet_nr + 1
Sheets(sheet_nr).Activate
If Err.Number <> 0 Then
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
End If
On Error Goto 0...............................
So I have a guest list workbook. There are two sheets. On the first one is a list of names on Column A. On Column B is a classification: 'C' if confirmed; "D" for declined; "I" for pending. I want to have all the names with "C" on sheet 1 appear on sheet 2 automatically.
View 4 Replies View Relatedhow to merge data automatically in one sheet (master sheet) from specific sheet with different name sheet but same format?
Adding, deleting or editing should be automatic update to master sheet.
For example:
Sheet name:
Sheet 1: Salesman 1 - with data range A10:F310 (as his data file)
Sheet 2: Salesman 2 - with data range A10:F310 (as his data file)
Sheet 3: Salesman 3 - with data range A10:F310 (as his data file)
Sheet 4: Salesman 4 - with data range A10:F310 (as his data file)
Sheet 5: Salesman 5 - with data range A10:F310 (as his data file)
Sheet 6: Salesman 6 - with data range A10:F310 (as his data file)
Sheet 7: All Salesman - - with prepared data range A11:F2000 (as master data file/record for 6 salesman)
Column Name as a Header:
A10: Customer Number
B10: Customer Name
C10: Salesman ID
D10: Promotion Type
E10: Promo Item
F10: Free Item
I have an automatic macro that runs from every sheet but is only based on one sheet. I had to protect the worksheet and in order to make the macro work I had to add an unlock and a lock code. The problem now is every time a user enters something it looks back to the other sheet and then comes back. Is there a way to prevent the user from seeing this. See code below
Private Sub Worksheet_Calculate()
Sheets("Profit Calc Local Currency").Unprotect Password:="hspricing1"
Application.EnableEvents = False
Dim lr As Long
lr = Cells(Rows.Count, "XEA").End(xlUp).Row
Range("$XEA$1:$XEA$" & lr).AutoFilter Field:=1, Criteria1:="1"
Sheets("Profit Calc Local Currency").Protect Password:="hspricing1"
Application.EnableEvents = True
End Sub
It i a sheet to calculate my nutrition. But since the sheets has grown to get bigger and bigger (and fortunately me as well ) some bugs has started to appear. This is really annoying and I have to use another sheet with less values in it which I can use manually on the side since it seams to only work properly when less values is entered in the sheet.
Open the file attached. The first sheet called "oversikten" is where you can see the trouble. The gray fields you can edit freely and in these fields you should be able to insert a type of product (food) which also is in the list in the nexy sheet called "produkter", and the first sheet should then automatically get the values for the written product given you have written the exact same word as the product in the list (list: in the "produkter" sheet). But for some reason this has stopped working. Now only a few in the beginning of the list is working as it should and most of the products will not be transferred to the first "oversikten" sheet. I've only copied codes and stuff so I have no idea what is wrong and how to fix this.
fix the codes in the program so that any product written in "oversikten" will get its correct values transferred from the "produkter" sheet for all the registered products now and for the new ones I enter in the future. I love this little nutrition program of mine.
I have only two sheets..first sheet is the user sheet where the user gives the data...second is the sheet where in we get the result according to user given data..
there is a cell in User sheet where User gives a Number. for example " 8 "
so sheet2 : here we have only 9 rows. as user gave "8" the fisrt 8 cells in the first column should see like this
B 01/08 , B02/08 , B03/08 as so on till B08/08
when user gives 9 in user sheet
then the first sheet is finished with all the 9 rows ending with B09/08
when user gives 10...then sheet 3 should automatically appear with the first row and first colum saying B10/08.
when user gives 20 in user sheet...then sheet4 should appear with last number as B20/08
so each sheet is having only 9 rows..
first sheet ends with B09/08
second sheet ends with B18/08
third sheet ends with B27/08
How do i do the automatic linking on the excel sheet like the one done on the following example
Book1.xlsx
What I have got is a list of exams and subjects on the first sheet from cells A3 to A whatever. This list varies in length from a few exams to many dozens.
Under each exam is a list of subjects.
i.e.: Under the math exam is addition. multiplication, division etc
On columns B through ZZ and beyond. I have individuals names.
Under those individuals names (opposite the exam row) I have pull down boxes saying if the individual has passed failed or did not sit .. etc.
What I would like to be able to do is to automatically generate a second sheet with the individuals name on it with a report of what exams they took with what result. Of course it would be nice it was nicely formatted with the headings of all the different exams and the subjects taken arranged in order.
If an exam was not taken it should not appear in the generated sheet
I have a fairly good knowledge of Visual Basic though I have not had much to do with VB for scripting.
I have a sheet that I need to turn on auto calculation when selected. The problem I need to turn on auto calculation as well as sort another sheet "test" I do not know how to as the other portion of the code. attached will not work because it just runs in circles.
Private Sub Worksheet_Activate()
'THIS IS A SEPARATE SHEET THAN WHAT I NEED TO SORT FROM
Application.Calculation = xlCalculationAutomatic
Sheets("6180").Select
Application.Run "'BILLET-SLATE P414D working copy.xls'!Sortbypeprorprd"
End Sub
When I creating a Pivot Table Report on a different sheet. I have attached the Stock Report, where I have created a Button at the top to create the report, but the worksheet name is the default Excel name rather than the one that I want (in my case the name of the new sheet should be "Admin".
View 3 Replies View RelatedI am trying to make some sheets with football teams from one championship and their results. For example i will have a match between TeamA vs. TeamB that will end 0-0. I will enter this value in the sheet for the TeamA results but normally this value will also be found in the results sheet of TeamB.
My question is, how can i make excel copy this value once i enter it for TeamA in the results sheet for TeamB.
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.
At work I have a register/log. Its just a printout of a standard format in excel sheet. I print a month of sheets at a time and write the day and date on it by hand at the top. Is there some formula in excel by which it prints the dates as well in a progressive manner. Eg. If today is 29th May 2014 and today I print 30 copies of the register/log. The first copy has todays date on it and the the next one had tomorrows date....and the 30th copy automatically has the end of April 2014 printed on it.
I've found this code but cannot get it to work.
My workbook is called Shift Log, the worksheet is called v2 and I'm using Excel from MS Office Professional Plus 2010 (32bit)
#Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
Dim sDate, i
retryDate:
sDate = InputBox("Enter the starting date, or click 'OK'" & _
" for the current date", "Start Date")
[Code] .........
this is a competition scoring sheet
i want to add this automatically
when i enter chest number then the name of winner and team name want to come automatically and the pointing also (see sample)
point first 5 point second 3 third 1
how to do this
I have a huge spreadsheet requiring me to manually enter alot of fields with formulas. I am using the formula
=COUNTIFS('A1'!C10:F11,Statistics!K5)+(COUNTIFS('A2'!C10:F11,Statistics!K5))+(COUNTIFS('A3'!C10:F11,Statistics!K5))
The full formula is quite long as this pick up the data off over 300 work sheets. (there's probably an easier way to do this aswell) When I copy or drag this to another cell with on the same worksheet it gives me the correct formular with the correct cells changes as I want. However this formular does not work. I have auto calculate on and I manually press enter on the cells and still nothing. If I change the following for the entire formula (about 8min to do each cell) it works
=COUNTIFS('A1'!C10:F11,Statistics!K5)+(COUNTIFS('A2'!C10:F11,Statistics!K5))+(COUNTIFS('A3'!C10:F11,Statistics!K5))
Is there an easier alternative then manually changing each number?
In sheet1 (SA Awards) I have the source table for my pivot table in Range ("A1:G50"). In sheet2 (Team Listing) my pivot table is located in Range("K2:S13")
When I make changes in sheet1 I need my pivot table to update, I recorded a macro to refresh, however have only got it to work via a button & only if Sheet2 is unlocked
Sub PivotTableUpdate()
Sheets("Team Listing").Select
ActiveSheet.PivotTables("PivotTable8").PivotCache.Refresh
Sheets("SA Awards").Select
Range("B2").Select
End Sub
1. How can I get this to work in the Worksheet_Change Event?
2. How can I password protect Sheet2 & still have it work?
I want to select an automatic colour scheme (font) for an Exel sheet. It has 3 columns with values. If the coloums are A, B & C I want to mark the higher value in red. If B is higher than A, B should be red. Again if C is also higher than B, then C also should be red... like that. Values should be read row-wise. How can I do this using a formula?
View 1 Replies View RelatedI have a workbook with so many sheets as the working days of a month. I also have a Master sheet.
The sheets are named as the dates. Example: 020113 , 020113, 030113......etc
In the Master sheet, first column has ALL working dates of the month(i don't care about Holidays).
First row of this sheet are headers.
My goal is from the sheet of the certain date of the month automatic copied certain cells values(same in eatch sheet) to certain cells in Master Sheet.
How to come up with solution for preparing monthly time sheet for each employee from master sheet automatically by entering details in master sheet (Master sheet is all employees attendance sheet).
Just by entering data in master sheet it need to copy data to individual employee sheet. If I enter new employee name in master sheet can it creates one new sheet with same format by itself?
Data are
Project, Emp Name, Position, Date, Day, Time In, Time out, Overtime or under time (if any)
I have total 30 employees and it is increasing day by day
how to get a single cell (C2) and (D2) to make the numbering format go from (## ## ##) to (######).
The Excel spread sheet is a coordinate converter, designed to take Degree's minuets seconds and convert it to Decimal Degrees, the formula is set up and work Great, but every time I copy and paste the coordinate to the excel spread sheet, i have to manuelly erase the spaces between the numbers so the formula can work properly. How can i get the cell to automatically delete the space between the numbers to save me time.(I.e 29 35 42.34325 -to-> 293542.34325)
I would like to know if there is a way to Auto number a text.
I have a column with text tags (lets say Column B). These cells look at a specific cell (ex. A1) and see what text is written in it then copy the text into their own cells B1, B2, B3 and so on. So if cell A1 reports AAA then Column B cells become AAA all the way down.
Now what I like to do is for column B cells look at A1, copy the text and add _01 infront of their copied text. so for Column B, B1 reports AAA_01, B2 is AAA_02, B3 is AAA_03 and so on
I've been given an excel file with 75 addresses (1 address entry per row) and I have to make 150 copies of each address while also numbering column D for each row 1-150.
So in the end it would go from: (sorry for the periods.. extra spacing didn't work!)
A........B................C.......D
AAA...123 Street...City...<blank>
BBB...456 Street...City...<blank>
CCC...789 Street...City...<blank>
To:
A........B................C.......D
AAA...123 Street...City...1
AAA...123 Street...City...2
AAA...123 Street...City...3~
AAA...123 Street...City...150
BBB...456 Street...City...1
BBB...456 Street...City...2
BBB...456 Street...City...3~
BBB...456 Street...City...150
CCC...789 Street...City...1
CCC...789 Street...City...2
CCC...789 Street...City...3~
CCC...789 Street...City...150
I don't mean to be lazy and just ask for a macro code, but I'm a complete excel novice and just looking for a quick and easy fix rather than copy/pasting these entries manually.. edit: this file has a deadline for it, which is the reason for the quick fix not to just get out of learning how to do it
I've tried to make a macro consisting of inserting a row, copying a row then pasting it, but that only worked for the first row that I'm duplicating.
