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

Some videos you may like

This Week's Hot Topics

  • Problem with Radio Button's format control
    I am creating an employee evaluation template (a sample is below) Column A is the category Column B, C D, E and F will be ratings (unacceptable...
  • Last Display on userform to a Listbox
    [CODE=vba] lstdisplay.ColumnCount = 15 lstdisplay.RowSource = "A1:O600000" [/CODE] So when i do this it Displays everything on the sheet i am...
  • Rename and move files to a new location
    Dear all, I have an excel file with the following information. The actual file name is at column A but i want to rename it using the following...
  • Help with True/False Formula
    Hello! Am stumped how to fix this formula, in which my result returns 'True', but it should return False. =IF(AG2=True...
  • Clear extra characters from a provided range of cells
    Dear All, I have following code which gives me desired output to remove extra characters from a provided range. But it takes too much time when...
  • Help with Current and highest streaks
    Hi there, I've just joined the forum and this is my first post. I've already spent quite a bit of time searching the net and this forum for a...
Top