application.enableevents

hello guys, I have a Worksheet_change code that is working perfectly well (see below). I would like to add another code, using the same functionality i.e. (Worksheet_change) so that all entries in column HA are automatically Uppercase. How can I add a second code, right after the one below so...

Hello :) Im trying to duplicate 2 sheets in a workbook. The idea is to have 1 Sheet that is locked and gets its values from references/links, and the other has macro/button that imports and edits info from another file. In the locked sheet there is Data validation column that must be the only...

OK I have not been able to get this working. What I am trying to do is to when the value in B8 is changed the format of cell C6 on sheet Diagram has the font, wrap and shrink to fit changed based on the length of the entry. Values greater than 16 small font and wrap text. Values less than 16...

Hi, I am having the fun task of converting some Google sheets to Excel sheets, the google sheets have some javascript with that I need to change to VBA to enable the functionality in the final excel sheet. I am looking to do some thing simple really, when someone enters a value into Col A I...

Hi All you Guru's, I need a little help. I have 5 Dependent drop down Lists. Created from the Data Validation. I would like to reset the selections once the user decides to do another selection. I created this code below. The idea is the if the user makes the 5 selections and if he chooses to...

Hi All, I have the below but cant get it to work. Column A is a date field and when someone adds a date Column B shows the month same logic in Column L and M. If i just have the first sub it works fine but when i add the second it stops working. Reason for this is that the sheet is filled in...

Hi i have used your code below, but i want to add time to the date in Row Q can you help me please? Private Sub Worksheet_Change(ByVal Target As Range) Dim Changed As Range, Rw As Range Set Changed = Intersect(Target, Union(Range("H:H"), Range("H:H"))) If Not Changed Is Nothing Then...

Hi, I have an xlsm document that that is accessed via sharepoint by around 300 people at the same time. It has some simple vlookups, if statement's and vb code. They use office 10 and 16 and I have checked the compatibility of the document. There is not a specific action causing the...

Morning, I originally had this code, Private Sub Worksheet_Change(ByVal Target As Range) ' Exit if more than one cell updated at a time If Target.Count > 1 Then Exit Sub ' Check to see if value updated is in column B or D If Target.Column = 2 Or Target.Column = 4 Then...

Hi all, I am using the below code with one issue... "J" will turn to sent when "I" has reached its value and the email does send but its sending all the previous emails as well. I only need it to send as each individual cell changes and not everything that's previously changed. Any help would be...

To keep the look clean and simple on a few spreadsheets the desire is to have y, yes, n, no, na, n/a inputs from the user displayed as capital letters. looking around i found some vba code that will kind of do what i am after, but the way i typed it up, it cycles through all of the options in...

Hi everyone, I have a file in which I inserted a sub Worksheet_change that automatically transforms the user input (in this case only the names and surnames of members) in capital letters. Private Sub Worksheet_Change(ByVal Target As Range) ''''''''''''''''''''''''''''''''''''''''''''...

Hello. New to VBA but have seen other threads that say it is not possible to just copy and paste multiple codes into one sheet. Can someone help me merge these two codes below...thank you in advance! Private Sub Worksheet_Change(ByVal Target As Range) ' To allow multiple selections in a...

The codes are as follows. Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Application.Intersect(Target, Range("E6,F6,G6,H6,I6,J6,K6")) Is Nothing Then Target(1).Value = UCase(Target(1).Value) End If...

Morning, I seem to be doing this more often lately but dont get the correct idea of doing it. Can you advise a rule of thumb please. I have this existing code. Private Sub Worksheet_Change(ByVal Target As Range)Dim r As Range On Error GoTo errHandle 'if we encounter an error, handle...

Morning, I have the been trying to add a sort code into the existing code but keep getting error messages of which i cant overcome. Below is the code in use which keeps given me the End if without block if error. Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range...

Hi, I have two codes which both need to be under the Private Sub Worksheet_Change(ByVal Target As Range) Like normal ive got into a mess & now confused. Could you advise where ive gone wrong please. Thanks. Merged code supplied below Private Sub Worksheet_Change(ByVal Target As Range)If...

Greetings gang, Trying to clear contents in the corresponding cell in columns B - E when a change is made on the same row in column A. Making the change using the code below does not trigger a change. Additionally, columns B, C and D are merged so I'm not sure if that's what's causing the...

Afternoon, I have the code in use supplied below. You will see that the current range is G13:O17 but how would i then edit the code to include the range G27:O42 Private Sub Worksheet_Change(ByVal Target As Range)Dim C As Range, d As Range Set d = Intersect(Target, Range("G13:O17")) If d Is...

Hi Everyone, The code below has an "Application.Wait" command in it. But what I need is the macro to get triggered then stop for 1 minute before sending the email but have everything else continue to run (I have other macros formulas etc.) Will Do Events help me here? if so how do i add it...