Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Clearing cell contents
I have a macro that when a name is entered in cell A1 a pop up window appears
asking for the birthday of the person who's name was entered. The birthday date is then entered into cell A39. The macro works great this far. The problem is that when the name of the person in cell A1 is deleted, I need to have the birthday date also deleted in cell A39. What is the best way to do this? Please help me soon! See the coding below: Private Sub Worksheet_Change(ByVal Target As Excel.Range) On Error GoTo stoppit Application.EnableEvents = False If Target.Address = "$A$1" And Target.Value < "" Then B_Day = InputBox("enter your birthday") Range("A39").Value = B_Day End If stoppit: Application.EnableEvents = True End Sub THANKS in advance! Russ |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Clearing cell contents
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim B_Day As String On Error GoTo stoppit Application.EnableEvents = False If Target.Address = "$A$1" Then If Target.Value = "" Then Me.Range("A39").Value = "" Else B_Day = InputBox("enter your birthday") Me.Range("A39").Value = B_Day End If End If stoppit: Application.EnableEvents = True End Sub rbbbbeee wrote: I have a macro that when a name is entered in cell A1 a pop up window appears asking for the birthday of the person who's name was entered. The birthday date is then entered into cell A39. The macro works great this far. The problem is that when the name of the person in cell A1 is deleted, I need to have the birthday date also deleted in cell A39. What is the best way to do this? Please help me soon! See the coding below: Private Sub Worksheet_Change(ByVal Target As Excel.Range) On Error GoTo stoppit Application.EnableEvents = False If Target.Address = "$A$1" And Target.Value < "" Then B_Day = InputBox("enter your birthday") Range("A39").Value = B_Day End If stoppit: Application.EnableEvents = True End Sub THANKS in advance! Russ -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Clearing cell contents
Thanks Dave! It works great!
Russ "Dave Peterson" wrote: Option Explicit Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim B_Day As String On Error GoTo stoppit Application.EnableEvents = False If Target.Address = "$A$1" Then If Target.Value = "" Then Me.Range("A39").Value = "" Else B_Day = InputBox("enter your birthday") Me.Range("A39").Value = B_Day End If End If stoppit: Application.EnableEvents = True End Sub rbbbbeee wrote: I have a macro that when a name is entered in cell A1 a pop up window appears asking for the birthday of the person who's name was entered. The birthday date is then entered into cell A39. The macro works great this far. The problem is that when the name of the person in cell A1 is deleted, I need to have the birthday date also deleted in cell A39. What is the best way to do this? Please help me soon! See the coding below: Private Sub Worksheet_Change(ByVal Target As Excel.Range) On Error GoTo stoppit Application.EnableEvents = False If Target.Address = "$A$1" And Target.Value < "" Then B_Day = InputBox("enter your birthday") Range("A39").Value = B_Day End If stoppit: Application.EnableEvents = True End Sub THANKS in advance! Russ -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Clearing cell contents | Excel Programming | |||
Clearing cell contents on CellUpdate | Excel Programming | |||
Clearing Contents of Cell | Excel Worksheet Functions | |||
Clearing Cell Contents | Excel Programming | |||
Clearing Cell Contents | Excel Programming |