When Change The Worksheet Selection Change Event Nothing Is Happenning
Attached is book in which, when a choice is selected from Drop Down list in ColumnF the macro has to do the need.
When the macro was written it was working well. But when I tried to change it as a Worksheet_SelectionChange event nothing is happenning even though a choice is selected from drop down list.
View Complete Thread with Replies
Sponsored Links:
Related Forum Messages:
Worksheet Selection Change Event Not Triggered
I am using Excel 2007, and I have a macro (that is working) that I would like to run whenever there has been a new selection in a dropdown list on my worksheet. I have done this many times before in other workbooks, and I have always used: Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub To my knowledge this should trigger the macro when the dropdown selection changes. However, this time it is not working. The macro runs fine manually, but it does not run when the dropdown selection changes.
View Replies!
View Related
Run Selection Change Event Only If The Row Selection Changes
I'm using the following code in a worksheet: Private Sub Worksheet_SelectionChange(ByVal Target As Range) col = ActiveCell.Column Range("output") = ActiveCell.Offset(0, -(col - 4)).Value End Sub In case it's not obvious, the macro places the value in the active row and 4th column of the worksheet into the range "output". The problem is, the worksheet is large and somewhat slow to recalculate. This macro forces a recalc on any selection change, but i only need it to run when the row selection changes, not the column. I'm sure there's a straightforward way to reprogram this.
View Replies!
View Related
Stop Selection Change Event Firing When More Than 1 Cell
I've set up code where when a cell within a specified range of cells is selected, a macro will run. This works all well and good except for when a whole row, column or range containing the defined cells is selected, there is a run time error. There is no situation where I want multiple cells selected to run the macro, so I only want to run the macro when only a single cell within that range is selected. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("GoToRange")) Is Nothing Then Application.Run "'Macro Test Current MY PFEP Metrics.xls'!PFEP_Filter" End If If Not Intersect(Target, Range("GoToRange2")) Is Nothing Then Application.Run "'Macro Test Current MY PFEP Metrics.xls'!PFEP_Filter" End If End Sub The ranges defined are non-contigious ranges.
View Replies!
View Related
VBA Worksheet Change Event
trying to get a worksheet change event to work. Basically the code below calls the time_start procedure when cell J16 downwards is selected. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 15 And Target.Column = 10 Then Call time_start Else End If End Sub However, I am lost from here on....Let me try and explain what it is I am trying to do. This seems so simple if you know how. Each time that the word "Completed" is entered in to a cell from J16 onwards, the cell two columns to the right on the same row is selected and the current date is entered. If the word "Completed" is deleted, I want the date on that row to be deleted. I would also like the choices "Completed" and a blank cell to be given in a validation list via a dropdown if possible to avoid occurances of "Complete" etc and mis-spellings but I understand that a bug may stop me from using this functionality. I am running Excel 2002 on a Windows XP Professional OS.
View Replies!
View Related
Worksheet Change Event Not Firing
I have a spreadsheet with a table of values in range E5 to T158. A macro populates the table by looking up values on other sheets in the book. If the macro finds a value in the lookup for Row 7 of any column (ie E7,F7...T7) it populates the rest of the column with that value (E7 value gets pasted to E8:E158) THEN it protects the cells it pasted (E8:E158). If the macro does NOT find a value for row 7, it simply skips it, leaving it blank, and continues to row 8 until it reaches row 158 of each column E to T. I want to give the user flexibility with these values. So if the user either deletes E7 or changes the value of the contents in E7, I want to unprotect the cells of rows 8 to 158 for that column. I have created a Private Sub Worksheet_Change(ByVal Target As Range) in the private module for that sheet below. I thought it was working but it isn't doing anything when I change or delete the value in Cell E7 for example. Please help! Private Sub Worksheet_Change(ByVal Target As Range) 'Do nothing if more than one cell is changed If Target.Cells.count > 1 Then Exit Sub 'Or IsEmpty(Target)
View Replies!
View Related
Worksheet Cell Change Event
I have looked at the threads concerning cell change events but cannot find a solution to my situation. I have a worksheet with a cell using a validation list. I wish to exicute a procedure whenever the dropdown list is changed in that one cell. Everything I have seen in the Worksheet event threads is evaluating the contents of a cell and I am attempting to exicute if the cell changes.
View Replies!
View Related
Worksheet Change Event :: In A Column For A Reconcile Worksheet
looking to only allow a check ("x") in a column for a reconcile - type worksheet. Am I close? Private Sub Worksheet_Change(ByVal Target As Range) 'Data protection. Only allow "x" in the "cleared" column. If anything else is entered, a message box informs the user 'and the cell contents are cleared. Dim val As Variant Dim msg As String If ActiveCell.Value "x" Then msg = "You can only enter an X in the cleared column." ActiveCell.ClearContents End If End Sub
View Replies!
View Related
More Than One Worksheet Selection Change
The following macro will put a checkmark in the range of A2:B100. I would like to use the current macro along with two or more other Worksheet_SelectionChange. One of the SelectionChange to put "Williamson" in the range of L2:L100 and another SelectionChange to put "Michaelson" in the range of M2:M100? Is it possible to use more than one Worksheet_SelectionChange Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const WS_RANGE As String = "A2:B100" '
View Replies!
View Related
Macro Needed For Worksheet Change Event
In Col D of my spreadsheet, I have a list of security codes, in this list there is a security code "all", i need a macro that will add 1 to the code, so it reads "all1", now i need the macro to run as soon as new data is pasted to sheet "Lending", the ranges in Col D do change on a daily basis therefore cell reference for security codes is not fixed. Can this be achieved? ............
View Replies!
View Related
Programmatically Inserting A Worksheet Change Event
I'm trying to insert a worksheet change event using VBA. I have this sample code from here - http://www.cpearson.com/Excel/vbe.aspx Sub CreateEventProcedure() Dim VBProj As VBIDE.VBProject Dim VBComp As VBIDE.VBComponent Dim CodeMod As VBIDE.CodeModule Dim LineNum As Long Const DQUOTE = """" ' one " character Set VBProj = ActiveWorkbook.VBProject Set VBComp = VBProj.VBComponents("ThisWorkbook") Set CodeMod = VBComp.CodeModule...................
View Replies!
View Related
Worksheet Change Event Intersect Error 91
This is my Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("D6:D6000")) Is Nothing Or Intersect(Target, Range("D6:D6000")) = "" Then If Intersect(Target, Range("F6:F6000")) Is Nothing Or Intersect(Target, Range("F6:F3000")) = "" Then If Intersect(Target, Range("I6:I6000")) Is Nothing Or Intersect(Target, Range("I6:I6000")) = "" Then Exit Sub Else Do Something...... End If End If End If End Sub when excution comes to this line If Intersect(Target, Range("D6:D6000")) Is Nothing Or Intersect(Target, Range("D6:D6000")) = "" Then a run time error (91) appears, it tells object variable or with block variable not set.
View Replies!
View Related
Restrict Worksheet Change Event To Last 3 Worksheets
I am trying to make a macro run automatically based on info entered in a cell. The problem is I need this code on at least three separate sheets in the work book. It doesent work when I try to use the same basic code. The code I am using is below. Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim lLastRow As Long Dim rgArea As Range, rgCell As Range Dim COL_B As Integer COL_B = 2 Dim COL_X As Integer COL_X = 24 Dim ROW_FIRST As Long ROW_FIRST = 5 ' Find the last row of date in the "Approved" worksheet lLastRow = FindLastRow(SZ_WS_APPROVED, COL_B) ' Set a reference to the changed cells in column X Set Target = Intersect(Target, Range(Cells(ROW_FIRST, COL_X), Cells(lLastRow, COL_X))).........................
View Replies!
View Related
Worksheet Change Event Coding Conflicting
Private Sub Worksheet_Change(ByVal Target As Excel. Range) Dim S As String, X As Variant, n As Long If Target.Column <> 3 Or Target.Cells.Count <> 1 Then Exit Sub If IsEmpty(Target) Then Exit Sub S = Target.Text On Error Goto Reset n = Application.Substitute(S, "-", "") On Error Goto Reset Application.EnableEvents = False X = Application.Match(n, Workbooks("Database.xls"). Sheets("Products").Range("B1:B14000"), 0) If IsNumeric(X) Then Target.Offset(0, -1) = Workbooks("Database.xls").Sheets("Products").Cells(X, 1).Value Else............................ But each time i add it in, it ether's turns off the second statement and second works or vice versa. How can make both codes work at the same time without conflicting each other.
View Replies!
View Related
Restrict Worksheet Change Event To Specified Range
I have this code working fine. It applies conditional formating to two rows ((K3:K65) and (J3:J65)) and checks when a value changes in row B to reaplpy the formatting. I'd like to had add more columns to it. It would have apply the same conditonal formatting on rows ((O3:O65) and (P3:P65)) but when a value changes in row (N3:N65) So basically, I want to keep the first working part of the code and have it to check at more rows with a different reference for the conditionnal formatting. Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range Dim rngJ As Range If Target.Count > 1 Then Exit Sub Set rng = Union(Range("B3:B65"), Range("J3:J65")) If Intersect(Target, rng) Is Nothing Then Exit Sub Set rngJ = Range("K" & Target.Row) Select Case rngJ.Value Case "" rngJ.Interior.ColorIndex = xlNone rngJ.Offset(0, -1).Interior.ColorIndex = xlNone Case Is >= 20.............................
View Replies!
View Related
Worksheet Change Event :: Find Email Addresses
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Count > 1 Then Exit Sub If Target.Column = 1 Then If Target = "" Then Cells(Target.Row, 3).ClearContents Else: If Target.Value = "test" Then Cells(Target.Row, 3) = my.Email.co.uk End If End If Application.EnableEvents = True End Sub Basically, my target column is column A, i have 200 employee numbers, now we have to find the email addresses manually which is useless so i want to spend the time writing some code like: If the target column is 123456 then the offset column D is email address If the target column is 654321 then the offset column D value is email address. I have 200 statements like this ill need to add unless anyone has any suggestions, perhaps select case structure?? I dont really know where to start an so i await your replies.
View Replies!
View Related
Worksheet Change Event To Pop Up A Message When Typed
I have the following code that should pop up a message when column E is left blank when "other" is typed into column D. But I cannot get it to work. Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range, LastRow As Range Dim x As Integer If Target.Count > 1 Then Exit Sub Set rng = Range("F:F") If Intersect(Target, rng) Is Nothing Then Exit Sub If Target = "" Then For x = 1 To 5000 If Cells(x, 4).Value = "Other" And Cells(x, 5).Value = "" Then Answer = MsgBox("If other, please state", vbOKCancel, "CONFIRMATION") End If Next x End If End Sub
View Replies!
View Related
Worksheet Change Event Not Responding To Cell Deletion
This is part of a macro in a worksheet_change event. When a cell in column J gets deleted by a user, the corresponding cell in column K should also clear. But it's not responding to the delete. It DOES clear when the other 2 criteria are met (.cells(1,10) = 0 and .cells(i,5) <> "Annuity"). The worksheet_change event should pick up on the cell deletion, but it's not. And column J is already a trigger for the macro to run, so I'm not sure what's going on. Either the trigger is still wrong, the isempty(.cells(i,10)) is not correct syntax, or this event just doesn't respond to cell deletion.
View Replies!
View Related
Worksheet Change Event :: Trying To Set The IntRMACol Variable
This is the code on the Worsheet Change event. Private Sub Worksheet_Change(ByVal Target As Range) 'Define the RMAs range and count the RMA ships. Do the rest of the math based on this calculation. Dim intRMACol As Integer, EndRow As Integer, intRMAShips As Integer, LastCol As Integer Dim rngRMAs As Range, rngHome As Range, sht As Worksheet Set sht = ActiveWorkbook.ActiveSheet Set rngHome = Cells(1, 1) rngHome.Activate EndRow = Range("A" & Rows.Count).End(xlUp).Row intRMACol = Cells.Find(What:="RMA#", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlNext).Column Set rngRMAs = rngHome.Offset(1, intRMACol - 1).Resize(EndRow, 1) rngRMAs.Name = "RMAs" rngHome.Offset(1, LastCol + 1).Formula = "=COUNTA(RMAs)" intRMAShips = rngHome.Offset(1, LastCol + 1).Value rngHome.Offset(1, LastCol).Formula = "=SUM((" & EndRow & " - 1) - " & intRMAShips & ")" rngHome.Offset(1, LastCol + 2).FormulaR1C1 = "=SUM(RC[-2] : RC[-1])" End Sub I keep getting stuck when trying to set the intRMACol variable. I have used the code all over the place, but only in Modules, never on a worksheet event. EndRow, the variable right above, sets correctly so I don't get it. Also, do I have to define the Target variable? Am I going about this the right way? I basically want three formulas to calculate when any change is made on the worksheet.
View Replies!
View Related
Target.Cells Is Counting In Worksheet Change Event
Below is an example from the ozgrid forum illustrating the worksheet change event. Not sure of the meaning of 'Do nothing if more than one cell is changed" on the 2nd row of the code. Does it means that if a value is entered in other cells, the code will not fire? Private Sub Worksheet_Change(ByVal Target As Range) 'Do nothing if more than one cell is changed or content deleted If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub If Target.Address = "$A$1" Then 'Ensure target is a number before multiplying by 2 If IsNumeric(Target) Then 'Stop any possible runtime errors and halting code On Error Resume Next 'Turn off ALL events so the Target * 2 does not _ put the code into a loop. Application.EnableEvents = False Target = Target * 2 'Turn events back on Application.EnableEvents = True 'Allow run time errors again On Error Goto 0 End If End If End Sub
View Replies!
View Related
Worksheet Change Event To Track Changes On Separate Sheet
I have the following code what it does, is when a user changes a cell it copies the row to another sheet along with the userstatus. Problem is if the user pastes more than one column of data into the sheet it copies the row more than once depending on the amount of columns the user pasted . I only want to copy the row once. Private Sub Worksheet_Change(ByVal Target As Range) Dim SelRng As Range If Not Intersect(Target, Range("A3:K30")) Is Nothing Then Set SelRng = Target Application. ScreenUpdating = False For Each cell In SelRng Range(Range("A" & (cell.Row)), Cells(cell.Row, Columns.Count).End(xlToLeft).Offset(0, -5)).Copy Sheets("Tracking").Select ActiveSheet.Cells(Rows.Count, 31).End(xlUp).Offset(1, -13).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveCell.Offset(0, 13).Value = ActiveWorkbook.UserStatus Sheets("Engine 1").Select Next cell Application.CutCopyMode = False Application.ScreenUpdating = True End If End Sub
View Replies!
View Related
Restrict Worksheet Change Event: Non-Contiguous Range
is it possible to have a userform activated as a result of a Worksheet_Change event on more than 2 cells. Currently I have the code below which will activate userforms if either a cell in Column G or a cell in Column T is changed. Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Intersect(Target, Range("G:G", "T:T")) Is Nothing Then Exit Sub If Intersect(Target, Range("G:G", "T:T")) = "" Then Exit Sub If Not Intersect(Target, Range("G:G")) Is Nothing Then GlngRow = Target.Row Call Module3.ShowList1 End If If Not Intersect(Target, Range("T:T")) Is Nothing Then GlngRow = Target.Row Call Module3.showlist4 End If End Sub What i need to do is activate another userform if a cell in Column AC is changed. I tried this code but got an error "Compile Error: Wrong number of arguments or invalid property assignment", which leads me to believe I can't add any more cells to the argument and it highlights the word Range in this line - If Intersect(Target, Range("G:G", "T:T", "AC:AC")) Is Nothing Then Exit Sub..........
View Replies!
View Related
Worksheet Calculate Event To Automatically Change The Color Of A Cell
I am trying to use the worksheet calculate event to automatically change the color of a cell only when that particular cell changes. In E2 of the worksheet is a formula use to determine rating based on the result of 2 other cells. The rating is classified as follows Low Moderate High Maximum I would like to generate a different set of color to the cell and fonts for each of the rating. For example, "Cyan" to the cell E1 and E2 with Black font if the result is "Low" "Plum" to the cell E1 and E2 with "Black font if the result is "Moderate" "Blue" to the cell E1 and E2 with "White" font if the result is "High" and "Red" to the cell E1 and E2 with "White" font if the result is "Maximum"
View Replies!
View Related
Conditional Formatting: VBA & Worksheet Change Event
I am trying to do a conditional format of 0 to 2 is red, 3 to 4 is yellow and 5 is green. However I also need to have a cell that is blank to remain white and this is the part I am having problems with. I found the following code since I cannot use the standard conditional formating in excel since it needs 4 conditions. Private Sub Worksheet_Change(ByVal Target As Range) Dim icolor As Integer If Not Intersect(Target, Range("H3:H12")) Is Nothing Then Select Case Target Case 0 To 2 icolor = 3 Case 3 To 4 icolor = 6 Case 5
View Replies!
View Related
Restrict Worksheet Change Event To Multiple Non Contiguous Ranges
Can you have more than 1 worksheet change event on the same worksheet, if so, how do you name it to prevent the ambiguous name error. What code would I need to select a text value in colums e11:e15 based on the cell value in cell named STATE and place the selected value in cell e16. I have, thanks to this resource, one worksheet change event that selects a numeric value from any column E3,F3:F7 and places that value in cell C4. but the same code doesn't work for the new worksheet change event.
View Replies!
View Related
Prevent Worksheet Change Event Causing Chain Reaction
I'd like the users to be able to change some detail in a couple of places and have it updated throughout the spreadsheet. Basically, the user can change the line name in any of the input sheets and the code changes the sheet name, and searches for the reference to the old name in the overview sheet and changes it accordingly. The problem I have at the moment is that I would also like the user to be able to change the line name from the overview sheet too... I am having trouble thinking how to have similar code in the "Overview" sheets Worksheet_Change event without getting into a big constant loop... e.g. if the line name is changed via code on the individual input sheets won't that then trigger the first code, which will trigger the second etc. etc. I have the following code in the ThisWorkbook section: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim sName As String Dim sOldName As String Application. ScreenUpdating = False sOldName = ActiveSheet.Name If Target.Address <> "$B$1" Then Exit Sub sName = ActiveSheet.Range("B1") On Error Goto ErrorHandler ActiveSheet.Name = sName On Error Goto 0 Sheet8.Select 'this is the overview sheet Cells. Find(What:=sOldName, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate........................
View Replies!
View Related
Change Event To Detect Cell Change
I have a simple bit of code that fires some code when it detects a change in cell $P$5 but it doesnt work and I cannot understand why - can anyone assist with this one? I am very green but keen: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$p$5" Then Range("D9:D81"). AutoFilter Field:=1, Criteria1:="<>" End If End Sub
View Replies!
View Related
Code To Stop A Worksheet Selection Change Macro Running
I've got a worksheet_selectionchange macro on a sheet, and another macro that you can run after it. The issue is that when the second macro runs, it also runs the selectionchange macro, and wipes some of the info that the second macro should be copying. Is there a piece of code that I can use in the second macro to block the selectionchance code from running until it's compelte?
View Replies!
View Related
Worksheet 'Change' Event: Show Which Rows Of Data Have Been Changed By Incrementing A Revision Attribute
I want to show which rows of data have been changed by incrementing a revision attribute. For example, if a user changes the contents of a cell anywhere between rows 2 and 13 and col 1 and 9 then the revision attribute in col 10 would increment from 1 to 2 (for the affected row). If another change affects the same row then the rev attribute would increment to 3, and so forth. I don't care which cell was changed only that something on that row was touched. I thought the CHANGE event was a dead ringer for triggering some VBA code to control this but, since part of the change event code writes the revision value, this triggers another CHANGE event causing an endless loop until something (??) kicks in and stops it after 220 iterations. Is there a way to inhibit the change event just prior to updating the cell containing the version attribute? Rather than post the code here I have submitted the workbook that includes the whole setup and code. I should also mention I looked at all the other worksheet events and I do not see any "triggers" that would fire each time a cell content is changed. As a side note, is there a way to step into the code of a change event? F8 does nothing.
View Replies!
View Related
Change Event Causing Event To Fire Again
I have the following code, which works perfectly: Private Sub Worksheet_Change(ByVal Target As Range) Dim TotalDays As Integer TotalDays = Range("C65536").End(xlUp).Row + 1 The code points to the next blank cell so the user can input a value. Each time the user enters a value I want to re-run the code so that the colour of the cell changes. However I also want to perform various calculations on the sheet. However this means the sheet is being changed and so continually repeats my code. How do I add the following, to my previous code? Range("E8").Value = Cells(7, 6) * 2.5
View Replies!
View Related
Change Cell's Value With "selection Change"
How can I get a cell to show one value when it is selected and return to it's original value when it's no longer the active cell. The cell has a number in it, when it's selected, I use the "selectionChange" event to replace the active cell's value with a number on sheet 2. (The original value is copied to a new location before it is replaced). When the cell is no longer the active cell, I want the original value to be pasted back into the cell. How can I do that? This is what I have so far: Private Sub Worksheet_SelectionChange(ByVal Target As Range) x = ActiveCell.Row y = ActiveCell.Column ActiveCell = Sheets("Sheet").Cells(x,y).offset(20,3) End Sub
View Replies!
View Related
Change Worksheet Change To Macro
Is there a way to either change this so that it lets me to select the whole area or a way to make a macro to do what this does to one cell? Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("M13:IR458")) Is Nothing Then Select Case Target.Value Case "1" Target.Font.ColorIndex = 20 Target.Interior.ColorIndex = 10 Case "Good" Target.Font.ColorIndex = 2 Target.Interior.ColorIndex = 35 Case "Stable" Target.Font.ColorIndex = 2 Target.Interior.ColorIndex = 27......................
View Replies!
View Related
Change Event Error
I was wondering what I can add so this will not error when I delete the contents of the target range, Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("C11:C29, E11:E29")) Is Nothing Then If Target.Cells.CountLarge > 2 Then Exit Sub Application.EnableEvents = False Target.Value = UCase(Target) end sub
View Replies!
View Related
Not Recognizing New Value On Change Event
In a Worksheet On Change event I am trying to obtain a new value that the user has placed into a particular cell. However, when I get to the line of code that reads the value in that particular cell, it is pulling the value that was in the cell prior to the change. When I view the sheet I can see the new value. When I do a debug.print or ? in the Immediate Window it shows the prior value.
View Replies!
View Related
Change Event And VLookup
I've been searching all over and can not figure this out as from my limited knowledge it should work. I have two sheets (A & B) and on Sheet A an employee inputs a job number into column B and what I then want to happen is have column D populate automatically with the clients address. This client address is located in Sheet B. I figured the best way to do this was to use a combination of the 'Change Event' method and VLookup utilising a bit of VBA, but I just cant get it to work - I keep getting a #Name? error.
View Replies!
View Related
Workshhet Change Event
I want to know if it is possible to have 2 workshhet change events for one sheet. Let me explain this. Presently I have one workshhet where if any value ie entered in column A automatically date and time is entered in column B. I can do this by using folloing code.
View Replies!
View Related
Validation Code For Change Event
change the below code from a worksheet_change to a worksheet_calculate method. and still do the same action. the reason I am changing methods is due to the fact that the validation will not trigger the worksheet_change event to fire. this is my attempt to find an alternative way to fire off the macro.....
View Replies!
View Related
Restrict Change Event To Specified Rows
I have a question on how to define fixed rows on making cell blank on new selection change. The code below affects all rows under coloumn 1. Is there any way to affect only eg row 1 to 20? I attached a sample file for reference. Private Sub Worksheet_Change(ByVal Target As Range) Dim strName As String If Target.Cells.Count > 1 Then Exit Sub On Error Resume Next strName = Target.Name.Name On Error Goto 0 If ActiveCell.Column = 1 Then Application.EnableEvents = False ActiveCell.Offset(, 1).Value = vbNullString Application.EnableEvents = True End If End Sub
View Replies!
View Related
|
TRACKER
