I have multiple worksheets (too many, actually!) and each worksheet is a record. I need to enter a Record Number into B5 of each sheet. The Record Number doesn't start at 1. I'd like to enter a number into the first sheet and the rest of the sheets to increase by 1. However, I only need to do this to some sheets.
View 9 RepliesI have a macro that increase a cell number and one that decreases a cell number, heres my code:
Code:
Sub Macro1()
Dim t
t = Split(Worksheets("Sheet1").Range("d5").Text, "/")
t(0) = Format(t(0) + 1, "0")
Worksheets("Sheet1").Range("d5") = Join(t, "/")
[Code] .......
So they do exactly what i want them to do but i want to put a limitation on them, so say the number in the cell is 0 then i dont want it to be able to subtract from it anymore, and say the number is 20 i dont want it to be able to add any more, i tried to put if statments into the code but no luck.
Our business has a spreadsheet set up for invoicing. A Macro has been created to increase the invoice number, save to the desktop as a PDF with a file name taken from the cells
This is working on my colleagues mac but when we've loaded onto my computer it errors, when I debug I am getting the following error:
Sub Macro3()
'
' Macro3 Macro
'
'
Range("g10").Select
[g10] = [g10] + 1
[Code] .......
I have two worksheets and each one has it's own number. Sheet1 has "100" and Sheet2 has "101" and they're located in "A4" on each. Each sheet will have a control button that will be pressed when a sheet is complete. The control button will clear a range of cells "B5:C20" and increase the sheet number in "A4". So if you press the control button on Sheet1 the range will be cleared and the number will change to "102" since Sheet2 is already using "101".
View 2 Replies View RelatedI found the code below on the Microsoft website and it works except it didn't treat the worksheet tabs as numbers so the sort is 1, 10, 100, 101 etc.
How can I get it to treat the worksheet values like numbers and sort accordingly?.
Code:
Sub Sort_Active_Book()
Dim i As Integer
Dim j As Integer
Dim iAnswer As VbMsgBoxResult
'
' Prompt the user as which direction they wish to
' sort the worksheets.
'
[Code]....
' If the answer is No, then sort in descending order.
'
ElseIf iAnswer = vbNo Then
If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move After:=Sheets(j + 1)
End If
End If
Next j
Next i
End Sub
formula to put in microsoft excel 2003 to increase a number by 10%, so for example, 20 by 10%.
View 10 Replies View Relatedwhat i need is a macro to run when I print a form. I am making a job card with a unique number on it ie: 100. when I print the form, I then need the 100 to change to 101 and so on. I cant work this one out.
EDIT - Ive attached my work in progress. It is for a computer repair shop. I have a few macros in there as I need to email a copy of the workbook too.
when you open the workbook, you will see the job number in red. I just need a macro tht will increase that number +1 every time it runs. I also need the email macro to rename the workbook to the customer name input in cell B4 - but I think im best to post this request in a new thread?
I have data to find standard deviation from a1:a5
So use a formulae to do the same.
I want to increase range automatically when i put a number in a6 and so on.
in cell A1 I have a ref no. eg aa/01/bb
in cell A2 I have a ref no. eg aa/02/bb
only the middle number increases in the reference each time eg: /01/
is there a formula that can achieve this or am i doomed to manual input, I have made a few attempts but cannot work it out.
I have what is probably a simple request to all the VBA experts out there, and simply want to take a template sheet in a workbook and copy it across to 100 sheets numbered/named 101 -200, and add the name of each sheet as a text reference, e.g. sheet name 101 will have a cell within the worksheet that refers to sheet 101.
I have attached a simplified spreadsheet which indicates what i'm trying to achieve.
writing a formula for the situation below,
In column "A1" i have the formula =C8. I now need to copy this formula across to column "B1" to get =C9 and also copy it across to column "C1" to read =C10.
So the row number should be increasing by 1 and the column remanin constant.
I need to be able to select a certain number (from, say, 1-20) from a drop down menu, which will decide a number of rows (filled with data) on the next sheet. As I prefer not to give anyone the sheet I'm actually working on I made a quick look-a-like which might explain this better.
A and B are different scenarios, with different values in the fake drop-down menu I made. Just to pass on the understanding of what I want the values to do. If putting a drop-down menu there is troublesome, then I can live without them. But entering a certain value in the field and getting that number of rows for a certain product is what I need. I tried searching for a function/macro to use for this, but I dont know what exactly to look for. Name, etc
I created an receipt template in excel. How can I have it increase the receipt invoice number by 1 every time I open this template? For example the first receipt is 100, I want the second receipt to be 101, and so on.
View 4 Replies View RelatedHow can i format my excel spreadsheet cell so that a number
10,000,000
displays as
10
I am trying to write a program that needs to select a different cell everytime it is ran. For example, this month when it runs I need it to select cell BL137. Next time it is ran it will need to select cell BL138. Month after BL139. The cell it selects will always be in the same column (column BL) and the cell number always increases by the same amount (1).
View 6 Replies View RelatedI have set the check boxes for each line. I would like to have the today date to appear after clicking the check box on the next right cell. Do I have to use IF for this one?
ALSO I want the number to count up after click the check box. For example:
Name:
Bob (assigned)- 5
(completed)- 4
Every number of completed line increases every time each box is clicked. How can I do that?
I have many data in a worksheet named "Table" with "Item" in column A and "Reference" in column B. For each change of item, I need to assign a reference number with a prefix. Below is a sample of the data.
Column A Column B
Item Reference
Orange R9
Orange R9
Orange R9
Apple R10
Apple R10
Apple R10
Mango R11
Mango R11
The starting reference number is not fixed. It could start from 8 or 10.
Thought it would be possible to automate this process using vba.
I have a test due in the morning, and I really need this question answered ASAP, if anyone could. I need to create an IF formula for this situation: the standard Mhz is 500. Give 55.00 for that standard. But for every increase of of Mhz, give 25.00 per 100 increase.
View 2 Replies View RelatedCan you increase the number of fields shown in the list so that you don't have to scroll through the entire list?
View 2 Replies View RelatedIs there any keyboard shortcut to increase or decrease the number of decimals shown directly (I mean without having to use ctrl + 1... etc )
View 7 Replies View RelatedI am trying to create a spreadsheet that will automatically increase the work order number by 1. The cell will always be in the same place. The idea is that when the file is opened it populates the number. After being closed and reopened the number will be 1 higher than the previous.
The page will reused by various people to create and print work requests for my mechanics, I want it to assign the W/O automatically.
I need an OFFSET function to start off by moving down 1 row from the starting point and then on the next run through the loop, to move down 2 rows, then 3 rows, etc.
Code:
Workbooks(Thisname).Worksheets("Run Set Up").Range("Duration").Offset(1, 0).Value = Workbooks(Filename2).Worksheets("Front Page").Range("T20").Value
This is what I'm working with. At the moment, I have the value for the number of rows to move set to 1 because I can't figure out how I'd accomplsih what I need.
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 am working with 4 seperate workbooks where 4 different people enter data into cells. I have a 5th workbook that needs to have all the data from the 4 individual workbooks bought across so I can see all data. Like a master file. basically, in each cell of the master, I have the following code. =IF('[loans - 0708 - officer 01.xls]07-08'!B5="","",'[loans - 0708 - officer 01.xls]07-08'!B5)
I then have the code for each officer. As there are 24000 lines collectively for the financial year, the size of my master is 37mb, even when its empty, obviously cause each cell still have a formular in it. Is there ANY way to copy across the data from other workbooks without having to have every single correpsonding cell have this kind of formular to view the code? Also, copy it without having to open the other workbooks.
I have about 100 worksheets in my excel workbook and each sheet is identical. I would like to create a control sheet that would add the cells of the different worksheets together and place it in the control. I tried doing it manually but found out quickly that it would take forever since I have a about 10 cells that I need to put on the control sheet.
For example on the control sheet in J11 I want to put in: ='1'!J11+'2'!J11......'100'!J11
Is there a faster way to do this?
I have about 100 worksheets in my excel workbook and each sheet is identical. I would like to create a control sheet that would add the cells of the different worksheets together and place it in the control. I tried doing it manually but found out quickly that it would take forever since I have a about 10 cells that I need to put on the control sheet. For example on the control sheet in J11 I want to put in: ='1'!J11+'2'!J11......'100'!J11
View 3 Replies View RelatedI have numbers in b2 to b5 say
10
22
35
50
I have numbers in c2 to c5 say
1000
1580
3000
45000
I have numbers in cells d1 to kq1 (1 to 300) d1=1, e1=2, f1=3 and so on
What I want to do is:
In D2 through to kq2 it puts the number in to the cell that correspnds to a multiple of the number in b2.
That would put 1000 in cells m2,w2,ag2,aq2, ba2 and so on
In D3 through to kg3 it it puts the number in to the cell that corresponds to a multiple of the number in b3
that would put 1580 in cells y3,au3,bq3,cm3,di3 and so on
I have nearly 200 worksheet in a same workbook. Sheet 1 is the index sheet. Now I need to copy cell values from A1:C1 of all 200 sheets to A1:C1 , A2:C2 , A3:C3...A200:C200 of index sheet. How can I do it automate?
View 6 Replies View RelatedI have a formula that sum' the same cell but on 24 worksheets in the same work book. Each sheet is exactly the same format, just different data.
If I wanted to create a macro that would select say cell ("A1") on sheet1 threw sheet12 how would it be written?
What currently have is a long formula, selecting each cell on each page. Can this be shortened up? Besides holding the shift key.
I am wanting to make a table that shows values from multiple sheets. The individual sheets are essentially a template, and I would like to be able to grab a value from the same cell in different sheets and make a table. Can I do it without having to get each value individually? Perhaps put most clearly, I would like to have a table that shows the value at 'C1' in each sheet without having to manually select 'C1' from each sheet.
View 9 Replies View Related