application.enableevents

I am working on a Userform that allows users to sign into projects using their login and password credential. However I'm running into a situation where sometimes my worksheet_change events work and other times they don't and it's allowing for the same username to be entered when creating their...

Hello, I use the below code to transfer rows from the "LOG" Tab to the "RTN HISTORY" tab when "SCRAP", or "RELEASED" in Col Z is selected from the drop down. My question is how would I have it transfer back to the LOG tab if "HOLD" is selected from the dropdown? Thanks for all...

I am working on an app to speed up & automate processing of Credit Cards statements. After data is input from a CSV file, it is presented to the user. The user is allowed access to 2 columns, 'Account Code' & 'VAT Rate'. Entry is restricted by Data Validation, the user selecting from...

Hello! I have the following Macro (below) in a spreadsheet I use to record work times for my employees. In column C there is a dropdown in which they are supposed to choose "ARRIVED," and then a timestamp appears in both column D and P. Similar for column E - they're supposed to select...

Hi, I have the code shown below. My intention is that cell Z21 must be UPPERCASE So typing tom jones in cell Z21 then when i leave that cell it changes to TOM JONES Private Sub Worksheet_Change(ByVal Target As Range) With ThisWorkbook.Sheets("HONDA SHEET") If Not Intersect(Target...

Hi, im literally brand new to VBA's i have a worksheet that is using a vlookup formula, and its basically allows me to over write a cell but then restore the formula if i delete the overwrite. i need to apply the same macro to all the rows and continue the cell references macro: Private Sub...

Hi, have this code for filtering but I am getting this error: invalid use of Me keyword, Private Sub ReapplyFilter() Application.EnableEvents = False With Me.[a1] .AutoFilter .AutoFilter Field:=4, Criteria1:="r", Operator:=xlAnd End With...

Evening, I am using the working code supplied below. So this code works like so. If i enter in a cell in column D the number 3 once i leave that cell it changes to the word HUTTON STORES & also then in the next cell to the right of it the number 6, this is fine BUT if i forget to enter the...

Hey guys, I am wanting to print a label automatically after user scans in barcode in A1. The code I am using is If Intersect(Target, Sheets("Sheet2").Range("A1")) Is Nothing Then Exit Sub Else Application.EnableEvents = False If Len(Target.Value) = 7 Then...

Hi all I'm trying to join SpecialCells(xlConstants) with SpecialCells(xlFormulas) and no matter what I try I can only one or the other to work never both. Sub Done() Dim NR As Long Application.ScreenUpdating = False Application.EnableEvents = False With Sheets("Your Quotation") NR =...

I am trying to make it so if the user copies & pastes anything in my workbook, it will only do a Paste Values. I found an answer to a post on Stack Exchange from a few ago that recommending putting the following code in the Workbook_SheetChange sub. Private Sub Workbook_SheetChange(ByVal Sh...

Hey all, Very novice when it comes to VBA, but I'm pretty good at copy/paste and brute forcing until something works! I managed to come up with this code that allows multiple values to be selected from drop downs (target.column section) as well as copying and pasting a row from an "Open" tab to...

Hi All, I use the below code, will be reduced to smaller level, I am just making the rows hide, if the cell value is blank. Also, i was trying to save the file in a path, however when we click on Alt F11, it still shows this code. Private Sub Worksheet_Change(ByVal Target As Range) If...

When I open my spreadsheet and delete contents out of a cell, I get a type mismatch error. This is my code: Private Sub Worksheet_Change(ByVal Target As Range) 'ActiveSheet.Unprotect Dim ans As String If Not Intersect(Target, Range("A:A,B:B")) Is Nothing Then...

Hi, I have below two Private Sub Worksheet_Change, how can i merge for two logic 1st VBA Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A3:A5000")) Is Nothing Then Exit Sub Application.EnableEvents = False With Target .Offset(, 2).Value = Date...

Hi, I habe these two codes. Private Sub Worksheet_Change(ByVal Target As Range)If Intersect(Target, Range("J1:M3")) Is Nothing Then Exit Sub Application.EnableEvents = False Target.Value = UCase(Target.Value) Application.EnableEvents = True End Sub Private Sub Worksheet_Change(ByVal Target As...

Morning, I see this code a few times on my worksheets but dont know what its actually doing,please can you advise. Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Column = 1 Then Exit Sub If .Column = 7 Then Exit Sub If .Count = 1 And Not...

Could print to PDF be added to this button? My print area is B2:H53 Private Sub CommandButton1_Click() Dim NxtRw As Long Application.EnableEvents = False If Range("J3").Value = "" Then NxtRw = 3 Else NxtRw = Range("J2").End(xlDown).Offset(1).Row End If Range("J"...

Hi, Can this code be edited so it puts the data on the next available line? I sometimes need to delete some data. Thanks Private Sub CommandButton1_Click() Static xCount As Integer Application.EnableEvents = False Range("J3").Offset(xCount, 0).Value = Range("H6").Value...

Hi everyone. This macro appends 2 rows after the non-blank rows at the end. can I change to increase the rows to 4? Option Explicit Sub aggiungi_copiaformato_new() On Error Resume Next Dim n As Long Dim x As Long ActiveSheet.Unprotect "987654"...