I have the following script in a command button. the command button is for the month of january. I would like to enable the button based on if a cell value is January, or unenable it based on the cell value being any month after January....
View 7 Replieshow can we disable/enable a cell based on a condition which is dependent on other cell data
View 4 Replies View RelatedIs there a way in Excel (2010) to lock data from being entered into cells based on the value in another cell? Here is an example:
Row 4 contains dates from 2015-2030 as a header starting at column C (C4 and on) that represents years of revenue. Column B contains dates as well, this date can be any year but this becomes the driver for the data input in columns C through X. Column B contains the "Delivery Date"
Data is input in Columns C and so forth. The issue becomes that let's say that the date in C4 is 2016 and this is the beginning year. Obviously there should be no inputs for 2015 (C5) and the data should start to be input for this year at 2016 (C6). Often people just begin filling in the first available year not looking at what the year actually is.
Is there a way to add a formula or some logic/protection to prevent inputs in previous rows based on the values in column B? So if the value in column B is XXXX than there can be no inputs in cells less than that value?
This is what i have but its not working.
Code:
Private Sub UserForm_Initialize()
CommandButton4.Enabled = Not (Sheets("0").Range("J8") = "Off")
End Sub
I am attempting to modify a spreadsheet so that it will enable a range on Sheet3 (I9:K42) if a check box is checked on Sheet2. If it is not checked, it will lock that range on Sheet 3 and grey (or gray, if you prefer) out that range.
View 9 Replies View RelatedI have a spreadsheet with 2 combo boxes - Combobox 1 enables a user to specify if they want to look at the data on the sheet by week or month - it has just 2 options - "select by week" or "select by month"
The list in combobox 2 changes based on the selection in combobox1 - so if you select "select by week" , a date list by week shows up.
Combobox 2 is supposed to run a macro which updates some backend pivot tables. there are 2 types of backend pivottable - weekly tables and monthly tables.
What i am not sure about is how to get the selections in combobox 2 to run either the weekly macro or the monthly macro based on if combobox1 is set to week or month ...?
I am creating a form that performs several different functions. I would like to force a sequence of these functions by enabling/disabling the controls based on a variable.
For example, a form as two buttons Button1 and Button2. By default, Button1 is ENABLED and Button2 is DISABLED. When Button1 is clicked, a macro is run, where an Enable_Button2variable is initialized to FALSE. The last line of the macro sets the Enable_Button2 variable to TRUE. Then, because Enable_Button2 is now TRUE, Button2 then becomes ENABLED.
I am trying to apply this strategy to a ComboBox, ListBox and CommandButtons. I'm not sure what event to trigger on to poll the Enable_Button2 to enable/disable the control.
I'm currently building an Excel database. This database has a few comboboxes and checkboxes that are tied to each other. If I select the combobox option of "Years", the "Quarters" combobox must be greyed out. In addition depending on which option is chosen, the relevant check boxes must be enabeled or disabled. I've written some code which runs fine, until I try and activate another macro button or if I add and rename a sheet(which is not linked to anything). What should I do? Here is a sample of my code. I have a feeling it's really obviouse but I cant see it..
Private Sub ComboBox2_Change()
If Sheets("InputSheet").ComboBox2 = "Years" Then
Sheets("InputSheet").ComboBox3.Value = ""
Sheets("InputSheet").ComboBox3.Enabled = False
Sheets("InputSheet").CheckBox6.Enabled = True
Sheets("InputSheet").CheckBox7.Enabled = True
Sheets("InputSheet").CheckBox8.Enabled = True
Sheets("InputSheet").CheckBox9.Enabled = True
Sheets("InputSheet").CheckBox10.Enabled = True
Sheets("InputSheet").CheckBox11.Enabled = True
Sheets("InputSheet").CheckBox12.Enabled = True
Sheets("InputSheet").CheckBox13.Enabled = True
Sheets("InputSheet").CheckBox14.Enabled = True
End If...................
Have wrote the following code to enable 7 sheets to be unprotected, the pivot tables and charts housed within them to be refreshed then the sheets to be protected. However, once the macro has finished I need to be able to still use the filters on the pivots to flick through data. I also need the data table to be protected with the exception of a cell range that can be edited (preferably password protected.
Sub Refresh()
'
' Refresh Macro
' Refresh Pivot Tables/Charts
[Code].....
I need to extract text from the middle of a cell. I know you can use the MID function but with the complete function as i need to extract text string from Name to the end of their full name (I have highlighted below in bold). Of course their full name will change in each row.
Example text in cell B2: ID: 197993043 Name: Ben Fred Company: ID: 197992821 Name: Hello World!
A2 cell: =MID(B2,15,??????
i put this code to thisworkbook to disable print function
View 13 Replies View RelatedIs there any code that will automatically enable macros on Auto_Open?
View 6 Replies View Relatedi want to dis able and enable this button using three criteria, and auto paste the comment to other sheet.
View 2 Replies View RelatedI have excel sheets that cross link with each other. I've just migrated to Office 2007. When I open my excel sheet I always get the question at the bottom of the tool bar Security Warning Data connections have been disabled. And then I have to click on option and enable content.
My question is, how do I always enable the content?
****** http-equiv="Content-Type" content="text/html; charset=utf-8">
****** name="ProgId" content="Word.Document">
****** name="Generator" content="Microsoft Word 14">
****** name="Originator" content="Microsoft Word 14">
I have opened a dodge workbook on which disabled the Feld List button in the pivot table contextual tab Options>Show>Field List.
I found the following line of code which confirms the command as being disabled by returning a FALSE message.
MsgBox Application.CommandBars.GetEnabledMso("PivotFieldListShowHide")
Now I need the code tore-enable this command.
I have a workbook which uses data connections to our sage accounts product. Everytime i open the sheet i get the "Data Connections have been disabled" security message, and need to go in and enable them. Is there any way of enabling the data connections by default? I only want to do it for this one workbook - i still want to be prompted when i open other workbooks.
View 2 Replies View RelatedI have a workbook with the following:
Code:
Private Sub Workbook_Activate()
Application.CommandBars("Ply").Enabled = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"",FALSE)"
End Sub
Code:
Private Sub Workbook_Deactivate()
Application.CommandBars("Ply").Enabled = True
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"",TRUE)"
End Sub
All of a sudden my right-click isn't enabling when I reopen Excel. I can run the macro
Code:
Application.CommandBars("Ply").Enabled = True
once opened, but once I close it out again, the right-click is disabled.
Is it possible to enable/disable a texbox in excel which has been assigned a macro. To make it clear I'm not talking about a textbox within a userform. I understand I should really be using command buttons but I prefer the look of textboxes.
I have the following code to change the colour of the textbox (name: txtCreateInvoice) but the final line to disable the textbox doesn't work.
Code:
Sheets(1).Shapes.Range(Array("txtCreateInvoice")).Select
With Selection.ShapeRange.Fill.ForeColour
.ObjectThemeColor = msoThemeColorText1
.Brightness = 0.5
End With
Selection.Enabled = False
I have a spreadsheet with a web data import query that is set to automatically refresh whenever I open the spreadsheet,
But whenever I open the spreadsheet, I get a dialog box "Query Refresh" that tells me my workbook contains queries to external data that refresh automatically.. etc., etc. This requires that I click "Enable automatic refresh" to get close the dialog box and start the import.
I want to get rid of the warning box, and just have it run after being started.
I have converted an Excel file from 2003 to 2007. The file now has a .xlsm extension as it contains macros. I have "enabled all macros" and "trusted access to the VBA project object model". Whilst open, I have tested the macro buttons and they work.
I then close the file and re-open it, and the macro's will not work. A message appears along the lines of "macros are anabled" or "macro is not found". I have double-checked the settings and everything appears normal.
How do I enable macro recording in Excel2003? When I select Tools - Macro, the 'Record New Macro' selection is disabled. How do I enable it?
View 2 Replies View RelatedI want the user of a file to be able to click on a particular cell and if they right click an option 'Change' will appear on the list of options and on clicking it a macro is enabled.
View 9 Replies View RelatedIs it possible to add a piece of code with the below code.
There are two Buttons in my Work Sheet. One "SAVE" the other "PRINT". If PRINT button is clicked by mistake before clicking SAVE button, a Pop up message should say "SAVE DATA FIRST". If Data is saved then based on that I should be able to Click PRINT Button.
( Or )
Enable PRINT Button only after DATA is Saved
Sub saveit()
With Sheets(2)
r = .Range("B65536").End(xlUp).Row + 1
InvN = Cells(15, 4).Text
'Clicking the "SAVE" button Without entering datas in the rest of the Fields,
'ie., in C18, C20, C22 and C24 should NOT save the Current Invoice number
'with the rest of the details in the next sheet. A pop up should say that
'"Fill all Fields" when trying to hit the Save button if a Field is blank.
If Range("c18") = "" Or Range("c20") = "" Or Range("c20") = "" Or Range("c22") = "" Or
Range("c24") = "" Then
MsgBox "Please fill all required fields", vbCritical, "Missing data"
Exit Sub
End If
On several of my worksheets, I'm asked if I want to disable/enable the macros but there are none associated with that particular worksheet- matter of fact, none of my worksheets have macros unless pivot tables count, so why am I being prompted in that way?
View 9 Replies View RelatedI have a ton of text boxes on a userform that are in an initial state of being disabled. Is there a quick way of enabling by use of a mask for these Text Boxes ?
All the text boxes I want to enable are named "TB_fieldname" and by mask I mean a snippet of code using something like "TB_*"
Example
tb_liqname, tb_casecost, tb_bottleprice etc etc..
I saved the workbook as Macro enabled workbook in 2007. Also changed the security level to 'Enable all macro'. But the Macro buttons on the developer tab still shows disabled. Also not able to open VBA window with Alt+F11 key.
View 9 Replies View RelatedI'm using the following code to automatically install the Analysis ToolPak Add-ins...
Private Sub Workbook_Open()
If Not AddIns("Analysis ToolPak").Installed Then AddIns("Analysis ToolPak").Installed = True
If Not AddIns("Analysis ToolPak - VBA").Installed Then AddIns("Analysis ToolPak - VBA").Installed = True
End Sub
... However, completion of the ATP-VBA install requires in the VBE that Tools> Reference and ATPVBAEN.XLA be enabled.
What VBA code do I need to complete this last step?
With Sheet4
ActiveSheet.Unprotect Key
.Rows("13:252").EntireRow.Hidden = False
If Me.OptionButton1.Value = True Then
.Range("MyMrate").Range(Cells(Val(Me.TextBox1), 1), Cells(Val(Me.ComboBox1), 1)).Value = .OLEObjects("TextBox" & i).Object.Text
.Range("MyMcash").Range(Cells(Val(Me.TextBox1), 1), Cells(Val(Me.ComboBox1), 1)).Value = (.OLEObjects("TextBox" & i).Object.Text * (Range("MyRSF") / 12))
ElseIf Me.OptionButton2.Value = True Then
End If
End With
For some reason, once the code runs, it calls this code,
Private Sub combobox1_Change()
Me.TextBox2.Enabled = Me.ComboBox1 ""
If Me.ComboBox1 = "" Then
Me.TextBox2.BackColor = RGB(225, 225, 225)
Else
Me.TextBox2.BackColor = RGB(255, 255, 255)
End If
End Sub
And then I get an error message that the code could not set the enable property of Textbox2.
My ENTER button in my keyboard does not work.
I think it is because I have disable it.
does anybody know hot to enableit?
kind of:
Application.OnKey "^"
but don't know which one!
I am trying to use the EnableMacros. zip script located here {url} But I am having a hard time making it work!
1. I have copied the module in EnableMacros.zip and imported it into my workbook.
2. I have placed identical code in my workbook's ThisWorkbook as is in the EnableMacros.zip's ThisWorkbook.
3. I have copied Sheet1 from EnableMacros.zip titled "Info Sheet". In MY workbook it is sheet7, but it is titled the "Info Sheet" in the EnableMacros.zip.
4. I have also copied sheet6 from EnableMacros.zip into my workbook and titled it "LoadScreen". In EnableMacros.zip the sheet is titled "Sheet1"
...