What is the method to trigger an event on a command button (placed on a worksheet - not in a form) when the return key is pressed? I.e. instead of moving to the next cell clicks the button?
View 9 RepliesThe code handles keydown, keypress events with no problem. Also similar change events, and probably more.
This code is at UF initialize event:
Option Explicit
Dim TextBoxes() As New Class1
Dim ComboBoxes() As New Class1
Private Sub UserForm_Initialize()
Dim TCount As Long, CCount As Long, c As Control
TCount = 0
CCount = 0
'Set TabIndexCollection = New Collection
For Each c In Me.Controls
' TabIndexCollection.Add c, CStr(c.TabIndex)
If TypeOf c Is MSForms.TextBox Then................
I have a user entering text into a textbox on my userform. The textbox is linked to a textbox change event. Unfortunately, the event is triggered as soon as the user enters the first character of their entry. I'm thinking that the textbox change event isn't the most appropriate for this scenario. What would I need to do to trigger the code (of the change event) with hitting ENTER when finished?
View 9 Replies View RelatedI am working with a large legacy file/program which has a lot of issues. Foremost, and unfortunately this cannot be changed, is that all of the controls were placed directly on the worksheets instead of on Userforms.
I had previously posted code from the legacy file which may have been excessively complicated. So I edited my post to this simple example. Sheet1 has one textbox and one command button. Sheet 2 is blank.
If Sheet2.Activate is commented, everything works fine. If Sheet2.Activate is executed, then Excel crashes....
Does anyone no a way to trigger a macro by just using the enter key in a difined rage ("A1:A100") Not worksheetchange
View 9 Replies View RelatedI am working with a large legacy file/program which has a lot of issues. Foremost, and unfortunately this cannot be changed, is that all of the controls were placed directly on the worksheets instead of on Userforms. The actual code from the legacy file is excessively complicated, so I created this simple example. Sheet1 has one textbox and one command button. Sheet 2 is blank. I want to be able to click the command button or use the Enter key on the command button, to trigger the Click Event. Clicking works fine. When using Enter, if Sheet2.Activate is commented, everything works fine. If Sheet2.Activate is executed, then Excel crashes.
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim bBackwards As Boolean
Select Case KeyCode
'Only look for tab, return, down arrow, up arrow
Case vbKeyTab, vbKeyReturn, vbKeyDown, vbKeyUp
Application. ScreenUpdating = False
'Do we need to go back to previous control
bBackwards = CBool(Shift And 1) Or (KeyCode = vbKeyUp)
If bBackwards Then TextBox1.Activate Else CommandButton1.Activate
Application.ScreenUpdating = True
End Select
End Sub
Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim bBackwards, bForwards As Boolean
Select Case KeyCode
Case vbKeyTab, vbKeyReturn, vbKeyDown, vbKeyUp
Application.ScreenUpdating = False...................
I'm having some trouble getting control ENTER & EXIT events to fire properly when having controls embedded on frames within a userform. I'm using Excel 2003, 2007, & 2010. Here's the userforms I'm working with:
With FRAME:
Without FRAME:
In both cases, the DESCRIPTION field is disabled. The selectable controls on both are a combo-box, textbox, listbox, & 2 buttons. On the FRAMED version, the combo-box & textbox are contained on a FRAME.
Here's the code, same on both userforms:
Code:
Option Explicit
Private Sub cmbRecipes_Enter()
ListBox1.AddItem "ENTER - " & cmbRecipes.Value
End Sub
Private Sub cmbRecipes_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ListBox1.AddItem "EXIT - " & cmbRecipes.Value
End Sub
All this is doing is posting a message to the listbox when the combo-box ENTER & EXIT events fire. This works as expected without the FRAME, ENTER is shown when the combo-box is entered and EXIT is shown as focus is moved to another control. But when running it on the FRAMED version all I get is a single ENTER event recorded regardless of how I move the focus through the control set.
Another oddity is that if I have more than 1 control that can receive focus on the FRAMED version, it appears to work correctly.
The macro below works great as a conditional format routine on the Input sheet of the workbook, however I would like it to run on the Data sheet as well, but with a different range (E3:CE117). Can this be done?
Private Sub Worksheet_Calculate()
Dim dcell As Range
Dim icolour As Integer
For Each dcell In Range("c15:g27")
Select Case dcell.Value
Case "GA"
icolor = 43
Case "GAC"
icolor = 4
Case "LA"
icolor = 45.....................
I have a workbook that has various number of worksheets at any time. Each worksheet has data about current employees. We can have anywhere between 20 and 50 employees at a time. When we get a new employee, we take the "template" worksheet, copy it, and rename it with the employee name. We also have a summary sheet. On the summary sheet we have the employee name in column "A" and the hire date in column "B"
Each employee sheet is set up the same since we use the template. So the employee name is in cell "A6" and the date is in "I6".
Is there a macro I can use that will update the summary page every time a worksheet is added or removed? I don't want the macro to run on its own - I want to make sure we can manually run it (after we are done entering data into the new sheet).
So, basically, what I want to do is to search for all worksheets except "template" and "summary" and take the value in cells "A6" and "I6" and paste it in the "summary" sheet in cells "A3" and "B3" respectively, and then the next values from the next sheet into "A4" and "B4" and so on and so on.
I have been experimenting with code all day, and started just trying to get the employee names copied over (cell A6) and can't do it so I haven't even tried the hire date yet (cell I6). I have tried probably 15 different codes but I guess I do not know what I am doing. The latest code I tried is....
Worksheets("Summary").Activate
FirstCell = Worksheets("Summary").Range("A3")
For Each Worksheet In Sheets
If Worksheet.Name "Summary" Then
ActiveSheet.Range("A6").Copy Destination:=Worksheets("Summary").Range(FirstCell + 1, 0)
End If
Next Worksheet
End Sub
It would be cool too if after all the values have been pasted into the "summary" sheet if I could sort alphabetically, but I don't want to push my luck.
I have multiple sheets in a workbook. The sheets are protected as this workbook is used by other users also. I need to enter same data in column E of around 15 sheets. I select multiple sheets with ctrl+ or shft+click method and enter the data in the required cells. The problem is after selecting multiple worksheets, I'm not able to enter any text but I can enter numbers. When I remove the protection from all the sheets it is possible to enter either text or numbers.
View 4 Replies View RelatedI am trying to make a macro run automatically based on info entered in a cell. The problem is I need this code on at least three separate sheets in the work book. It doesent work when I try to use the same basic code. The code I am using is below.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lLastRow As Long
Dim rgArea As Range, rgCell As Range
Dim COL_B As Integer
COL_B = 2
Dim COL_X As Integer
COL_X = 24
Dim ROW_FIRST As Long
ROW_FIRST = 5
' Find the last row of date in the "Approved" worksheet
lLastRow = FindLastRow(SZ_WS_APPROVED, COL_B)
' Set a reference to the changed cells in column X
Set Target = Intersect(Target, Range(Cells(ROW_FIRST, COL_X), Cells(lLastRow, COL_X))).........................
See the file attached (there are the same columns on all sheets, apart from on "BLANK"). The "Sort" sheets 1-4 contain rows that are repeated various times on the "Raw data" sheets. The "Sort" sheets are mutually exclusive; there is no repetition of rows among them. When I make an entry into an "ACTION" or "REASON" cell on any of the "Sort" sheets, I want that entry to be replicated on all identical rows throughout the "Raw data" sheets. Matching of the rows is to be via Criteria 1 and 2. I would preferably like the replication to be as I make the entries.
I am currently looking into writing a private sub for each "Source" worksheet. This would activate when a change was made to that sheet's ACTION and/or REASON cells, group that sheet with the three "Raw data" ones and change the relevant cells/rows (assuming that finding the relevant cells/rows within this function is possible). Or the macro could just loop through the rows of the three "Raw data" sheets and copy IF, but this would be long. Does this sound like the way forward or am I barking up the wrong tree? Should I be looking into VLOOKUP or pivot tables? Or is my data structured badly in the workbook from the outset? How straightforward will this macro be? Has anyone any pointers, magic routines in their libraries or links to relevant info?
I have a workbook with 33 worksheets (31 date tabs and a Month To Date and Year To Date tab)
I want to have a clickable cell on each of the 1-31 date tabs to point to the MTD
I know I could do this easily with a hyperlink but I would rather have a clickable cell.
I have achieved this on an individual worksheet using the following code
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("$R$3")) Is Nothing Then Sheets("MTD").Select
End Sub
My question is: Do I have to copy this to every single worksheets code or is there some way have all sheets read the same private sub? (I guess it negates the point of a "private sub")
Way to do this as it would make editing any changes easier than having to do it 31 times.
Is there a way to write a Worksheet_SelectionChange (ByVal Target As Range) event in module after creating a sheet in VBA? I constantly delete a sheet, then repopulate it with a new one that is empty, but I need to add some code that happens if they should change a particular cell. It worked when I ran it on a worksheet without refreshing, but as soon as I cleared and repopulated the sheet, it was gone. Is there a way to preserve this?
View 9 Replies View RelatedI really know nothing about vba so here goes. I would like to enter data in a row with 4 cells of info. then hit enter and return to the first cell and move the row down. all four cells must have data entered. and all four must move down. i tried some code as below i found and i modified but it did not work as expected. this moved the row down when returning the cursor to A2. It also should not copy the data style of the top row.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
[Code].....
This formula must be confirmed with CTRL+SHIFT+ENTER not just ENTER. You will see { } brackets appear.
View 3 Replies View RelatedI have the following code, which works perfectly:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TotalDays As Integer
TotalDays = Range("C65536").End(xlUp).Row + 1
The code points to the next blank cell so the user can input a value. Each time the user enters a value I want to re-run the code so that the colour of the cell changes.
However I also want to perform various calculations on the sheet. However this means the sheet is being changed and so continually repeats my code.
How do I add the following, to my previous code?
Range("E8").Value = Cells(7, 6) * 2.5
Looking for the syntax that will allow me to code an event sub routine, based off the event of a specific function e.g. findnum being run.
View 14 Replies View RelatedI have read that there is a VBA macro in F11, but I also read that it would only sort the workshhet names, but not the data. I have Excel 2010.
View 2 Replies View RelatedJust need to delete some hyperlinks in column A on 50+ worksheets. Thought a loop through all the worksheets would do it. Only works on active sheet. Forgive my ignorance, don't really even know where it goes, once it works - module or workbook?
View 2 Replies View RelatedLet's say I have a workbook with 7 worksheets named, for example, "Instruction", "Begin", "Worksheet 1", "Worksheet 2", "Worksheet 3", "End", and "Data". (in that order)
What I want to do is run a macro to go to whatever worksheet that is in between "Begin" and "End" and copy, for example, cells $C$1:$D$10; then paste as formula into worksheet "Data" starting from cell C1 and then down a list (i.e., copied cells from "Worksheet 1" get pasted as formula into "Data" cells C1:D10; then copied cells from "Worksheet 2" get pasted as formula into "Data" cells C11:D20, and so on and so forth).
But if I were to add more worksheets (e.g., "Recipe" and "ToDo") positioned in between "Begin" and "End" and run the macro again, it'll either 1) re-copy all the formulas from the included worksheets back into "Data" including the formulas from the newly added/placed worksheets or 2) it'll add the formulas from the newly added/placed worksheets and paste into "Data" at the end of the list.
Can create the macro to run based on the position of worksheet, and not based on the name of worksheet, since ultimately there will probably be over 10 worksheets between "Begin" and "End".
I'm trying to perform the same process to all the worksheets in my workbook. This is the code I have now, but it will only apply to the single active worksheet:
View 2 Replies View RelatedHow do I modify this macro so that the worksheet array will select all the worksheets except sheet 1?? My workbooks will have varying numbers of worksheets ...
View 3 Replies View RelatedInstead of just counting all worksheets I want to count the number of worksheets between 2 control worksheets (Start and End). Reason for this is that I have a Workbook that grows weekly and each new worksheet is inserted after "Start". I have a macro that lists the Worksheet names but it grabs all and I only want those between Start and End.
View 9 Replies View RelatedI need to write VBA code to clear all Values, all values beginning with an = sign for eg = 9725, except formulas and text on all my worksheets, except the last 2 worksheets.
View 9 Replies View RelatedWhat would be the name of the event where if I select a particular cell in Sheet1 it triggers something in say Sheet2?
View 9 Replies View RelatedI am writing a macro and using the filepath, it will change from 001 to 002 etc. I would use a ' but when it gets to 010 it goes wrong! is there a formula I can put in a cell that when typing 5 it results in 005?
View 9 Replies View RelatedWorking in Excel 2003. I have a VBA code that, if a particular option is chosen from a drop down box, then a message box appears. What I'd like to do is alter this code so that if cell J5 has "Text 1", "Text 2", or "Text 3" then the message box does not appear. Here's my
View 3 Replies View RelatedI've created a macro with a custom dialog box, but I don't know how to make the transition from when I make the dialog box pop up, the user enters the information, then they click "Continue" or "Cancel" or whatever it may be, how to do I make it happen from there out?
Do I make the command buttons a boolean and if they click it's true? How do I make it work?
I have a user input box (VBA) with two columns of data entry. The leftmost column has text boxes labeled color1, color2, color3, etc.. The rightmost column has text boxes labeled tag1, tag2, tag3, etc..
I have the TAB sequence set to go from color1 to tag1, color2 to tag2, color3to tag3, etc..
A user can inadvertently tab over the color1 (or color2, etc. columns) into the tag1 (or tag 2, etc. columns) column without entering data in the color column.
Is there coding to allow a TAB key entry to be a Change Event such that, if a user TABS out of color1 without entering data, a MsgBox could signal that they must enter data in the color1 field before they can continue?
Alternately, can you suggest a different approach? The goal is to require an entry in the leftmost column (color1) before they can proceed to the tag1 field. Of course, they are given a "Cancel" option.