Re: Excel VBA - Assign Value to Option Button
As you have multiple questions you will have to place your corresponding option buttons into a frame.
Link each set of option buttons to the same cell.
Then where you want the number returned place an IF statement.
See attached
Windy
Re: Formate Cells Percentage Arrows
I think the best way to do this is with conditional formatting.
Select the required cell, select conditional formatting from the home tab.
Select icon sets then from the list select required style.
Click the conditional format icon again the select manage rules.
Select the rule you just created and click edit rule.
Here you can customise the display.
At the bottom of the page change the first drop down to >and the type to number, change the other type drop down to number as well but leave the >=as it is.
Click OK twice to return to your sheet. Enter a positive number in the cell (green upwards arrow), enter negative number (red downwards arrow) enter 0 (zero) (yellow dash)
Hope this helps
Windy
Re: Userform Listbox Selection
Glad I could help
Windy
Re: Userform Listbox Selection
I just added the following to the end of your save code:
lbCurrentEvents.RowSource = "Events!A2:D" & Range("D" & Rows.Count).End(xlUp).Row
lbCurrentEvents.ListIndex = lbCurrentEvents.ListIndexWindy
Re: Userform Listbox Selection
Can you upload a sample workbook with the whole userform and code?
Windy
Re: Staff rostering with pull down menu
Hi Craig
Have a look here... http://www.onlinepclearning.com/projects/
This guy has a few roster tutorials that may be of interest.
Windy
Re: Paste data without overwriting current data (push it down)
Instead of selecting the range A3:E69 select the entire row using the row selectors to the side.
Or
Select the range A3:H69.
when you have a layout like yours you must remember to select the same number of columns as is in the sheet you will be pasting to.
Windy
Re: Paste data without overwriting current data (push it down)
It is not very clear from the pictures, can you upload a sample workbook.
You may have to zip the file if it is too big or use dropbox
Windy
Re: how to change the Combobox index value together with all combobox?
Have a look at this link..
https://www.youtube.com/watch?v=eJslb49T0Bk
Windy
Re: Excel VBA Calculate the day of the week of the start date entered
Could you use a custom function
Public Function FirstOfWeekday(aDate As Date) As String
Dim iWeekday As Integer
iWeekday = Weekday(aDate, vbSunday)
FirstOfWeekday = Choose(iWeekday, "Su", "M", "T", "W", "Th", "F", "S")
End Function
You can the use =FirstOfWeekday() in the cell you want the day in.
Windy
Re: Data Validation second dependent selection - first selecitn based on vlookup.
Create named ranges for your validation table (BA,CC,CD)
Then in D1 validation use =INDIRECT(C1)
Windy
Re: Excel List Item change depends on another cell value
Try this..
http://www.contextures.com/xlDataVal15.html#Name01
Windy
Re: Populate Table from database based on defined value
Have you thought of using Advanced Filters?
See attached
Windy
Re: Sum data after it fulfils multiple conditions.
I would use a pivot table.
See attached
Windy
Re: Mail merge with word and excel
Then the best way to go would be mail merge.
Just follow the wizard in word.
If you have data on multiple sheets you will need a word document for each one or consolidate all the sheets into one.
Windy
Re: Combine these 3 IF Formulas
All I did was copy and paste your three formulas into a blank sheet, then copied from the IF to the end of the formula.
Opening the first formula in the function window and pasted copied formula over the XXX, repeated process for the last part pasting that over the YYY.
Glad I could help
Windy
Re: Mail merge with word and excel
What are you doing with the word document once the data has been inserted?
Is the object to print the letters (all 500) or just to print certain ones?
You mention 'each sheet' does this mean you are using more than one sheet for the data?
Windy
Re: Combine these 3 IF Formulas
Does this help?
=IF(OR('Deposit Worksheet'!E12="Chargeback-Online Abstract",'Deposit Worksheet'!E12="Chargeback-Suspected Fraud",'Deposit Worksheet'!E12="Chargeback-Valid"),UPPER("VISACB"&TEXT(LOOKUP('Deposit Worksheet'!B12,OfficeNo,VISAMerchant),"00000000")&(TEXT(($U$79+Q79-R79),"dd-mmm-yy"))),IF(AND('Deposit Worksheet'!F12="Visa",X79=""),UPPER("TDVISA"&TEXT(LOOKUP('Deposit Worksheet'!B12,OfficeNo,VISAMerchant),"00000000")&(TEXT(($U$79+$Q$79-$R$79),"dd-mmm-yy"))),IF(AND('Deposit Worksheet'!F12="Visa",L79>0,X79="Credit"),UPPER("TDVISA"&TEXT(LOOKUP('Deposit Worksheet'!B12,OfficeNo,VISAMerchant),"00000000")&(TEXT(($U$79+$Q$79-$R$79),"dd-mmm-yy"))),"")))
Windy
Re: Mail merge with word and excel
It does not matter how many columns of data you have as you are only referencing certain ones.
The only thing really to consider is the number of rows as this would determine the number of pages in the mail merge.
Windy
Re: conditional formating if is equal or more in the second column
You will need to use the formula is option in conditional format.
Select the first cell to be formatted and go to conditional format.
From the list select Use a formula to determine which cells to format
The place the following formula in the Format values where this formula is true
For RED
=$J1>89
For AMBER
=$J1>49
For GREEN
=$J1<50
Windy