Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Code Help
Looking to modify a code I have that put an "X" into a particular cell no
matter what the user types. Code work great! However, I need to modify the code so that If an "X" is types into cell "B8", cell "F8" returns a null value (or deletes any value in the cell)....but wait, that's not all...I also need it to do the reverse....If user types an "X" into "F8" it should delete any value in cell "B8"....kind of tricky I know...here is the code I have so far: Private Sub Worksheet_Change(ByVal Target As Excel.Range) Const sINPUTS As String = "B8,B10,B12,B15,F8,F10,F12,F15" With Target If .Count 1 Then Exit Sub If Not Intersect(Range(sINPUTS), .Cells) Is Nothing Then If Not IsEmpty(.Value) Then On Error Resume Next Application.EnableEvents = False .Value = "X" Application.EnableEvents = True On Error GoTo 0 End If End If End With End Sub If anyone knows how or can assist in any way I would be forever grateful! Thanks in advance for any assistance! -- Randy Street Rancho Cucamonga, CA |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Code Help
Check your other post.
Randy wrote: Looking to modify a code I have that put an "X" into a particular cell no matter what the user types. Code work great! However, I need to modify the code so that If an "X" is types into cell "B8", cell "F8" returns a null value (or deletes any value in the cell)....but wait, that's not all...I also need it to do the reverse....If user types an "X" into "F8" it should delete any value in cell "B8"....kind of tricky I know...here is the code I have so far: Private Sub Worksheet_Change(ByVal Target As Excel.Range) Const sINPUTS As String = "B8,B10,B12,B15,F8,F10,F12,F15" With Target If .Count 1 Then Exit Sub If Not Intersect(Range(sINPUTS), .Cells) Is Nothing Then If Not IsEmpty(.Value) Then On Error Resume Next Application.EnableEvents = False .Value = "X" Application.EnableEvents = True On Error GoTo 0 End If End If End With End Sub If anyone knows how or can assist in any way I would be forever grateful! Thanks in advance for any assistance! -- Randy Street Rancho Cucamonga, CA -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Convert a Number Code to a Text Code | Excel Discussion (Misc queries) | |||
Unprotect Code Module in Code | Excel Discussion (Misc queries) | |||
Need 2 add second then third code with first code in the Tab View | Excel Worksheet Functions | |||
copying vba code to a standard code module | Excel Discussion (Misc queries) | |||
Write a code by code | Excel Discussion (Misc queries) |