Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why does this work and not work
I have a user form that when a user right clicks on a cell a form pops up
and lets them select vendors from a drop down list. The vendors are stored on a separate worksheet and does contain blanks. Everything works fine except that if the user selects a blank from the list it some how is not really blank. The reason I know this is that when I sort the list. The blanks show at the top of the sorted list. I figured I could check for "" and then set the cell to "" but that did not work. So just for the heck of it I set the cell to NUL and it worked. My question is why won't "" not work and NUL does work? Private Sub Cancel_Click() Unload Me End Sub Private Sub OkSubmit_Click() If Vendor = "" Then ActiveCell.Value = "" 'this does not work. Why? ActiveCell.Value = nul 'but this does accomplish it. Why? Else ActiveCell.Value = UCase(Vendor) End If Unload Me End Sub Sub UserForm_Initialize() 'Selects info from Vendor List and puts in drop down box Vendor.List = Sheets("Vendor List").Range("D4:D33").Value 'if the active cell has nothing then select the first 'item from the vendor list 'else take the active cell and select it in upper case If ActiveCell = "" Then Vendor = Sheets("Vendor List").Range("D4") Else Vendor = UCase(ActiveCell) End If End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why does this work and not work
I built a small userform with a combobox and two buttons. I added some test
data and ran your code. It worked ok. Since you never dimmed Nul, it's a variant that has never been initialized (it's empty). But both the assignment to "" and nul did the same thing at the worksheet view. So I don't have an answer why activecell.value = "" didn't work. But your data in D4:d33 may not be empty cells. If they were formulas that evaluated to "" and then converted to values, then these cells aren't really empty. Try =isblank(d4) in a helper cell (assumes d4 looks empty). You could just skim through the range and hit the delete key to actually change them to empty. Pete wrote: I have a user form that when a user right clicks on a cell a form pops up and lets them select vendors from a drop down list. The vendors are stored on a separate worksheet and does contain blanks. Everything works fine except that if the user selects a blank from the list it some how is not really blank. The reason I know this is that when I sort the list. The blanks show at the top of the sorted list. I figured I could check for "" and then set the cell to "" but that did not work. So just for the heck of it I set the cell to NUL and it worked. My question is why won't "" not work and NUL does work? Private Sub Cancel_Click() Unload Me End Sub Private Sub OkSubmit_Click() If Vendor = "" Then ActiveCell.Value = "" 'this does not work. Why? ActiveCell.Value = nul 'but this does accomplish it. Why? Else ActiveCell.Value = UCase(Vendor) End If Unload Me End Sub Sub UserForm_Initialize() 'Selects info from Vendor List and puts in drop down box Vendor.List = Sheets("Vendor List").Range("D4:D33").Value 'if the active cell has nothing then select the first 'item from the vendor list 'else take the active cell and select it in upper case If ActiveCell = "" Then Vendor = Sheets("Vendor List").Range("D4") Else Vendor = UCase(ActiveCell) End If End Sub -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why does this work and not work
Dave, thanks for the info. I knew about the nul. And you did answer my
question. Yes colum d contains formula =proper(c1). I just figured that is nothing was in the cell then there was nothing. Forgot about the formula. I have just started learning this stuff and there is soooo much to learn. I built a small userform with a combobox and two buttons. I added some test data and ran your code. It worked ok. Since you never dimmed Nul, it's a variant that has never been initialized (it's empty). But both the assignment to "" and nul did the same thing at the worksheet view. So I don't have an answer why activecell.value = "" didn't work. But your data in D4:d33 may not be empty cells. If they were formulas that evaluated to "" and then converted to values, then these cells aren't really empty. Try =isblank(d4) in a helper cell (assumes d4 looks empty). You could just skim through the range and hit the delete key to actually change them to empty. Pete wrote: I have a user form that when a user right clicks on a cell a form pops up and lets them select vendors from a drop down list. The vendors are stored on a separate worksheet and does contain blanks. Everything works fine except that if the user selects a blank from the list it some how is not really blank. The reason I know this is that when I sort the list. The blanks show at the top of the sorted list. I figured I could check for "" and then set the cell to "" but that did not work. So just for the heck of it I set the cell to NUL and it worked. My question is why won't "" not work and NUL does work? Private Sub Cancel_Click() Unload Me End Sub Private Sub OkSubmit_Click() If Vendor = "" Then ActiveCell.Value = "" 'this does not work. Why? ActiveCell.Value = nul 'but this does accomplish it. Why? Else ActiveCell.Value = UCase(Vendor) End If Unload Me End Sub Sub UserForm_Initialize() 'Selects info from Vendor List and puts in drop down box Vendor.List = Sheets("Vendor List").Range("D4:D33").Value 'if the active cell has nothing then select the first 'item from the vendor list 'else take the active cell and select it in upper case If ActiveCell = "" Then Vendor = Sheets("Vendor List").Range("D4") Else Vendor = UCase(ActiveCell) End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to update a column in a work based on another work sheet | New Users to Excel | |||
how can i automatically generate work order numbers from work orde | Excel Discussion (Misc queries) | |||
flash object dont work in my excel work sheet | Excel Discussion (Misc queries) | |||
Counting dates in multiple work sheets and work books | Excel Discussion (Misc queries) | |||
Is there away to keep "auto save" from jumping to the first work sheet in the work book? | New Users to Excel |