I have these two codes for two different buttons and was wondering if it were possible to combine them into one button?
private sub commandbutton1_click()
dim i as long
i = 2
for each cell in sheet12.range("b:b")
if cell.value = "d" then
[Code] .......
----
private sub commandbutton2_click()
dim i as long
i = 1684
for each cell in sheet12.range("b:b")
if cell.value = "f" then
[Code] ......
Just starting to learn VBA. I have the 2 following codes.Can they be combined into 1 code.I have 2 buttons one say hide rows and the other button says unhide rows....can 1 button be used and when the rows are visible the button says hide rows and when the rows are hidden the button says unhide rows
Sub hiderows()
ThisWorkbook.Sheets("sheet1").Rows("3:12").Hidden = True
End Sub
Sub unhiderows()
ThisWorkbook.Sheets("sheet1").Rows("3:12").Hidden = False
End Sub
combining two worksheet change codes. I have the following
View 4 Replies View RelatedIs it possible that when you press a command button, that the first thing it does is to execute the code assigned to another command button (IE in another sub).
View 9 Replies View RelatedHow can I return name of a command button on click? I want to create some sort buttons on a sheet I will use regularly to speed things up. I thought if I could call each sort button by the column letter the button sits in I can use this in a single sub for all buttons
e.g the button sitting in column A is called "A". when i click the button, it returns it's name to a variable which I can then use to sort column A. I know I could create a seperate routine for each button but I was just trying to think of something neater.
I have a userform with a button on it named But1. Is it possible to store But1 into a variable then activate the But1_Click action using a variable?
Dim strButname As String
strButname ="But1"
Now, how would you activate the But1_Click method using strButname variable. With listboxes you can use the Control(strListboxName) methodology?
This doesn't work, but gives you an idea of what I am trying to do.
Controls(strButname)_click
I currently am using a form button to create new rows.
I need two different kind of buttons. I have a button that does this-
VB:
Sub InsertRow()
'this inserts a row where the button is clicked.
Dim r As Range
[Code]....
However, when I try and create these codes using a Command button (I need it for the color), I get the error
"unable to get the buttons property of the Worksheet class"
P.S one other thing, say the button is in row 3, and Cells A1 and A2 are merged, when you click the button in row 3, it should extend the merge to A3.
i want to create a save button in sheet 1, on clicking the same the data entered in the particluar cells of sheet 1 should get saved in sheet 2 in given format
View 1 Replies View RelatedThis is probably really straight forward but cant see why it happens, the following macro works fine when called by a button created by the form toolbar but doesnt when called by a command button, get the runtime error 1004, "select method of range class failed"
ActiveSheet.Select
Range("B4:B37").Select
Selection.ClearContents
Range("G4:G37").Select
Selection.ClearContents
Range("B1").Select
Selection.ClearContents
Range("D1").Select
Selection.ClearContents
Range("F1").Select
Selection.ClearContents
Range("J1").Select
Selection.ClearContents
Range("M2:M3").Select
Selection.ClearContents
Range("B4").Select
ActiveWorkbook.Save
Application.Quit
I have read several articles saying using a command button as a toggle button can't be done but some articles have said it is possible using the state properties.
.State = msobuttondown
.State = msobuttonup
Is there any way to combine this with the onaction property so that when you press the button, it stays down and activates a macro then when you press it again it pops back up and activates another macro.
I have searched this topic but I came up with nothing regarding my exact situation.
I have 5 buttons on sheet 1. I want them to all direct me to another sheet in the same workbook. However, some buttons will contain more than one sheet.
Example: Button 1 will direct me to 4 different sheets. Is this possible?
Also, When I open the workbook, I see many sheets that I am working from but I do not want them to show up when I open the workbook. The only way to see these sheets is to click on the command buttons at the top of sheet 1.
When I press a command button I want to:
Uncheck a checkbox made with Control Toolbox
Check a particular Option Button within a group box made with the Forms Toolbar.
EDIT: Clarification, I want both things to happen when I click one button.
Is it possible to check multiple checkboxes with a command button?
For example, I have 20 checkboxes (C5 to C25) when command button is clicked
C5, C12, C17, C20 would be checked.
how to keep a command button in a certain location even if the a row or Column is Deleted or Inserted into the worksheet?
View 1 Replies View RelatedI know that this may seem a little strange to request as you can just select the row and delete it, however the sheet is designed as "idiot proof", so I would like to implement this.
Basically, I have a box which states "If you need to delete a row due to incorrect entry, please type the row number here (next cell), and click delete".
I want to know if by using VBA, you can reference the number entered in the cell, and use this to determin the row in which we are required to delete.
I have a 2 worksheets. One "Projects in Process"and the other "Project Completed". when the users fill in the information in cells A4-F4 (line 4 is the starting line and it could go down as far as line 23 or a23 - f23) In Projects in Process they press a "completed Project" command button and the data in a4-f4 copies over to worksheet "Projects completed". In the next available row (starting at row 4).
View 13 Replies View RelatedI am running Excel 2003 and in my workbook I created a macro and assigned it to a toolbar comman button, "Copy Filtered Data". This macro copies the visible data into a new workbook.
This works well but others in my company will also be accessing this workbook from a sharepoint and I discovered that when they open it this command button is not on their toolbar.
Would anyone know what I need to do to have this button load on the toolbar when the workbook opens?
Also, I would like this button to either unload or greyout when the workbook that this button is intended for is closed.
I want to create a command button that will clear whatever is written in a text box. I guess for this to work it needs to select all, then clear. The command button and the text box have been created using the control toolbox.
View 2 Replies View RelatedI have created a userform with text boxes and a list box. I have a few questions. First for the list box. I got the information for my list box through the list box example sheet2!A1:A1000. Is there any easier way ? Next I would like to create a New Command button to create a new record. I decided to just do a clear all textboxes, option buttons ect.. to clear, is there an easier way ? I seem to be looping sort of way when I get to txtissue.Value = "" it than goes to txtIssue_Change()
View 14 Replies View RelatedI have a spreadsheet that automatically analyzes the last week's worth of data and then displays a table of summary data from that analysis in the range C2:G11. Each row (i.e. 2:11) represents the statistics from one of the 10 regions in the state. I then have a second "details" table which remains blank (it occupies the range C14:G20; one row for each day of the week) until an "x" is typed in Column H in the cell adjacent to a region's summary data above, e.g.
if I want to display detailed data for region 4 for the last week, I would type an "x" in cell H5; formulas in the blank "details" table then lookup information on region 4 from a larger dataset. This system works fine, but is a little clumsy (typing "x"'s and deleting previous "x"'s, etc.).
Here's what I would like:
1): A macro for this sheet that will place an "x" in the ActiveCell (only in the case that the active cell is somewhere in the range H2:H11), will remove that "x" when that cell is no longer active, and will not place more than one "x" at a time-- for instance if more than one cell is accidentally highlighted
2): Also, I would like to be able to paste the values and formatting of the "details" table (C14:G20) to a separate sheet (we'll call it Sheet2) if they're interesting, and I'd like to be able to do this with a command button. The problem is I don't know... 1: how to place a button on the sheet, 2: how to attach code to this button, 3: where to place this code (can it go in the same place as the ActiveCell macro I described earlier?).
Ideally, the code would allow me to paste an arbitrary number of these tables to Sheet2, so the code would need to be able to identify the first blank cell in Column A as the location to paste a new table when the button is clicked.
I have attached a spreadsheet example. I would like to be able to use a command button to pop up a series of questions for the user to input a value and have that value populate the directed cell.
Example from spread sheet:Click - "How many bid" button
First question should be " How many for Joe"
Input the number i.e. 2
The number input should go to the cell C5 in this example
Next question should be "How many for John"
I want to input the number 3
The number 3 should go into cell F5
How many for Jim
I need to input a number
The number should go to cell I5
How Many for Jerry
I need to input a number
The number should go to cell L5
I would also like the same function for the "How many won" button.
I have few problems with the below script. First I dont know exactly where I want the button to be placed since the data changes from week to week. Is there a way for me to place the button with in some merged cells? If so How can I merge some cells when I dont know where the data will end. I'm using this to find the last empty cell in Column "B" plus 2 cells down.
View 2 Replies View RelatedI want to insert a command button and assign a macro, I have the developers toolbar available with the controls section and on all other spreadsheets i can then select insert and choose the required button, however on the particular workbook i want to use the insert button is greyed out and not available.
i already use macros in this workbook and they work fine from keyboard shortcuts but i would like to make one of them run from a command button
Is there a simple setting somewhere which i may have turned off inadvertently previously or could the problem have anything to do with the macros themselves?
I have created a command button from the Excel 2003 from the Macros toolbar that I placed on my worksheet. I want to use this button to activate an existing macro. Currently I have no code entered for this button and the button when clicked on behaves as an object to be edited, moved, etc. How should I proceed?
View 6 Replies View RelatedI have 2 Subs in Module 1
I want to link them to a button
When I create a "ActiveX Command Button" it is only links to the worksheet (say Sheet1)
I have tired changing the name below to the Sub in the module but doesn't work.
Private Sub CommandButton1_Click()
End Sub
If I insert a command button into an excel spreadsheet on 'Sheet1', how do I make it a hyperlink button that will take me to cell A1 on the 'Sheet2' tab?
View 9 Replies View RelatedThe code below is supposed to disable the appropriate command buttons when it's associated cell values are 0.
Private Sub Worksheet_Activate()
If Range("C17").Value = 0 Then
ActiveSheet.CommandButton7.Enabled = False
ActiveSheet.CommandButton4.Enabled = False
Else
ActiveSheet.CommandButton7.Enabled = True
ActiveSheet.CommandButton4.Enabled = True
End If
Not working ..... no buttons are disabled even with their cells are zero. Did I forget something?
So right now I have the
Private Sub CommandButton19_Click()
Dim product As Double
product = ActiveSheet.Range("J45").Value * ActiveSheet.Range("S44").Value
Sheets("Sheet3").Range("R2").Value = product
End Sub
I want to be able to switch the cell the product goes into based on a certain command button that I click(for example I have a command button for when I use copper wiring and one for aluminum wiring and I want when I click the copper wiring button for the product to show up in one cell, but when I click the aluminum button for the product to show up in a different cell , but on the same sheet). To be more clear I have a quantity command button(which is the code above) that i want to be able to recognize the difference between when the aluminum command button is clicked and when the copper command button is clicked.
I'm just trying to fine tune my project to making users enter specific data into fields C17 and C19 [eg enter the word "hello" in C17 and the word "goodbye" in C19] before the command button is activated.
The existing code i am using [below] activates the command button when anything is entered.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C17, C19")) Is Nothing Then
If Not IsEmpty(Range("C17,C19")) Then
Me.Shapes("CommandButton1").ControlFormat.Enabled = True
Else
Me.Shapes("CommandButton1").ControlFormat.Enabled = False
End If
End If
End Sub
I want to check the check box (Name Sheet1) than cleck command button (Name show) after cleck sheet1 will show.
View 9 Replies View Related
