I don't know if title is understandable, English not being my tongue, anyway here's my problem, the current value must be increased or decreased by 0.01 if it's between 1 and 2, by 0.02 between 2 and 3 and so on. I'm really new to VBA and after a few hours I came up with the following code which works fine till the value of 6 and then gets stuck: ....
View 14 Repliesi'm looking for a loop macro to perform the following task:
Sheet 2 is my look up table, and sheet 1 as a number of references such as:
='Sheet 2'!B1
='Sheet 2'!E1
='Sheet 2'!G1 etc
I need a macro that increases the row references "1" to "2", saves the sheet then increases "2" to "3" and so on until the bottom of the reference table is reached
How can we convert time on a scale of 100 to a scale of 60?
View 3 Replies View RelatedI am looking for a way to avoid the circular reference issue. I would like to monitor a cell that is being incremented and decremented so that I can automatically retain the highest and the lowest values that were entered into that specific cell over time. Since the data is only entered into that specific cell and not retained in for example a column, the MAX/MIN option is not usable in this case.
More simply stated, is there a way to put a formula in a specific cell ( A1 ) that will equal the target cell ( B1 ) only when that target cell ( B1 ) is greater than A1?
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 RelatedWhen I protect the worksheet with the spinbutton, the spinbutton is no longer accessible. How can I modify the code below (provided by Leith Ross) to make the spinbutton accessible in a protected sheet?
View 3 Replies View RelatedThe script it's almost all complete and it'already working. How works this script:
From the Combobox_click i load a txt file, the script from the txt file get only the first column of the file. Its a list of numbers.
When this list of code numbers it's loaded in the Combobox_click, for each code number in the image combo box there is a one corrisponding image. For the images folder in the cell J2 the is a one Path reader. the scrip work perfectly.
What i need:
As you can see, under the image combo box, there is a SpinButton.
I need that by clicking the Forward or Back button i can go forward or back of the images list.
I have a spinbutton on a userform. Here is the section of code for SpinUp:
[Code]....
Normally, I wouldn't hard code an address in like this, but I was given a last minute project to present on Monday, so it's down,dirty, and quick. Anyways, the adjacent cell "O7" has a formula referencing another page. When I spin the spinner it activates the correct cell (and continues to do so as long as I press the button), but here's the wierdness: cell "07" formula disappears, leaving the existing value in it. It's like it copy pastespecial values.
I've stepped through the code and it's not referencing any other procedure. It happens on this line:
[Code] ....
I use spinbuttons to increment 3 data cells (C7:C9). These cells are used as entry data for some calculations and also trigger some macros via change event. Every time I use them the workbook crashes, this is only since I modified one of the instantiated macros that sorts a table on another sheet. See below the spinbutton code with the call of the macro and further the code of the sorting macro:
Private Sub SpinButton1_SpinDown()
Range("C7").Value = Range("C7").Value - 0.05
End Sub
Private Sub SpinButton1_SpinUp()
Range("C7").Value = Range("C7").Value + 0.05
End Sub
Private Sub SpinButton2_SpinDown()
Range("C8").Value = Range("C8").Value - 0.05
End Sub......................................................
I’m using this code to change the value of an active cell with a spinner named: 1.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lNum As Long
If IsNumeric(Target) Then
lNum = Target
If lNum = Target And Target >= 0 Then
With Me.Shapes("1").ControlFormat
.LinkedCell = vbNullString
.Value = Target
.LinkedCell = Target.Address
End With
Else
Me.Shapes("1").ControlFormat.LinkedCell = vbNullString
End If
End If
End Sub
The problem is, that whenever I click or activate a cell its value automatically changes to 0. The spinner works just fine modifying the value of the activated cell. The problem is that this code somehow causes all the decimals such as 0,3 0,1 or 0,8, entered manually, to change to 0. This way only integral numbers, such as 1, 45 or 100 are accepted. I must truly say I have no [no need to swear - mod] idea how to fix these problems meaning the automatically inserted 0 and the fact that the sheet doesn’t accept decimals changing them to an integral number.
I want to be able to link spinbuttons to the cell it is located in automatically, so I can move it around or copy and then paste into other cells. I do not want to use one button to increment a selected cell.
View 1 Replies View RelatedTextbox and SpinButtons, there is code for changing the date in a textbox by using a spinbutton. I have tried to use some variation of that for the purpose of changing time but to no avail. What my intention is, is that if someone enters 12:00 into TextBox that SpinButton_Up or SpinButton_Down can change the time to 12:01... or 11:59... respectively, and so on.
[URL]
I'm developing a local timesheet userform application and want to capture times which may be greater than 24hrs using a textbox/spinbutton pairing.
I've managed to pair up and work with times up to 24hrs but the output always resets after 23:55.
I've also tried formatting the output as "[h]:mm" but without success.
Private Sub sbDTime_SpinUp()
With ctrl2
If .Text = vbNullString Then
.Text = Format(TimeSerial(0, 5, 0), "hh:mm")
Else
.Text = Format(TimeValue(.Text) + 5, "hh:mm")
End If
End With
End Sub
Private Sub sbDTime_SpinDown()
With ctrl2
If .Text = vbNullString Then
.Text = Format(TimeSerial(0, 5, 0), "hh:mm")
Else
.Text = Format(TimeValue(.Text) + 5, "hh:mm")
End If
End With
End Sub
For example, if my graph currently shows B1:L1 range, how by clicking a spin button to make the graph show B2:L2 range?
...
I'm trying to create a userform to act as a walk-through for a process. I've settled on using a multipage to conserve the required screen real-estate, and break the process into natural 'stages'. I've happily got these stages fixed into the userform's pages, with a couple of command buttons running events OnClick - but cannot figure how to get the spinbutton to navigate between the pages.
View 5 Replies View RelatedI have an Active X SpinButton control directly on a spreadsheet that changes the input cell. (The idea is that later on, there'll be a bunch of these input cells, accompanied by their respective SpinButton controls).
I'm allowing the user to define the Min, Max, and Step (SmallChange) value of the SpinButton because (1) I need it to do decimal points and negative numbers and (2) that's what my boss would have wanted.
So I set the Min, Max, SmallChange value in the SpinButton properties to "0" then try to manipulate them in the VBA code.
What went wrong with the code is hard to explain. But basically, when I use the SpinButton to increment or decrement, it didn't quite do it correctly. If I fix the increment part of code, then the decrement part of the code goes wrong and vice versa.
An example: I have Min as "0.5%" in cell B7; Max as "4.5%" in cell B8; and Step (SmallChange) as "0.5%" in cell B9. The Input cell is in cell B10 where user can either type in a value within the defined range (enforced by data validation) or use the SpinButton to change the value.
To replicate the problem: I type in "1.0" in the Input cell and click on the left SpinButton and it would not allow me to go to the defined lower limit (which is 0.5%) in this case.
Here are my codes:
Private Sub SpinButton1_SpinUp()
Dim MyMax As Variant
Dim MyStep As Variant
Dim MyInput As Variant
MyMax = SpinButton1.Max + Range("B8").Value
MyStep = SpinButton1.SmallChange + Range("B9").Value
MyInput = Range("B10").Value...................................
I have a userform with a listbox set to a range of numbers from 1-10, I would like my userform to expand/collapse dependant on the number within the listbox. The problem I am having is the forms height does not adjust from using the toggle controls only when you select back into the listbox itself.
Private Sub ListBox1_Change()
If Me.ListBox1.Value = 1 Then
Me.Height = 180
End If
If Me.ListBox1.Value = 2 Then
Me.Height = 210
End If
If Me.ListBox1.Value = 3 Then
Me.Height = 240
End If
End Sub
I have tried using click/after change events however I get the same response. Am I missing something from my code or should I be using another control (SpinButton for instance).
I have a large database, and I wrote a macro to update it. However, the sheer volume of data makes it difficult to update at once (without crashing my machine), and I would like to know if there is a simple way to run the macro in increments ---say, 2,000 rows of data at once. Just wondering if these is an efficient way to code this, rather than hardcode partitions into visual basic.
View 2 Replies View RelatedI attached document, in that document I made formula in Pressure cell which is INDEX MATCH MATCH to get the result.
But what I wanted is, when I type 10.4 in Temperature cell, the Pressure cell will show the result which is 1261.24 directly without I have to fill in two temperature cell to make it 10.4.
Below are the equations in 3 cells. They are averaging intervals of 7 cells without overlap.
=AVERAGE(A2:A8)
=AVERAGE(A9:A15)
=AVERAGE(A16:A22)
If I autofill, Excel does not seem to be able to recognize that pattern. Instead, Excel adds 1 to each row so that the fourth cell is as follows:
=AVERAGE(A17:A23)
But rather, the fourth cell should be the following:
=AVERAGE(A23:A29)
Is there a way to autofill with the 7 cell intervals?
Suppose I have an optionbutton named for each day in February, say Feb1, Feb2, Feb3, etc. Would the following code do what I want it to do?
View 4 Replies View RelatedI am trying to make a bill of materials using excel. The material is 10' sticks of pipe. What I want to accomplish is have a column (column A) with the lengths used in inches and have it show me the total amount of pipe used keeping in mind that once you hit 120" you have to start a new stick of pipe.
For example: If I used 40 inches I have 80 inches left over... But if column A read (40", 90", 60") I need it to know that the 40" will be cut from one stick, the 90" will need to be cut from a new stick, and the 60" can be cut from the left over of the 40" cut.
For i = 10 To 260 Step 10
iStrg = i
cntrl = "A" & iStrg
Range(cntrl).Value = i
Next i
I have been trying to use this code which displays 10 in A10, 20 in A20, 30 in A30....etc. What i am trying to do is display 0 to 260 with a step of 10 in the cells A2 to A28, could anyone be of assistance?
I have a column named "Time" and when I enter the data in the first row (for instance 6:00), I would like time to be inserted in the rows below in 5 minute increments.
But as an addition, I would like an input box that requires the end time. For instance, if I enter 6:00 in the first row, I should have a input box requesting me to enter end time. If I enter let's say 8:00, then time (in 5 minute increments) should be entered until time is 8:00.
Is it possible to do this in Excel? If it is, how would I go about it?
How do I write a formula to round the decimal places in a number in set increments. For example;
a) 14.28 to the nearest 0.25 would result 14.25
b) 1.99 to the nearest 0.1 would result 2.0
c)2.97 to the nearest 0.25 would result 3.00
I need an equation that will take time and turn it into quaters increments. Meaning, If we work on a computer for 1 hour and 15 minutes (1:15) then i need it to say 1.25.
1:00-1:15 =1.25
1:15-1:30 = 1.50
1:30-1:45 = 1.75
1:45 - 2 = 2.00
and so on... up to 3 hours.
If E2 = 1:00-1:15 then F2 =1.25
If E2 1:15 then F2 = 1.50
I have a chart which has horizontal gradients in increments of 500. For example, $500, $1000, $1500, etc. Is it possible to make one of the horizontal gradient lines which run across the chart, darker than the other horizontal gradient lines? For example, if a "goal" is to reach $2000, can I make that horizontal line in the chart darker than the lines for $500, $1000, $1500, etc.? I am not talking about the bars that run vertically for each data, but the lines that run horizontally across the chart.
I dont know if this can even be done in a chart or not.
I have a set of number in worksheet IN:
A B C D E Columns
41.0141.0241.0341.0441.0
42.142.242.342.442.
43.0143.0243.0343.0443.0
44.144.244.344.444.
45.0145.0245.0345.0445.0
46.146.246.346.446.
Datarows increment by 1. I need to map these to another workbook worksheet named OUT
to rows that increment by various amounts 1,2,3 ....10) i.e..............................
My employer gave me a life insurance "Rate per Age" chart to convert to an Excel spreadsheet.
The chart shows rate increases in 5 year increments starting at age <29 and increasing in steps as follows: 30-34, 35-39 through 95-99.
If I input an employee's birthdate I am hoping to calculate the date when he/she will hit each 5 year step increase.
I'm trying to write some VBA code that can vary an undefined number of variables from a certain value to a certain value and by a certain increment. I know I can do this using For, from to step function but I could potentially have as many as 60 variables that need to be permuted and as little as 1.
For example:
Permute variable 1 from 2 to 6 by 2
Permute variable 2 from 6 to 8 by 1
should output
2 6
2 7
2 8
4 6
4 7
4 8
6 6
6 7
6 8
how to make this code efficient instead of writing 60 for loops? that could either be used or not?