application.enableevents

Why doesn't this work/trigger? Private Sub Workbook_SheetChange(ByVal Sh As Object, _ ByVal Source As Range) Application.EnableEvents = True Application.ScreenUpdating = False If Target.Address <> "$A$1" Then Exit Sub Application.Columns("D:BP").Select...

Good morning. I am new to this site and brand new to VBA. Basically I am trying to add 2 codes to the same sheet but I am not doing it correctly as only one code is working. Could someone please help me? These are the 2 codes I am trying to get on the same sheet: #1 Private Sub...

In my spreadsheet, the user has an initial option (Cell = F8) to select "Grouped" or "Separated" from a drop-down list. There is a table in the worksheet that changes depending upon which option is selected. That part was easy. What's tricky is that if F8 = "Grouped", the data column's (G18:G28)...

Hi there, I needed to copy the cell's value to another cell (in another sheet creating a list) whenever this same cell changed its value. I've created a simple code that works but it copies all things from this specific cell that I only want its content and this is causing me problems with...

Hey all, I am having trouble with this code.The red highlighted line is giving me a Run Time Error 424 (Object Required) Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Application.EnableEvents = False Worksheets("HSheet").[B3] = Worksheets("HSheet").[B2]...

Hi all, I have just used the following code, from this forum (Someone called Alan - Thanks Alan whoever you are!!), that does what I'm looking for. My only problem is, the code works fine if the data I enter into A1 is manual. But if the value in A1 in coming from elsewhere in the sheet, I...

Hi, I Have three comboboxes called "År", "Månad" And "Dag". I want "Dag" depend on the values from the other two comboboxes. The first code works for "Dag" depending on "År", then I added an And statement to include "Månad" but after that it doesnt work. Anyone knows what the error is...

In a cell called offtime, I will enter 2 or 3, depending on the time of year. This indicates that I (on the east coast) am 2 or 3 hours later than the time in Phoenix AZ. In my worksheet column K, I will enter the east coast time. I want it to auto-change my entry by deducting the value in the...

Hi Team, Happy Friday! I am using following VBA code to close only the workbook I am working on, but this code closes all workbooks which have been opened. Any idea, please. Dim WbCount As Integer, ii As Integer WbCount = Workbooks.count If WbCount > 1 Then For ii = WbCount To 1 Step...

First time poster, and let me apologize right off the bat if I'm asking a question that has already been answered. I've tried searching for an answer but haven't found what I need yet. I'm also a first-timer to VBA as I'm finishing up my first project. I don't really know coding that well but...

Hi all, I have a problem and I cant get my head round how to fix it. Basically i have 2 columns with dates in, and i need the dates to be formatted correctly otherwise is messes up some of my formula's. So if the date contains "." or "-" i replace them with "/" If Target.Column = 1 Or...

Good morning all! I am hoping you can help me as I am lost on exactly how to accomplish what I want. I have several VBA codes that do different things that I would like to combine if possible. First I have a 2 codes that add a comment to a cell when the cell’s value is changed. One code...

Hi all, What I have below stamps the date+time for new entry or change of value. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Application.EnableEvents = False Cells(Target.Row, 8).Value = Date + Time Application.EnableEvents = True End If End Sub What do I...

Hi, I have this code that I would like to alter so it prevents the so called special characters as well as numbers being entered into my range. Special characters being !"£$%^&*()_+=-{}][:@~#';<>?/.,|\`¬ and so on. If Target.Column <> 5 Then Exit Sub Dim cell As Range...

Im trying to Clear a value in "A3:A120" in sheet named (CSA1) if the value of Cell L2 in Sheet named (RESULTS) = "YES". I found the following Solution that Will only clear the cells if the YES is in cell L2 in CSA1 Sheet and tired to use to to pull the YES from the RESULTS SHEET: The Below is...

I am using a Macro I pulled offline to timestamp certain cells when changed Is there a way to alter this macro so that it works if instead of looking for any value and blank values, it will add a date/time if TRUE is inputted in O11 and clears it if O11 is FALSE? Any help would be appreciated...

Hello Everyone, Here is my code: What I'm trying to do under VBA is when J5 = NO, change M5 to 0. That I can accomplish. However if I do add that code, the proceeding hide rows gives me the run time 1004 error: Unable to set the hidden property of the Range Class However if I remove the...

Hi, I posted a question about this earlier, but have discovered a little bit more on my own and have run into a different problem. With the following code, the Undo function is effectively removed. Do I have any options for replicating this code but not making it a worksheet change dependent...

If I step into this code, it seems to be stuck in an infinite loop, yet if I run it, it's fine: Option Explicit Private Sub cmbGraph_Change() Me.cmbGraph.Clear Me.cmbGraph.List = Array("a", "b", "c") Application.EnableEvents = False Me.cmbGraph.ListIndex...

I have an odd issue where the underlying VBA in my "WorkSheet" Code does not retain the value of a "Copy" after pasting to a cell. Subsequently - I am unable to utilize the qat "UNDO" shared control as the copy value always reverts to Application.CutCopyMode = False immediately after pasting -...