application.enableevents

  1. S

    VBA help to copy rows when key words are selected

    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...
  2. K

    Workbook_Change stopped working !

    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...
  3. C

    Make macro work with upper case and lower case

    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...
  4. I

    Specific cell must be Ucase advice

    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...
  5. D

    Apply a vba to multiple rows

    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...
  6. J

    AutoFilter

    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...
  7. I

    Additional code needed for existing working code

    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...
  8. A

    Auto Print after scanning in 7 digit barcode

    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...
  9. P

    Hi all trying to join SpecialCells(xlConstants) with SpecialCells(xlFormulas)

    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 =...
  10. M

    Code sometimes not working on Workbook_SheetChange

    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...
  11. S

    Pasting Values using "Private Sub Worksheet_Change(ByVal Target As Range)"

    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...
  12. F

    How to save macro workbook to a new workbook as xls with same formats

    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...
  13. D

    Type mismatch

    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...
  14. P

    Combine two Private Sub Worksheet_Change

    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...
  15. I

    Merge two Worksheet_Change codes

    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...
  16. I

    Could you advise on this code please

    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...
  17. L

    Add PDF to Button

    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"...
  18. L

    Next Available Line

    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...
  19. J

    add rows at the end

    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"...
  20. J

    Issue with Duplicate Const & Dim Changed As Range

    Hi, Trying to get these two instances to run together but not sure how to simplify. Can provide any more information if needed. Private Sub Worksheet_Change(ByVal Target As Range) Dim Changed As Range Const YesCol As String = "L" ' Set Changed = Intersect(Target...

Watch MrExcel Video

This Week's Hot Topics

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top