Hello,
I am using the following code below. I would like it to leave the value as is in column F as well. I can't configure it to do that though. It currently leaves the values as is in columns D, E,
K, and L but it won't do it w/ F.
I would also like to add something that goes to the target line, and says, "are you sure this is the this is the person you would like to delete? and only after clicking "Yes" will the macro then operate.
If someone could even just help me w/ the F thing I would be appreciative. The going w/ this stuff is slow.
I am using the following code below. I would like it to leave the value as is in column F as well. I can't configure it to do that though. It currently leaves the values as is in columns D, E,
K, and L but it won't do it w/ F.
I would also like to add something that goes to the target line, and says, "are you sure this is the this is the person you would like to delete? and only after clicking "Yes" will the macro then operate.
If someone could even just help me w/ the F thing I would be appreciative. The going w/ this stuff is slow.
Code:
[COLOR=#333333]Private Sub Worksheet_Change(ByVal Target As Range)[/COLOR]If Target.Cells.Count > 1 Then Exit Sub
Dim rw As Long, fn As Range
Application.EnableEvents = False
If Not Intersect(Target, Range("Entry")) Is Nothing Then
Set fn = Range("J:J").Find(Target.Value, , xlValues, xlWhole)
If Not fn Is Nothing Then
rw = fn.Row
'Range("B" & rw).Resize(1, 11).ClearContents
Range("B" & rw).Resize(1, 2).ClearContents
Range("F" & rw).Resize(1, 5).ClearContents
Range("B" & rw) = "Open"
'Range("D" & rw) = "4"
'Range("E" & rw) = "NW"
Range("G" & rw) = "Open Slot"
Range("J" & rw) = "open Slot"
'Range("K" & rw) = "4030"
'Range("L" & rw) = "West 86"
End If
End If
Application.EnableEvents = True [COLOR=#333333]End Sub[/COLOR]
