Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
If cancel list box don't enter FALSE in list
This works okay, except if you cancel out of entering something in the list, it enters FALSE. Don't want that.
Thanks, Howard Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub Dim strName As String If Target = "Not on list" Then strName = Application.InputBox("Add To List", _ "Add to list here", "Enter Whatever", , , , , 2) Range("F1").End(xlDown).Offset(1, 0).EntireRow.Insert Range("F1").End(xlDown).Offset(1, 0) = strName End If End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
If cancel list box don't enter FALSE in list
Hi Howard,
Am Wed, 28 Aug 2013 07:45:46 -0700 (PDT) schrieb Howard: This works okay, except if you cancel out of entering something in the list, it enters FALSE. Don't want that. try: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address < "$B$1" Then Exit Sub Dim strName As String If Target = "Not on list" Then strName = Application.InputBox("Add To List", _ "Add to list here", "Enter Whatever", , , , , 2) If strName = "" Or strName = "False" Then Exit Sub Range("F1").End(xlDown).Offset(1, 0).EntireRow.Insert Range("F1").End(xlDown).Offset(1, 0) = strName End If End Sub Regards Claus B. -- Win XP PRof SP2 / Vista Ultimate SP2 Office 2003 SP2 /2007 Ultimate SP2 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
If cancel list box don't enter FALSE in list
On Wednesday, August 28, 2013 8:33:53 AM UTC-7, Claus Busch wrote:
Hi Howard, Am Wed, 28 Aug 2013 07:45:46 -0700 (PDT) schrieb Howard: This works okay, except if you cancel out of entering something in the list, it enters FALSE. Don't want that. try: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address < "$B$1" Then Exit Sub Dim strName As String If Target = "Not on list" Then strName = Application.InputBox("Add To List", _ "Add to list here", "Enter Whatever", , , , , 2) If strName = "" Or strName = "False" Then Exit Sub Range("F1").End(xlDown).Offset(1, 0).EntireRow.Insert Range("F1").End(xlDown).Offset(1, 0) = strName End If End Sub Regards Claus B. Nice little one line fix. Thanks, Claus |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
IF statement based on True/False that activates a certain list box | Excel Worksheet Functions | |||
Compare List A to List B, Return List B Items Not in List A | Excel Programming | |||
how to enter simple list and sum | New Users to Excel | |||
data validation list: how do i 'force' a user to enter data from the list? | Excel Discussion (Misc queries) | |||
data validation list: how do i 'force' a user to enter data from the list? | Excel Discussion (Misc queries) |