Listbox Automatically Reduces In Size Each Time I Open It
Jul 15, 2006I have a problem with one of my files. Each time I open it up, the listboxes keep getting smaller and smaller. I have no idea what is causing it.
View 9 RepliesI have a problem with one of my files. Each time I open it up, the listboxes keep getting smaller and smaller. I have no idea what is causing it.
View 9 RepliesI have a sheet with four listboxes on it. All four have their source on the "Lookup" tab - Lookup is very hidden and is zoomed at 100%. Every once in a blue moon, the text in the four listboxes will shrink to be very tiny. The listboxes themselves will stay the same size, but the text inside shrinks.
Starts off looking like this:[url]
Somehow ends up looking like this: [url]
I compared the two pictured files and the properties of the listboxes were totally identical for both.
Each time this has happened, it's always been on someone else's computer (fifty people each use a copy of this file), so I don't have many clues as what is going on when this happens... Does anyone have any idea how to prevent this from happening, or how to restore a file like this instead of replacing it?
I have a listbox on a worksheet which is linked to a named range, the named range is a results from a database query. Now the problem I have is everytime the query is refreshed the listbox expands in size. Is there anyway to stop the listbox from growing thus 'locking' the size??
View 4 Replies View RelatedIf the number is less than a specific number I want it to stay the same.
If the number is higher than a specific number I want it to be lowered to the specific number.
Does this make sense? Or can anyone help me to develop a macro to do this?
An IF function is not viable for the amount of data as there is 250+ rows and up to 75 columns of data.
We are using an excel file, which doesn't contain more then 1MB of data and have few "count and sum" formulae. but size of file keeps fluctuating from 1MB to 500MB. some time the size of file would be 1MB and once you will refresh the window file size will go to 480MB or some random number.
because of this excel file is quite slow and very difficult to work.
I have a worksheet which contains START TIME in column A, then TIME USAGE in column B and END TIME in column C. User enters start time, followed by the number of time usage in minutes, how could i possibly display the end time automatically in this scenario? how do you add the entered time usage to the start time to display the end time? Say if I enter 1:00 AM at start time and 00:15 minutes on time usage, how can 1:15 AM be displayed on the end time automatically?
View 2 Replies View RelatedI'm trying to Automatically fit the text to the size of the TextBox frame using:
Code:
With obFinalNote.TextFrame2
strTxt = .TextRange
.DeleteText
.WordWrap = msoTrue
.AutoSize = msoAutoSizeTextToFitShape
.TextRange = strTxt
End With
It appears ".AutoSize = msoAutoSizeTextToFitShape" only considers the width (I think) as the text is downsized but yet the text still extends beyond the the bottom of the frame. And never gets set to less than 11 point. Even when there's not enough text to reach the bottom of the frame the text is still set to 11pt leaving the frame half empty. Need to have text big as possible.
How to keep text in its entirety within the frame of the shape?
The quantity of text varies widely and the frame size cannot change. I've tried using Len() and dividing by a certain number and then based on that answer set the size with:
Code:
With obFinalNote.TextFrame.Characters.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = NoteFontSize
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
But this technique doesn't seem reliable as the number to divide the Len() by seems to depend on how "wraps" have occured.
I use this ok code to increase the font in the selected cell:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim TargetRange As Range
Dim isect
Set TargetRange = Range("C:D")
Set isect = Intersect(Target, TargetRange)
If Not isect Is Nothing Then
Columns("C:D").Font.Size = 11
Target.Font.Size = 15
Exit Sub
End If
Columns("C:D").Font.Size = 11
End Sub
The problem is when i press ctrl+c to copy a cell content, so once i move the curser to the distenation cell then the copying mode in selected cell disappeared.
It is because when the event is trigered then the copying mode stops. The question is : how to let the copying mode works even when the event is trigered ?
Is there a way to control the vertical size of a textbox, so that we could type in a List of Instructions to our operator, and the textbox would resize depending on the numbers of instructions in the box. Also the items in the cells beneath the textbox would need to move down, to allow for the resized textbox.
View 3 Replies View RelatedI have a rather large spreadsheet that takes a long time to calculate. One sheet has the data (about 2800 rows by 650 columns), with samples in rows and data for each sample in the columns. A second sheet has functions to group the data according to predefined patterns. That second spreadsheet is about 800 columns wide and as many rows as I need it to be, as the samples don't need to be analyzed all at once.
Ideally I would like to do all samples at once by making the second spreadsheet 2800 rows high, but the calculation time is just way too long. And there's the problem. The calculation time seems to increase exponentially with the number of rows I calculate at a time. I ran a few tests making it different sizes, and here are the results:
rows
time(seconds)
100
3.5
150
12
200
23
[Code]...
I tried both HLOOKUP and INDEX/MATCH functions and it didn't make a lot of difference. These numbers are for INDEX/MATCH.
Graphing these numbers show that it follows an exponential curve pretty closely. What is interesting is that the progress indicator at the bottom of the screen finishes in a few seconds, about 5 seconds for 350 rows, and I can see the new data after those few seconds. But then it sits and appears to do nothing for the rest of the time. So, for 350 rows, it looks to be done with the calculations within 5 seconds, but then it freezes for another 2 minutes with CPU usage maxed out before I can do anything with the program. That actual calculation time seems to scale linearly with the number of rows I calculate, but the time after it finishes calculating before it finishes whatever else it's doing scales exponentially.
The spreadsheet does have a macro and a couple of other sheets and a macro that do some later analysis and I wondered if that had something to do with it. To check that, I created a new spreadsheet and set it up the same as the original one, with the data in one spreadsheet and the INDEX/MATCH formulas in the other. I copied the data over, but setup the formulas new without copying/pasting anything. It didn't make any real difference.
I have a listbox filled automatically from some cells. I have to choose an item from this listbox, click a button, and then my macro will summarize some data. All itīs running, but a little problem, the size of the listbox is changing itself after some actions. For example, when i change the value of the cells from where i fill this listbox.
View 2 Replies View RelatedI have a protected worksheet. Users wish to be able to track changes in the input cells. The suggested approach for this is to temporarily disable sheet protection and allow them to change the font color, then protect afterwards. What I would like to do is:
i) check whether they are in an input cell
ii) if so, then prompt the user with the 'Font Color' dialog box
iii) apply the font color selected to the input cell
I'm struggling to find the dialog box I need. I can launch the one to change the interior color, no problem (Application.Dialogs(xlDialogPatterns).Show). But that's no use to me, I just want a color palette that specifically relates to the Font Color
how can i open a different path of the workbook in the listbox. if my listbox there only show the file name.
View 2 Replies View RelatedI've created a Form (Userform1) and a Listbox(ListBox1). The listbox is initialized by creating a File System Object so that all XLS files within a folder(Test1) are added to the Listbox. I have a Sub to call the form from a workbook. The files saved in the "Test1" folder appears in the list but I get an error when I select and launch the command to open.
Private Sub UserForm_Initialize()
Dim fso As FileSystemObject
Dim fld As Folder
Set fso = New FileSystemObject
Set fld = fso.GetFolder("c:Documents and SettingsEricDesktopTest1")
For Each Fil In fld.Files
If UCase(Right(Fil. Name, 3)) = "XLS" Then
ListBox1.AddItem Fil.Name
End If
Next
End Sub
Code to open workbook from the listbox
Private Sub CommandButton1_Click()
Workbooks.Open ActiveWorkbook.Path & "" & ListBox1
UserForm1.Hide
End Sub
I have a chart with 5 different series. Instead of editing each one, say the marker size, is there anyway I can change the marker size for all of the different series at the same time?
View 1 Replies View RelatedI've got a listbox (ListBox1) and it lists 5 files. names are One, Two, Three, Four, Five (all .xls) and they're saved in C:/MyFolder
What i want to do, when a user clicks a button, for a code to only open the files that are selected. So for example, the user selects Three.xls and Five.xls - the code would need to ignore the others and open the selected files.
I have a user form on which I need to create a textbox every time the user clicks a button. There are too many to create them all in advance and make them visible when needed. The sample attached, from this forum, is good, except, the numbers in the text box just scroll along and I need to see all the text typed into my textboxes. I would like the textboxes to be multiline, wordwrap and have them resize according to the amount of text.
View 6 Replies View RelatedI have a userform with a CheckBox and a ListBox. Is there a way to have the CheckBox to automatically get checked if a selection is made in the listbox?
View 9 Replies View RelatedThe main file was linked to other files. Instead of using the "edit links" dialogue box provided by Excel, I wish to use a list box. This list box will show all the files that the main file is linked to.
The user will have the the option to single select or multiple select the files.
Upon clicking "ok" it will "open and close" the selected files, thus updating the main file. (it should also remove the update links dialogue box of the source files if they had it, it will be a hassle for the user to click on the "don't update" for every linked file that is open)
I know the update links in Excel is able to do it but the links sometimes will result in errors, beside it doesn't offer multiple selections.
I have a listbox with a state and below it several cities. For example:
New York
New York - New York City
New York - Nassau County
New York - Westchester
New Jersey
New Jersey - Newark
New Jersey - Monroe County
New Jersey - Passaic
I would like to select the state and have it auto select all of the related cities including the state. So if I select New York,
It would look like this, where all are highlighted (as if selected). I coudln't find the highlighter on the thread tool bar:
New York
New York - New York City
New York - Nassau County
New York - Westchester
i'm having a problem with a script I have (script is below). What i'm doing is running a script that displays files in a certain folder, those files are then displayed on sheet1 column O and are linked so when they are clicked upon, the file will open. I also have a combo box with a input range of $O$O. That puts the values in column O in the combo box. Now here is a problem and request.
Problem first, when I select the file names from the combo box, they don't open the file, all it does is display the file name in combo box and that's it. how to I get it to open up the file? Now for a request, I have another sheet that is almost exactly as the one i described above. The only thing different I want is when someone clicks on a file name from the combo box, instead of it automatically linking to the file, I want them to click on a button to display the file.
Sub HyperlinkXLSFiles()
ActiveSheet.Unprotect
Dim lCount As Long
Application. ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
On Error Resume Next
With Application.FileSearch
.NewSearch
'Change path to suit
.LookIn = "c:Sec"
.FileType = msoFileTypeExcelWorkbooks
' .Filename = " Book*.xls"..................
This is my code:
VB:
Set R = WS3.Range("A:A").SpecialCells(xlCellTypeConstants)
ListBox1.Clear
With ListBox1
[Code].....
the third column is a time, and is showing up in the actualy listbox as a decimal rather than a time. How do you show at time(ex 12:42 PM)?
This is my line of code from Userform that fills Listbox from values of cell :
[Code] ....
Value in cell is time value formatted as h:mm, but when this value is being filled in Listbox, It changes to decimal value. Example : 12:00 is 0,5 on Listbox.
How can I change this to time value in Listbox ?
Tried with TimeValue() and Format(Time,"h:mm"), but one gives me error "type missmatch", and other just gives me back system time to each Listindex.
Every time I open my excel spreadsheets the "Getting Started" window opens automatically. How do I turn it off so it does not open automatically
View 3 Replies View RelatedI have a few 2007 workbooks that are set up to track and compare individual budgets over time. The majority of the cells are referencing workbooks that have yet to be created.
On opening these workbooks the users are confronted with an informational window informing them that "This workbook contains one or more links that cannot be updated", to which they are instructed to choose "Continue". Is there code I can add to these workbooks that would automatically choose "Continue" once a user enables the security warning for Automatic updates of links? I believe this would be the same as an On Open event.
The background is that I only use macros for a few limited files to save me some time spent on monotonous clicking. Well, yesterday I made three little macros that clear the info in three weekly files and save each with a new date (in preparation for me adding the new info). When I left yesterday, the macros worked as intended. I come in to work this morning, and each of those files now open automatically whenever I open any other file in Excel (just for the first one, nothing happens if I open a second).
View 3 Replies View RelatedI have a presentation that I open from a short-cut. After the "Welcome Page" is opened, I want to open a second workbook in a new instance of Excel after 4 seconds.
I think that I can open the new instance of excel, but I don't know how to activate the macro after 4 seconds.
I'm sure there is a function someplace for this that can be used in a macro.
Then, after the second Workbook is opened, I want the Welcome Page "Workbook" closed, leaving the second Worbook open.
i have a validation list of about 100 items. Is it possible that on tabbing into the cell the validation list can automatically open and as I start to type, it will take me towards the right list item?
View 1 Replies View RelatedIs there a way to automatically open or close all grouped rows on a specific worksheet or for specific rows?
View 5 Replies View RelatedIs there anyway I can schedule an excel workbook to open up at a certain time; I have some code attached to the Workbook Open function; so when the workbook is opened the code will run; but I need the workbook to automatically open at say 17:00 everyday so the code can run.
View 9 Replies View Related