The code below places a spinbutton on the worksheet. The linked cell = F10 This works ok. The orientation is vertical and max is 100
However I would like to set the orientation to horizontal and the max value to 1500. Which commands must be added for this in the macro below? I work with Excel2000.
This seems simple but I can't figure it out. I want to grab the name of a worksheet and place the name in cell A1.
View 9 Replies View RelatedI'm trying to set up a relatively simple UserForm, which will collect the name of a project from a ListBox, a project update which will simply be text entered into a TextBox, and a estimated completion percentage (factor of 10, 10/20/30% and so on) which will come from another ListBox.
I've managed to get many of the basics working, for example an OK button and a CANCEL button, but there are a few bits that I'm still finding rather tricky.
I have the selected date in the percentage listbox going back into my chosen place in the spreadsheet quite happily, but I can't get it to work for the project name listbox (I think it's because the options come from rowsource and weren't entered manually like the other one). I'll paste my code at the end so you can all see how I've done it (and have a laugh)!
I have also just about managed to get the data to go to the right place in the spreadsheet. I want the data to appear in columns, column 1 for the project name, project update in 2 and percentage complete in 3. I have this working, but it for any reason one cell becomes blank, my code uses that cell, and that could cause entries to become mixed up. I want the UserForm to enter data on the first entirely empty row.
Here's my code:
VB:
Private Sub Cancel_Click()
Unload ProjectUpdate
End Sub
Private Sub Clear_Click()
Call UserForm_Initialize
End Sub
[Code] .....
how do I put a space?
12345 ** =A1&B2 gives me 12345CD
but I want 12345 **
I have a cell in A1=(str identification is = ",) and in B1=(2). In C1 I want it to equal (str identification is = ",02) In C1 I have A1&B1
View 4 Replies View Relatedputting another code in the same sub.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set rng = Range("O2:O501")
If Intersect(Target, rng) Is Nothing Then Exit Sub
If Target.Value "X" Then
With Target
.Value = "X"
With .Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 14
.ColorIndex = 3
End With
Plus this one
Set rng = Range("P2:P501")
If Intersect(Target, rng) Is Nothing Then Exit Sub
If Target.Value "X" Then
With Target
.Value = "X"
With .Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 14
.ColorIndex = 5
End With
There are two sheets with data:
Sheet 1
Column A - reservation number (unique)
Column B - trade partner
Sheet 2
Column A - reservation number (unique)
Column B - Hotel property
I want to put in one sheet: Reservation number - trade partner - hotel property
In another words I want to have a list of all reservations according to hotels and partners.
I want to be able to automatically put the calculation of one cell, into the text of another cell.
so....
Cell A3 = A2-A1
And in another cell say B3, i want to be able to write text that says "The value of cell A3 is 'A3' "
I want to know that are there anyway I can quickly declare the header row of the sheet into a string instead go through each one of them using dim xxxxx AS String?
View 3 Replies View RelatedAttached is a small sample, how to put the text from A1 to combobox1, the text from A2 to combobox2 and so on
Up to combobox6, when the form loads. but be able to change the text A1 thru A6, and no matter what text I put in A1 thru A6 the form loads with whatever text is there, is that possible?
I tried to put the following formula into a cell using vba, but I received alot of errors. here is the formula I am trying to put into a certain cell and I will use a variable to replace the row number in the formula
=IF(AD323<>"Open","",IF(OR(AND($AI323=TODAY(),$AJ323<>"Done"),AND($AN323=TODAY(),$AO323<>"Done"),AND ($AS323=TODAY(),$AT323<>"Done")),"Yes",""))
I have 2 columns of data in an excel sheet and I wish to add this to a userform so that the userform displays the 2 columns beside each other with headings, like a table. The user should then be able to select a particular row and insert it into the specified cell.
I would also like the user to select a row on the table and then be able to bring up another table depending on the row selected...basically so that the user can draw deeper into the information that they require.
I want to know if I can populate an array with variables..
For example, imagine I've declared 3 variables a, b, c.. and each variable has been assigned a value (which can change)
now I want to say this:
myArray = (a, b, c)
then I want to be able to loop through myArray and retrieve the value attached to each variable..
Is there any way for me to put a date in the userform? I created 3 combo boxes (day, month year). I would want it to appear as one date in one single cell in the another sheet as the date the entry was updated in the userform.
View 3 Replies View RelatedI would like to write a macro that would start by asking me something along the lines of, "Enter student # you want to print a report about." The # I enter would need to be stored as a variable in the VB code, and then my code would need to use the variable to do some search and replace operations. (Replace all instances of 10 (the default student number) with the variable I have specified).
I don't really know how to even start going about this. How do I get Excel to ask me for a variable, and then use that variable in code?
I would like to check whether 2 conditions are satisfy in an if statement. One condition is of data type text and it is stored in a variable calls search1 whereas the other condition is of data type date and i intend to store into a variable calls search2. Could someone tell how to put search 2 into the below code. Basically, i want it to be like
if Cell A is equal to search1 and CellB is equal to search2 then
return value that is associated with the search in cell c
ActiveSheet.Cells(r, 13).FormulaArray = "=MIN(IF(Sheet1!$A$1:$A$20=""" & search1& """,Sheet1!$C$1:$C$20))"
How can I stop #DIV/0! in a cell which has a formula relating to a cell which will have a number inputted but at the moment is empty, without me putting a '0' in?
View 9 Replies View RelatedWhen I try to run the macro, an error comes up saying application-defined or object-defined error. The following code is the line in which I receive the error.
VB : tool.Worksheets("ALL").Cells(row1, "J").Formula = "='[TRB Database.xlsm]TRB Database'!$I$" & A
I am having trouble being able to put data into a table. The data I have breaks down orders of products in crates into lots of 45 crates with a remainder.
I would like to be able to fill a table from left to right which displays the item number with the corresponding amount of crates, which seamlessly goes from one item to the next.
I have attached an example.
pallet data.xlsx
I have a huge spreadsheet where after every 12 columns there are two "special" ones, which contain certain entries. In the first of these two, the entries from the second one are numbered in a certain way. Please see the example.
I need a formula in a separate column (yellow) which will gather all these entries from all columns, and put them in order, as I did manually in this example.
Instead of 4 "groups" of columns, in my real file I have 200 of them, with 400 rows each, which makes it more complicated..
In my excel sheet I have a list of where they go, which are basically excel cells.. i.e. A1 is the top left corner.
What I am trying to figure out how to do is, is there a way that I can get excel to see "A1" and then put it in A1 of another sheet on the bottom. Thus I get the same grid I have on the wall, making a map of my things.
Also, I could just cut and paste, but the problem is I'm working on organizing the stuff on the wall, and if I do it the way I want to, when I move things, they should automatically be moved on the chart.
So basically I need it to look at a cell for the reference, choose text from another cell (which will be concaternated(sp) text), and then place it in the referenced cell in the chart sheet.
Would like to sum a table without putting individual answers on each row and summing column. The table can consists of 100's of rows but only 3 columns.
lbsratehrs
Item 1100.10
Item 250.525
Item 3200.2550
Total Lbs/hr0.2 (answer)
Find lbs/hr for each item and sum all items lbs/hr
(lbs*rate)/hrs
I'm trying to enter relatively simple drug calculation formulas in Excel where the result is appended with the proper units to administer. For example, if I'm calculating for units of regular insulin with a formula such as:
=0.75*f2
I'd like the cell to make the above calculation, and append it with "Units Reg Insulin" or something similar. Thus far, I've just been putting the units as text in adjacent cells but the result looks a bit messy.
Is this possible? I'm using Excel 2007 and the Help index does not seem to offer much guidance about this.
I have a bunch of spreadsheets in a folder and I need to take one line of each spreadsheet (which is in the same place on every one) into a master spreadsheet.
I am always adding to the spreadsheets in the folder.
Is there a way to have my master spreadsheet look out for changes in the folder and when there are changes add the row into it?
On the "If not Isempty" line, I am trying to input a box prompt. Instead of standardizing this macro, I want the user to be able to select a dollar amount to search and place on sheet3. Right now it works fine using 1.29 as the amount. However, I have other stores where this dollar amount is different, so I want the store managers to be able to choose an amount to search, for example 1.39, 2.99 etc...
View 2 Replies View Relatedputting rows between different values in first column. The following puts 3 row inbetween each value in column "A".
View 2 Replies View RelatedHere is a simple exercise that is necessary only because of the large amounts of data involved.
I have a spreadsheet of columns with budget and actual data. I need to strip out the budget columns (marked as budget) and total column. then add back in at a later date.
It all has to stay in the same spreadsheet.
I know it sounds strange but believe me its necessary.
I was thinking of moving them to the right side of the spreadsheet. Then back at the later step.
I have attached a simple spreadsheet showing the data on sheet1 and how it should look when stripped on sheet 2. and the later step would move them back to sheet3(which is the same as sheet 1).
I have a row that is a percent of sales with this:
=(F4*0.2+G4*0.1)*I4
"I4 will either be 1.0 or 0.5"
Now I want to have it so if this equation equals less than 100 with I4 being 1.0 to equal 100 OR if I4 is .5 then it should be 50. I have looked all around and I am no excel wizard so this is troubling me significantly.
I have a sheet with 2 colomns: client number and document number, as follows:
Client number Document number
1234 100012
1234 100042
4321 102233
4321 249123
4321 533213
4567 134123
7890 123451
7890 125675
7890 357353
I need to have a unique client numnber on 1 row with all his documents in one cell, as follows:
client number: document number
1234 100012, 100042
4321 102233, 249123, 533213
4567 134123
7890 123451, 125675, 357353
I want to place this forumla "=IF(INT(B3/$U$1)=(B3/$U$1),1,0)" across my worksheet.
Now, I'm okay when dragging down as it works fine with the B3 changing to B4 and the U1 staying as U1.
However, I would like it so that when I drag it horizontally, the U1 becomes V1. I want it so that I can do this and it stays within the $. So when dragging sideways it becomes "=IF(INT(B3/$V$1)=(B3/$V$1),1,0)".
if this is possible and if so, how to do it?