I have been using a scroll bar in my project to select a value from 0 - 3
Is it possible to have a customised slider (whether a form control or something created from scratch) whereby the numbers 0 1 2 3 are displayed in a grey, red, yellow and green box respectively adjacent to eachother and a slider can be moved over the top to select a value?
slider.JPG
What is this and how do I create it?
I have googled and found that you can add a slider within a userform, but how to set the values/parameters.
The aim is to have the slider max @ 5.00% with increments of 0.5% with starting value of 0.05%.
I have tried the properties section and it does not like any of my inputs.
Is there a way to have customized cell backgrounds that are more complex that Excel's preset colors and patterns?. For instance, I have a merged cell (it has to stay merged) with a value that is located at the bottom-center of the merged cell. I want to have either a fading gradient (the top of the cell is white fading to a blue bottom towards the value), or just have the bottom portion of the merged cell colored. I have Excel 2003 so I don't know if any other version has this feature.
View 3 Replies View RelatedI need to have all cells locked and protected, but I need to be able to select all cells in column A only. With 2003 I can chose to be able to select locked cells in the Protection Properties, but that allows at the same time to select all cells and I want a property to allow selection in column A only.
View 9 Replies View RelatedI have an txtBox in a userForm. I need the value of the userform in a customized format i.e. the user will be able to enter only 5 digit numbers and after the value has been entered the txtBox should dispaly the value with prefix "A".
For example:
1. If user enters values as 56, then txtBox should display as A00056.
2. If user enters values as 12346, then txtBox should display as A12346.
I have a piece of code from a form command button. its supposed to colect data and put it to appropriate cells.
VB:
FoundColumn = 0
For Each c In Sheet19.Range("A5:A33").Cells
If c.Value = student1.Value Then
'check if date allready exists
For Each cc In Sheet19.Range("c4:nc4").Cells
If Calendar1.Value = cc.Value Then
[Code] .....
I need this for Sheet19 and to 10 more worksheets like Sheet20, Sheet21 etc. I can manually copy paste the code and change the Sheet19 to whatever but it just does not seem the right thing to do. I tried:
VB:
For i = 1 To 6
naming = "Sheet" & i
MsgBox naming.Cells(1, 2).Value
Next i
but that gives an object required error.
I have a table
item_desc
a
b
c
a
b
c
a
b
c
As you can see, a,b and c is repeated times.
How do you make it so that it would look like
item_desc
a
b
c
item_desc2
a
b
c
item_desc3
a
b
c
Is there a shortcut in doing this instead of copy pasting it?
I have a record just like this with about 572+ rows and 13 repeating items with that 13 items having their own column so copy pasting is really a tedious task. Kindly please help me solve this?
I'm making a task sheet for my employees and would like them to see the option in the ribbon automatically that allows you to add a picture. I have made my custom ribbon with the "picture" command right under the Home tab. I want to email my workbook as an attachment to my employees and have that picture button right there in their ribbon when they open up the attachment. Is this possible?
View 3 Replies View RelatedI have created a custom submenu in Excel that uses the "SheetBeforeRightClick" event in the "ThisWorkbook" object to initialize. In the custom submenu, I want to use one of the choices to load a form that I have created. I am trying to do this directly when selecting the submenu entry, by using "MyForm.Show", but this doesn't work. As a workaround I use an intermediary subroutine, "Sub Load_MyForm" where I put the same command, and then it works! Anyone who knows how to load the form directly from the submenu click event without going through an intermediary subroutine?
The workaround (which works) in "ThisWorkbook":
I have a workbook.
I would like to automate with code the process of extracting one worksheet from that workbook, and saving it as a separate workbook, with a file name equal to the text value of a cell (date formatted dd-mm-yy) from within that workbook. (ie d1="10/07/08" save file with one worksheet 10-07-08.xls)
I wrote my function as it is shown below:
Function MyFunction1(r, n, xrange, yrange)
If r <= n Then
For i = 1 To 5
MyFunction1 = MyFunction1 + xrange(i)
Next
Else
For i = 1 To 5
MyFunction1 = MyFunction1 + xrange(i) * yrange(i)
Next
End If
End Function
This is just a very basic idea of what I need to do, so it might not make sense why I am doing it, but I am just trying to test that the function works. Anyhow, the thing is that it works with something like this when I input it in a cell in a worksheet: =MyFunction1(RAND(),0.5,{5,6,7,8,9},{10,20,40,50,100})
However, if I try to define the range or set {5,6,7,8,9} with other cells, it does not work. so for example if I try the following:............
so i'm building an application that'll allow users to manipulate records in Excel with just a GUI, using Userforms, Modules and Class Modules. it's all working but i'm feeling like i skipped a little on structuring it properly.
for example (from my Java work in college), you'd call just one object from the main method, which would create a GUI object, and create/manipulate instances of the different Classes when buttons are pushed. basically you one object whose main created other objects, who ran procedures, etc. what i'm hoping for is to make it as modular and easy to maintain as possible. would anyone have a good resource for optimising a medium-sized application? (the tips Excel/VBA Golden Rules. These Should NOT Be Optional were very good, by the way.)
1.On Man' work sheet I Have a Project No (actual one is a big one) and project code,i have made the project code because it cannot be entered on the time sheet as the original project no is very big and i have legends,then Empl nos and OT Rates
Now on the time sheet if i enter the Project Code A to C it should be counted as "P" present for work, rest as usual.
2.On Summary' work sheet Columns D to J should calculate it automatically based on employee no or name and Project No.
I have created a spreadsheet that requires the buttons on a customised tab/ribbon in order to use it.
If this is on my machine where I have customised the ribbon it works fine. However I need to email this spreadsheet to another person - but wanted them also to have my customised ribbon. Is there anyway to do this - or would I have to go and customise their ribbon on their machine?
I'm trying to work with a user form with a customized SUM button.
What I want is that the user can select a range and then press SUM and it will sum (and store) the range and then the user can click another button to place the sum in any other cell.
Here is the code I have on the SUM button but it fails
Code:
Private Sub CommandButton1_Click()
MsgBox (Application.Sum(ActiveWorkbook.ActiveSheet.Selected))
End Sub
I'm using a userform1.show vbmodeless so the user can click off the form. I tested it being able to work cross workbooks and sheets and I could see where it was returning the activeworkbook/worksheet but I don't understand the range/selected part.
Excel 2007
I have a sheet where some data is entered in A1 to C1 and i use concatenate to string them together. The problem is in cell C1, where I used cell format to customize the number of zeros in front of the number.
EG:
A1: Photos
B1: 2013
C1: 00001
the concatenate result is Photos2013\1, instead of the desired result of Photos2013\0001.
I'm using the following code to create a customized userform, and it works perfectly on my computer, as I've enabled all macro settings.
Code:
Function GetOption(OpArray, Default, Title)
Dim TempForm 'As VBComponent
Dim NewCheckBox As MSForms.CheckBox
Dim NewLabel As MSForms.Label
Dim NewCommandButton1 As MSForms.CommandButton
[Code] .......
However when my coworkers need to use the code it creates an error, as the VBA project is unsafe.
Now my question is, can you write some code that enables all macro settings temporarily, in such a way that my coworkers can use this code?
can u hide the xl vertical scrollbar or stop it working
View 4 Replies View RelatedI have a table with numeric information with only one column in the table having text information ( which is basically notes from a telephone conversation). My question is how can you add a scroll bar in a cell with text information. I do not want to resize the row height as it makes my table look untidy.
View 1 Replies View RelatedI have Userform with Combobox for listing all days of active worksheet. Worksheet is very long and I would like sheet to scroll left or right, according to what day I pick from Combobox. Days on worksheet are listed in range from E2:AI2.
How could I do that in VBA ?
I have a Combolist box that has 39 entries. The screen isn't big enough for the entire list to be shown when the box is clicked and it truncates the top of the list. How can I add a scrollbar to this?
View 2 Replies View RelatedOn a userform, is there a way in which to set a scrollbar's slider postion to the ListIndex value of the item chosen in a ComboBox?
In other words, if the total ListCount for this choice is is ten, and the item chosen in the Combobox is in the fourth position, can the scrollbar slider automatically be set to the fourth position rather than be all the way to the left or right? I would think that this would make it visually easier for the user to understand in which direction they can scroll the list. Here's what I've got so far:
I am trying to get a scrollbar on a MultiPage UserForm to provide instant results on the active spreadsheet. The spreadsheet is full of charts, and as you move the scrollbar, the charts change. Trouble is, the code I have is VERY slow. Moving the scollbar turns the cursor into an hourglass and that little scrollbar graphic lags about a centimeter behind. Is there faster code out there?
Here is what I have:
NOTE I use both the change event and the Scroll event because using only one gives me only half the functionality of the scrollbar...that is, without both, either the arrows on the scrollbar work or only the slider works.
I want a control to be updated when I scroll a scrollbar. The scrollbar is linked to "B25" and the control, tboYYWW2, is then updated via a HLookup of the "B25" value. By the code below I just get the control updated when the worksheet is activated and not when the "B25" value is updated by the scrollbar. How to make this work ? I also attach the workbook file I'm doing the tests in.
Private Sub Worksheet_Activate()
Dim varYYWW2 As String
Dim varWeekNr2 As Integer
varWeekNr2 = Range("B25")
varYYWW2 = WorksheetFunction.HLookup(varWeekNr2, Worksheets("EDUtest").Range("WeekNrWeek2"), 3)
tboYYWW2 = varYYWW2
End Sub
I have scrollbar control on excel sheet, I want to make maximum value of this control to be linked to a cell on the sheet. So, when the cell value changes, the scrollbar maximum changes automatically with this value.
View 3 Replies View RelatedI have a TextBox in a Worksheet with a ScrollBar defined and its working perfectly! The only problem is that everytime I click outside the TextBox, the ScrollBar goes to the lowest position and I only can see the bottom of the text in the TextBox...
Is there any way of keeping the ScrollBar on its position everytime I click outside the TextBox?
My company uses a customized accumulative code week system, as in the year 2000 to today is about 442 weeks with the year 2008 starting around week 416.
Here is how my formula works(or how I would like it to work), if the date (in cell F8) is blank, nothing is displayed, if there is a date (format 2008-07-03) and it falls within 2008, WEEKNUM+416(416 is a fixed reference in J4), if the date falls within 2009, WEEKNUM+416(J4)+52, if the date falls within 2010, WEEKNUM+416(J4)+104. I only need it to go from 2008 to 2010.
This way J4 is a fixed code week reference where 416 is added to each week number, but it does not work for years 2009 and 2010 as it does not add the weeks from the starting reference.
Here is a copy of my formulas:
=IF(AND(F8)=0,""*(IF(AND(F8)
I've got a formbox that has scrollbars and when the userform starts up the vertical scrollbar is centred, meaning people can't see the top of my form. How do get the scrollbar to be at the top when my form loads?
View 2 Replies View RelatedI've got a large spreadsheet with many cells that need user input. A bunch of calculations are performed on subsequent worksheets, but I want the user to only see the fields they need to enter. I'm trying to write some code that will use a scrollbar (form control, not activex) to only show one group of columns at a time. For example, if ScrollBar1.Value = 1, then show columns "A:D" and hide colums "E:Z". If ScrollBar1.Value = 2, show colums "E:H" but hide columns "A:D" and "I:Z", etc.
Here's the code I'm trying to get going, but I keep getting various errors when I try to execute.
Code:
Private Sub ScrollBar1_Change()
Dim v As Integer
v = ScrollBar1.Value
[Code].....
As it stands now, when I click the scrollbar I get the error: "Compile error. Method or data member not found," and the ".Value" in Line 3 is highlighted.