Hello :)

I have been researching this and there seems to be many differen
suggestions none of which I have been able to get to work.

I am trying to say that if column A becomes null ("") [I have als
tried .value = 0] the offset values become null as well. Here is th
problem:

1) When I delete an entry in column A nothing happens to the row value
until A loses and then regains focus. Is this typical?

2) When column A then regains focus, I lose the formatting and th
formulas in the row.

I know I am close on this but I just can't seem to find the righ
formula.

Does anyone know the correct formula to achieve this?

Thank you very much in advance for any tip

--
Message posted from http://www.ExcelForum.com

Hi
do you need a VBA or formula solution?

Also you may post your current used code


--
Regards
Frank Kabel
Frankfurt, Germany


Hello :)

I have been researching this and there seems to be many different
suggestions none of which I have been able to get to work.

I am trying to say that if column A becomes null ("") [I have also
tried .value = 0] the offset values become null as well. Here is
the
problem:

1) When I delete an entry in column A nothing happens to the row
values until A loses and then regains focus. Is this typical?

2) When column A then regains focus, I lose the formatting and the
formulas in the row.

I know I am close on this but I just can't seem to find the right
formula.

Does anyone know the correct formula to achieve this?

Thank you very much in advance for any tips


---
Message posted from http://www.ExcelForum.com/

I would love the correct vba code. I have tried a few differen
options. I can't find my notes but it was somthing like this for m
most current attempt

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column 1 Then Exit Sub
If Taraget.Row < 7 Then Exit Sub
something.enable = False

If Target.Value = "" Then
Target.Offset(0,1). Value = ""
Else
Target.Offset(0,1).Value = True

End If

something.enable = true

End Sub

(I apologize that I can't find my notes on the one line)

Thank you for looking at this!

--
Message posted from http://www.ExcelForum.com

Hi
try (alos corrected some typos)

Private Sub Worksheet_Change(ByVal Target As Range)
with target
If .Column 1 Then Exit Sub
If .Row < 7 Then Exit Sub

application.enableevents = False
If .Value = "" Then
.Offset(0,1). Value = ""
Else
.Offset(0,1).Value = True
End If
application.enableevents = True
end with
End Sub

Now just put this code in your worksheet event. To get the
- right click on your sheet name
- choose 'Code'
- paste the code, save the workbook and try it


--
Regards
Frank Kabel
Frankfurt, Germany


I would love the correct vba code. I have tried a few different
options. I can't find my notes but it was somthing like this for my
most current attempt

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column 1 Then Exit Sub
If Taraget.Row < 7 Then Exit Sub
something.enable = False

If Target.Value = "" Then
Target.Offset(0,1). Value = ""
Else
Target.Offset(0,1).Value = True

End If

something.enable = true

End Sub

(I apologize that I can't find my notes on the one line)

Thank you for looking at this!!


---
Message posted from http://www.ExcelForum.com/

Frank Thank you very much that is BEAUTIFUL! I really appreciate you
help on that!!!!

--
Message posted from http://www.ExcelForum.com