Spinbutton Incrementing Crashes Workbook

Apr 3, 2008

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......................................................

View 9 Replies


ADVERTISEMENT

Customize ActiveX SpinButton Value - Not Decrementing (or Incrementing) Correctly

Feb 17, 2010

I 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...................................

View 9 Replies View Related

Crashes When Saving Workbook...

Jun 8, 2009

As I've learned to develop Excel apps with vba over the years I've noticed that, if the Excel app starts to get too large (over 1MB) saving it will often cause the application to crash for no apparent reason - the result being that I lose all the vba code I entered before the last save - with the worst case being that, on occasion I have lost all of the vba code in an applications!!!

So, I've learned to back up often using a third-party utility that I use to save my applications, which works wonders in allowing me to save my application without it crashing. The application is called Code Cleaner 97.exe. It was designed around Excel 97 (which I still use) but if possible I'd like to get an updated version for Excel 2003 and Excel 2007, which I also use.

Does anyone know of a more recent version of this utility, or another similar utility that allows large Excel applications to be properly saved, etc?

Code Cleaner 97.exe was a freebie that was available through one of the old Compuserve Excel forums. It was a very popular utility and was suggested as a means to save one's Excel apps without the app getting trashed, etc.

I'm not expecting a freebie solution so I'll gladly pay for something that allows me to save my large Excel apps without them crashing, etc.

View 2 Replies View Related

Add Beforeprint To New Workbook Crashes?

Apr 3, 2007

I’m launching a new workbook, exporting some stuff, basically creating a report. But then I want to add a BeforePrint event to the new worksheet. Both of the macro below works great right up until I change “Sheet1” to “ThisWorkBook”…then Excel crashes.

Sub AddCode1()
Dim VBCodeMod As CodeModule
Dim LineNum As Long
Dim Copybook As Workbook
Set Copybook = Excel.Workbooks.Add
Set VBCodeMod = Copybook.VBProject.VBComponents("sheet1").CodeModule
LineNum = VBCodeMod.CountOfLines + 1
VBCodeMod.InsertLines LineNum, "Private Sub Workbook_BeforePrint(Cancel As Boolean)" & Chr(13) & "if ActiveSheet.CodeName <> ""Sheet1"" or ActiveSheet.CodeName <> ""Sheet2"" or ActiveSheet.CodeName <> ""Sheet3"" then" & Chr(13) & "MsgBox(""This Electronic Outcome Review Summary Report is NOT optimized for Printing......................................

View 5 Replies View Related

Workbook Crashes On Open

Jun 14, 2008

Three times (by three different users) over the past two months, a workbook has gotten into what appears to be some sort of corrupted state. When you attempt to open the workbook you get the "report to Microsoft" screen which states "Microsoft Excel has encountered a problem and needs to close". Proceeding on this screen closes the entire instance of Excel, including the offending workbook and any others that are open. However, if I simply open and save the workbook in Excel safe mode, then it resolves the problem. But, again, it has happened three times so it keeps coming back.

A little more background: there is a custom add-in referenced which contains many custom functions. This add-in is also referenced by other workbooks, none of which have had this problem. The Workbook_Open event only does what I consider to be superficial processing; it hides some sheets, selects a sheet, defaults some shape colors, and defaults a checkbox to True. In other words, nothing too heavy going on at startup, in my opinion. I have tried several times to break into the code between the time the workbook begins to load and when the "report to Microsoft" screen is displayed, but this was unsuccessful.

I was hoping that the fact that simply saving it from safe mode resolves the problem might indicate the problem to someone on the forum. I have a copy of the file in its corrupted state but I have not attached it because it contains some business sensitive information.

View 7 Replies View Related

Crashes :: One Large Workbook Or Many Small Ones

Aug 8, 2009

I'm writing an application in Excel, its a little over 5MB after I've run through UsedRegion and trimmed stuff, 94 worksheets. I'm encountering a fair number of crashes these days. My OS is fully patched as is MS Office. Running Windows server 2003 and Excel 2007.

I was wondering about the pros and cons of writing an application in one large workbook or many smaller ones. So far its been one large one but these crashes are really impeding my progress.

What's the best way to remedy these crashes or even start to diagnose?

View 7 Replies View Related

Crashes When Using Macro To Close Workbook

Dec 19, 2009

I have the following strange problem. A simple macro 'ActiveWorkbook.Close' causes excel to crash if I use it with a button on my sheet (a form). When I run the macro via developer > macros > run
the macro runs as expected. Even if a run the macro with alerts (thanks to jproffer) the problem persist.

View 8 Replies View Related

Excel Crashes When Adding Code To Workbook Via VBA

Apr 9, 2009

The code below resides in my personal.XLS Module. When I step through the code everything works till it reaches the point in red then I get the pop up that says excel needs to close and asks to send or not to send.

I noticed that if I choose recover my work and restart excel and I look at the code in THISWORKBOOK of the recovered workbook that the code I wanted placed there is there.

Can anyone explain why this is happening? I have the macro's security set to low and a check mark in the trust access to vb projects.

Any Idea's how to fix this?

View 6 Replies View Related

Spinbutton Unprotect...

Dec 25, 2008

When 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 Related

SpinButton For Images Control

Sep 28, 2009

The 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.

View 2 Replies View Related

SpinButton Altering Adjacent Cell?

Jun 12, 2014

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] ....

View 1 Replies View Related

SpinButton To Increment By Decimals Not Whole Number

Sep 2, 2006

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.

View 2 Replies View Related

Link SpinButton To The Cell It Is Located In Automatically?

Oct 17, 2012

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 Related

SpinButton To Change Time After TextBox Entry?

Nov 3, 2013

Textbox 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]

View 2 Replies View Related

Spinbutton To Increase By Different Increments According To Current Value Scale

Jan 1, 2009

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 Replies View Related

Textbox/SpinButton - Time Greater Than 24hrs

Jun 2, 2006

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

View 9 Replies View Related

Link Spinbutton To Chart Data Source

Nov 21, 2006

For example, if my graph currently shows B1:L1 range, how by clicking a spin button to make the graph show B2:L2 range?

...

View 9 Replies View Related

Spinbutton To Cyle Backwards/forwards On Multipage Userform?

Dec 8, 2008

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 Related

Adjust Userform Height Via SpinButton Linked To TextBox

Dec 30, 2009

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).

View 2 Replies View Related

Incrementing The Date ...

Nov 24, 2008

Im trying to create a catalogue for our complaints that come in each day at work. Ive created a basic layout I like, it uses 3 cells for a week day and 1 cell for a weekend day. The date is listed on the side of each day. I would now like to be able to quickly use this format for the rest of the month/year but need a way to do this easily as I cant do each day separately in the future. Ive tried selecting cells and then dragging down but all it does is repeat the previous 7 days and the same dates instead of incrementing the date.

Ive attached an image ...

View 2 Replies View Related

Hlookup Not Incrementing..

Jan 10, 2010

Im using the following HLOOKUP formula : =HLOOKUP($B$14,$DA$15:$EH$380,2,FALSE) and I need to drag it down 365 times, but the row index num, ie ‘2’ does not increment with the drag. Is this correct – or is there a way of making the 2 increment?

View 3 Replies View Related

Incrementing The Rows

Oct 1, 2008

If I'm in a worksheet and I spot a row I'd like to copy into my second worksheet, how do I arrange to have it increment the rows?

EX: searching through a worksheet, I see a suspicious entry. I want to copy it into another worksheet. I use the macro. I go back to the original worksheet and see another suspicious entry that I'd like to copy. I'd need a macro that would copy the active row from sheet one, and increment the rows on sheet two before pasting.

View 3 Replies View Related

Incrementing Alphanumeric

Dec 14, 2007

I create inventory cards and each needs a unique 4 character sequence number. Currently I have it set up with 4 cards per sheet. If I need to print more than 4 cards, the worksheet will print one sheet of 4, reset itself and increment the sequence number by 4 and continue this cycle until I've printed the number I need.

Currently I have it only using numbers. I start at 1000 and it increments, by 4, up to 9995. Once it reaches 9995 or higher, the increment resets to 1000 and starts over. The problem I am facing is I am now starting to get several cards that have the same "unique" sequence number. What I would like to do is change it from numerical sequencing to alphanumeric sequencing.

This is the code I currently use for the incrementing....

View 9 Replies View Related

Formula For Incrementing By 4

Nov 19, 2008

In one of my rows I am a referencing another sheet:

The formula is =Sheet2!e4. In the row below it I have =Sheet2!E8. Now is there a way to drag these formulas down so they keep incrementing by 4?

View 9 Replies View Related

Incrementing Strings

Jul 31, 2006

I've got above basic VBA knowledge and learning very quickly (largely due to great forums like this) I'm now creating a userform for the first time. I'm trying to create a New Supplier form and one of the fields is going to be for Supplier ID where it takes the first 6 letters of the Supplier name (entered by the user) & tags on '001' at the end. I've managed to do this but I would like some code to search existing supplier ID's ( Column A on separate sheet) and check whether the ID created already exists and if it does add on '002' instead of '001'.

SO for example..

If user creates a supplier called Microsoft the supplier ID will be Micros001 - this I can do, but if Micros001 already exists then it will generate an ID
Micros002, Micros003 and so on...

View 3 Replies View Related

Insert Number 1 Through? Incrementing By One

Oct 8, 2008

I have a column that I want to insert number 1 through ? incrementing by one. Can I do this simply without having to type in each one manually?

View 4 Replies View Related

Incrementing A Cell Reference

Nov 25, 2008

I am having trouble with the following situation:

on the sheet PANEL in cell A2 I want to reference the information on sheet 480 in cell B5.
Then on sheet PANEL in cell A3 I want to reference the information on sheet 480 in cell B54.

'PANEL'A2 needs to equal '480'B5
'PANEL'A3 needs to equal '480'B54
And so on...

I need the reference to skip 49 cells each time so that I can just copy the formula on down the column.

View 6 Replies View Related

Incrementing Reference Numbers

Mar 11, 2009

I'm putting together a document where I'm trying to automatically create a reference number for each entry. The reference number needs to consist of a site ID (found in column A), an underscore, and then an incrementing number dependent on how many entries the reference number appears.

For example, in column A, the first time the site ID: 12345 appears, I'd like the reference number 12345_01 to be created. The second time it appears, the reference number would be 12345_02. And so on.

If possible, as illustrated above, the first nine references need to have a 0 before the number - i.e. 01, 02, 03, etc - when it hits the tenth instance the reference becomes 10, 11, 12, etc.

I've tried to solve this with COUNTIF, but cannot get it down.

View 2 Replies View Related

Incrementing A Value In A Single Cell

Sep 28, 2009

Is there a way to count how many times a value is changed?

Cell A1 can be either “YES” or “NO”. Its' value is controlled by validation…

When Cell A1 is changed from “YES” to “NO” I want to increment the value in B1 by one.

When Cell A1 is changed from “NO” to “YES” I want to leave B1 as it is.

View 6 Replies View Related

How To Stop The Auto Incrementing - VBA

Feb 14, 2014

I have created below vba code but don't understand how to stop the auto incrementing.

[Code] ......

It end ups giving me see below.
Week 5+6
Week 5+7
Week 5+8
Week 5+9
Week 5+10
Week 5+11

And what I want is that it shows in all the lines “week 5+6”

Strange enough when I only enter a number like 5 it doesn’t auto increment.

And if I add a dot behind the 6 then either.

But I just want it AutoFill that what I have inserted in the box!

View 3 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved