OK I feel really stupid on this. I must be overlooking something very obvious.
If you look at the attached userform there are some checkboxes where the "check" has a bold appearance, and others where the check is not bold.
If you examine the properties of the checkboxes in VBE, they appear to be identical.
Can it be made in VBA as follows:
I have made a userform with the initialize routine. On this there are checkboxes which I would like to be selected for a YES.
When the YES (checkbox) is being selected I than would like to see in the active userform an already made and "hidden" textbox to enter a value for confirmation of a quantity to order.
I have been loking for some sort of Private Sub Userform Change() routine, but can not find this type of routines
I am trying to do is develop a electronic visitors log in excel that has three statements visitors must read and accept before they can enter. I have a userform with date/time, name etc, then the three buttons that open another user form with the statements for them to read and 2 command buttons (Accept and Decline), Accept takes them back to the log-in userform and Decline closes all forms.
The problem I am having is I can’t get the checkbox on the log-in form next to each statement to go true when the accept button is clicked for said statement. I would like to disable the checkbox on the visitorsignin form so the only way it goes true is from the statement form.
I hope I explained myself well enough for someone to understand what I’m trying to do, the code is not finished yet either, still waiting for signature pad to come in so I can paly with it and figure out how to incorporate it into the file.
I have a 20 number of CheckBoxes in a userform. But only the first checkbox has a special function if it is selected alone. So I want to set a condition if only it is selected. How may I express this?
Something like:
Code:
If only the Me.Checkbox1.Value = True Then
'Do this
Else
'Do that
End If
On my excel 2007 UserForm I have a CheckBox with 18 possible or multiple selections of reports (word.docm)
what I would like to do is, when selected they would be sent to printer.
Here's what code I have so far, something is missing, I'm not sure
Private Sub CommandButton2_Click()
For x = 1 To 18
If Controls("checkbox" & x) Then
Select Case x
Case x = 1
worddoc = ActiveWorkbook.Path & "Inspection ReportsCover Page.docx"
Case x = 2
worddoc = ActiveWorkbook.Path & "Inspection ReportsClient Information.docx"
Case x = 3.....................
i am having is i have created a userform that automatically opens when i open the workbook, I have placed checkboxes on the userform and i need them to remain checked even after the workbook is saved and closed, but whenever i reopen the workbook the checkbox are unchecked again
View 2 Replies View RelatedI have userform which shows days in month & populated Listbox for cell values. I want checkboxes to be ticked and Textbox to count when conditions are met, for each day. Range is, example (for 1st day) from E3:E318. My code so far is :
[Code] .....
So, When "MIN1" reaches value of 2, checkbox is ticked - If more than 2 then Msgbox ; When "MIN5", I want to be counted in Texbox ;
I have a userform with lots of checkboxes and I would like to be able to create either a GIF file of the userform using VBA (if it's easy), or export to a .txt file all the checkbox labels and their respective values (i.e. TRUE or FALSE) which I think might be more easier to code.
View 9 Replies View RelatedThe code listed below checks to see if any checkboxes are checked via a form and if they are then populate a string variable with text to build out a range to be used for a Defined Name Range in excel. The code works but I was wondering if the same functionality could be written better.
Private Sub cmbRun_Click()
Dim SelectedRange As String
If CheckBoxML.Value = True Then
SelectedRange = "Revenue!$M:$M"
Goto jump1
Else
If CheckBoxML.Value = False Then
Goto jump1
jump1:
If CheckBoxSL.Value = True Then
SelectedRange = SelectedRange & ",Revenue!$N:$N"
Goto jump2
Else...............................
I currently have a user form and am trying to make a counter to that will increment if the check box is not selected, but will not increment if the check box is selected.
I am assuming I could use an if then statement for this, under the command_click OK. but I cant get it to work.
I'm trying to get a checkbox in a user form to prepopulate depending on what's in cell H5.
Here is the line of code that I need rewriting (in bold):
Sub Userform_Initialize()
LabelPolicyNumber.Caption = ActiveSheet.Range("B5").Text
LabelSponsorName.Caption = ActiveSheet.Range("D5").Text
If Application.WorksheetFunction.IsNA(ActiveSheet.Range("H5")) = True Or ActiveSheet.Range("H5") = "" Then CheckBoxHalifax.Value = False Else CheckBoxHalifax.Value = True
End Sub
H5 contains a vlookup formula, so depending on other variables it can either have a value ("Halifax"), an error (#NA) or be blank. I've
It seems Excel will only evaluate the first statement and ignore the Or statement, meaning when H5 is blank Halifax is checked off when I load the user form.
I'm working in Excel 2007 on Windows XP.
I have a userform that creates labels and checkboxes for those lables on the initialize event based on an if statement. I would keep getting an error on a line where I try and use the name of one of those created checkboxes of "variable not defined" as if it hasn't been created, but it was.. Here is the code for the creation:
'Option Explicit
Private Sub UserForm_Initialize()
'dynamically add the tickers and funds based on if there is any data inputs for them.
'declaring variables
Dim lbl As MSForms.Label
Dim i As Integer
Dim x As Integer
Dim newcheckbox As MSForms.CheckBox
'selects the summary page
Sheet1.Select
For i = 7 To 65
If Cells(i, 3) "" Then..................
I am having a little bit of difficulty find ways to effectively incorporate a checkbox panel into a form interface. What I am trying to do is all the user to select using checkboxes which of 31 separate columns will automatically be deleted or not deleted. The method I have been using is to create 31 checkboxes, and then use the value of the checkbox (true/false) to determine a value in an array, which then can be used to delete the column by a separate sub.
However, I am interested in being able to have the checkboxes start checked or start unchecked by values contained in a different array. My problem is that I am unable to reference the checkbox itself until the form containing the checkbox is opened, but at that point I don't know of a way to cause the desired checkboxes to automatically be selected without placing a command button that must be pressed to fill them in. Essentially I want to be able to open a userform that has checkboxes preselected.
I have a userform with 17 checkboxes that their captions should correspond with column A range ("A2:A18) on a worksheet.
Is there a way in userform_initialize, or activate, to create the captions from that range?
I could type the code 17 times like;
Code:
me.checkbox1.caption = wb.worksheets("area").range("a2").value
I was curious to know if it could be looped? Textboxes on the same userform.
I have a multipage wizard like userform that for each page has check box selection choices a user can pick from. The sample I've attached uses animal attributes for 2 animals. What I'd like to have is code that populates the worksheet with the animal under consideration (determined by the Frame Caption) in say A5, then populates the attribute selections made starting in B5 with no blank rows in between if they chose not to mark a checkbox.
So for animal one on page 1 of the multipage form, if the user selected attributes 1, 3, 4, and 6 and clicked the "NEXT" button on that page, animal one appears in A5 and then those attribute selections would be in B5, B6, B7, and B8. If the user then selected for animal 2 on page 2 of the multipage form, attributes 2 and 6 and clicked the "NEXT" button on that page, then animal two would appear in A9 with the selections appearing in B9 and B10.
I should mention that the number of rows in Table 1 may grow (or shrink) row size with additional rows added (or deleted) by the user. Not sure if it matters.
I have created a userform but I am having extensive problems with the date formats.
My system is set to UK and short date is set to: DD/MM/YYYY
When I used code to add the values in the userform to the spreadsheet, any that contained a date format would revert to the US format.
So I finally figured out to use DateValue to format it correctly for example: ...
I'm trying to create a dynamic msgbox that will display what data has been updated based on checkbox selections in the userform. I've named my checkboxes as Carey, Keith, and Juliet.
Ideally if only Carey's data has been updated, I'd like the msgbox to say
' Data has been Updated for:
- Carey '
If Carey and Keith's data has been updated, I'd like the msgbox to say
'Data has been Updated for:
- Carey
- Keith '
etc.
MsgBox ("Data has been Updated for:" & vbnewline & _
If CAREY.Value =true then "- Carey" End if & vbnewline & _
If KEITH.Value =true then "- KEITH" End if & vbnewline & _
If JULIET.Value =true then "- Juliet" End if & ")
I have used a formula in a cell, the error option button appears at the corner of that cell, it is working well but showing Inconsistent Formula
View 7 Replies View RelatedI have my Excel set up for a default font size of 12 point.
I often download CSV data to insert into spreadsheets. It opens in a new spreadsheet, and it's properly displayed in 12 point size. When i copy and paste it into the ultimate target spreadsheet (which is also set to 12 point size) the pasted data shows up as 10-point and I have to change the font size back to 12-point every time.
Why is this happening and how can I avoid that re-sizing that occurs?
I want to stop those little green error checking markers in the top corner of cells from appearing in my spreadsheet. My formula is correct however the error markers appear in 40(ish) cells and make it look very untidy. I know there is the option of turning background error checking off, however isn't appealing to me as I have other worksheets where I want to check for errors. Also, my report is used by 20 people so I can't change the options which might affect other reports they may have.
What I'd like to do is either turn off the option for one specific worksheet, or add a few lines of code which sets the cell properties to ignore the error for each of the cells affected. I've tried to use macro recorder to work out how to ignore a cell but it doesn't record anything for this action. Is anyone aware of the correct piece of code to carry out this action?
married, widows, single checkbox is selected
macro solution
good work.
How figure out how to drag down a formula that looks like this for the first three cells (C3:C5)?
=(SUMPRODUCT(Polls!D2:D5,Polls!B2:B5))/(SUM(Polls!B2:B5))
=(SUMPRODUCT(Polls!D8:D11,Polls!B8:B11))/(SUM(Polls!B8:B11))
=(SUMPRODUCT(Polls!D14:D17,Polls!B14:B17))/(SUM(Polls!B14:B17))
...etc.
Is there a way to let Excel know that I'm adding six to each cell, rather than it automatically adding one?
I am using Excel 2002 and trying to do something which should be simple with MATCH.
I have an array of numbers ordered, starting at 0 and incrementing by 0.05 up to 20. I am then using the MATCH function to find the relative position of numbers 0,1,2,3,4 and 5. However, for number 0,1 and 2 the return value is one less than what it should be, for the numbers 3, 4 and 5 it is working as expected. By the way, the match_type I am using is the default 1.
Also I have formatted everything to be numbers and tried various things already, so am beginning to wonder is this is a known issue.
I have 2 columns to compare which has almost same data but in different formats or sources. I need to update a 3rd columns as 'Yes or No' by checking the checking the data in both the columns. For ex. - Column A has data as - "BIENZ, STEPHEN R"
and Column B has data as - "SALTZER MED GRP/BIENZ". Now as 'BIENZ' is same in both columns so 3rd column should get updated as 'Yes'. There are 3000 rows which needs to be compared in this way.
I have to pull data from a workbook poasted on a Sharepoint site on a weekly basis. The name of the spreadsheet changes each week, based on the date, and may not be consistent (ie: WBook12_4_9.xls, Wkbook12_04_09.xls, WBOOK12_4_09.xls). My users will have the spreadsheet open, and I'll tell them to ONLY have that one open, but how do I tell my macro to pull from that workbook?
View 10 Replies View RelatedI have an excel stock price template, where I need the current price to calculate the mid point if the chart.
This is the text I get from the webquery
Underlying stock: SBIN 2699.00 as on Jul 04, 2014 15:30:36 IST
I need a formula to extract the stock price '2699.00' only from this text.
The problems are sometimes its may change to underlying "stock" to "index", SBIN to RELIANCE or TATASTEEL, and the price some times two digit say 16, some times 6 letters say 150.05, or 8 digits say 15160.00
Formula, the text in B1 and need the price at A100.
Problem:
I'm attempting to consolidate 3 columns of data that is a varying number of rows in length (a range of 0-1000 roughly) for 53 different worksheets (1 per week of the year, named '1' , '2', etc.). All three columns on each page are the same length. What I want to do is consolidate all the data onto one worksheet 3 columns wide and X rows long (so one week's range of data after the other, but it doesn't have to be in any specific order). I am looking mainly for code because that seems to me like the best option at this point unless someone can provide a viable alternative.
What I've tried:
I've tried on a smaller scale, 5 worksheets, naming the ranges using the OFFSET function to create a dynamic range and then trying to paste one right after the other with no luck getting it to paste such a large range. Going along with that I chopped and dropped some code from another online source (forum? tutorial? I don't remember) and modified it to consolidate the 5 named ranges, however, the code does not really seem feasible for 53 named ranges. Loops seem reasonable, but I couldn't come up with an easy way to cycle through the worksheet names and named ranges.
I only have a few hours worth of VBA tinkering so I'm sort of lacking, but I have other coding experience so the structures and concepts are familiar just the syntax and finer points are greek to me. I sadly don't yet have the time to sit and learn VBA either.
If there's an easy way to put a few loops in or you think it should loop through and copy each cell rather messing around with ranges then go for it.
Here's what the code looks like after I modified it: ....
I have a data set in an Excel spreadsheet entered as one column of data. It is names with addresses, phone numbers, job title, etc. I want to select and transpose each person in the list so when I am done the person's name is in column A, Company name in column B and so on. The problem is the information listed is not the same for each person - so there is a different number of rows for each person. The names are in bold text though, so I need to select from one cell with bold text to the row BEFORE the next row with bold text and transpose the data for each selection. I found this forum by finding an old question here that is similar at Copy based on Bold Paste-transpose provided in that post and it produced no result.
View 4 Replies View RelatedI have 3 checkboxes; when one is checked, a set/range of rows should be visible. Only 1 checkbox should be checked at a time.
If checkbox 18 is already checked, and checkbox 20 is then checked, I want the first checkbox unchecked and the rows for checkbox hidden.
I'm using the following code. It works great as long as I check and uncheck the same box before attempting to check another box. But if Checkbox18 is already checked with its rows showing, and I then check checkbox20, the checkbox20 sub runs and as I step through, it jumps to sub checkbox18.
How can I stop my subs from jumping from one to another?
Code:
Private Sub CheckBox18_Click()
If CheckBox18.Value = True Then
Worksheets("TRF").Rows("36:41").Hidden = False
Worksheets("TRF").Rows("42:64").Hidden = True
Worksheets("TRF").Rows("65:76").Hidden = True
CheckBox19.Value = False
[Code] .........
Basically I have some performance figures for a fund that I want to make a chart for, the problem is that the first date (the start date of the fund) is 15/09/2011 but every reporting date after that is the end of the month.
So my data looks something like this (not real figures)
15/09/11 20
30/09/11 22
31/10/11 23
30/11/11 25
31/12/11 26
31/01/12 27.5
29/02/12 29
So what I want is a graph where the x axis starts at 15/09/11 but then the next label is 30/09/11 and 31/10/11 etc, while still keeping the scale proportionate to the dates, ie the distance between 15/09/11 and 30/09/11 will be half the distance between 30/09/11 and 31/10/11.
The 2 outcomes I seem to be stuck with is either forcing the graph to start at 31/08/11 and making the y axis cross at 15/09/11, however with this the x axis goes left past the y axis cross point and it just looks dumb, although everything right of the y axis is correct.
Or secondly I get the graph to start at 15/09/11 and set it to label every 1 month and all the labels are 15/09/11, 15/10/11, 15/11/11 etc
I have access to excel 2003 or 2007.