Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
code problem
Here is my code:
Private Sub cmbcc_Exit(ByVal Cancel As MSForms.ReturnBoolean) CCFCLC.cmbfc.Clear Worksheets("CodeGrid").Activate Range("A1").Select Do While True And ActiveCell.Row < 75 If Worksheets("Coding").Range("A1").Value = ActiveCell.Value Then Exit Do End If ActiveCell.Offset(1, 0).Select Loop If Worksheets("Coding").Range("A1").Value < ActiveCell.Value Then Exit Sub End If ActiveCell = ActiveCell.Offset(0, 1).Select Do While ActiveCell.Column < 50 If ActiveCell.Value < "" And LCase (ActiveCell.Value) < "no" Then CCFCLC.cmbfc.AddItem ActiveCell.Value End If ActiveCell.Offset(0, 1).Select Loop End Sub My problems a 1) it makes the first drop down option "- 1"???? It changes the first value in the appropriate cooresponding column on the "CodeGrid" sheet to "True"??? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
code problem
Private Sub cmbcc_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CCFCLC.cmbfc.Clear Worksheets("CodeGrid").Activate Range("A1").Select Do While True And ActiveCell.Row < 75 If Worksheets("Coding").Range("A1").Value = _ ActiveCell.Value Then Exit Do End If ActiveCell.Offset(1, 0).Select Loop If Worksheets("Coding").Range("A1").Value < _ ActiveCell.Value Then Exit Sub End If ActiveCell.Offset(0, 1).Select Do While ActiveCell.Column < 50 If ActiveCell.Value < "" And _ LCase(ActiveCell.Value) < "no" Then CCFCLC.cmbfc.AddItem Cells(1, _ ActiveCell.Column).Value End If ActiveCell.Offset(0, 1).Select Loop End Sub Worked for me as I understand your layout. Assume you want to load the value from row 1 into the second combobox for cells in the selected row that are not blank and don't contain "no" If you want to load the values from the cells in the select row for those conditions change CCFCLC.cmbfc.AddItem Cells(1, _ ActiveCell.Column).Value to CCFCLC.cmbfc.AddItem ActiveCell.Value -- Regards, Tom Ogilvy "scrabtree23" wrote in message ... Here is my code: Private Sub cmbcc_Exit(ByVal Cancel As MSForms.ReturnBoolean) CCFCLC.cmbfc.Clear Worksheets("CodeGrid").Activate Range("A1").Select Do While True And ActiveCell.Row < 75 If Worksheets("Coding").Range("A1").Value = ActiveCell.Value Then Exit Do End If ActiveCell.Offset(1, 0).Select Loop If Worksheets("Coding").Range("A1").Value < ActiveCell.Value Then Exit Sub End If ActiveCell = ActiveCell.Offset(0, 1).Select Do While ActiveCell.Column < 50 If ActiveCell.Value < "" And LCase (ActiveCell.Value) < "no" Then CCFCLC.cmbfc.AddItem ActiveCell.Value End If ActiveCell.Offset(0, 1).Select Loop End Sub My problems a 1) it makes the first drop down option "- 1"???? It changes the first value in the appropriate cooresponding column on the "CodeGrid" sheet to "True"??? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
code problem
I think that finally got it. I may have more questions as
I develop this further. We shall see. -----Original Message----- Private Sub cmbcc_Exit(ByVal Cancel As MSForms.ReturnBoolean) CCFCLC.cmbfc.Clear Worksheets("CodeGrid").Activate Range("A1").Select Do While True And ActiveCell.Row < 75 If Worksheets("Coding").Range("A1").Value = _ ActiveCell.Value Then Exit Do End If ActiveCell.Offset(1, 0).Select Loop If Worksheets("Coding").Range("A1").Value < _ ActiveCell.Value Then Exit Sub End If ActiveCell.Offset(0, 1).Select Do While ActiveCell.Column < 50 If ActiveCell.Value < "" And _ LCase(ActiveCell.Value) < "no" Then CCFCLC.cmbfc.AddItem Cells(1, _ ActiveCell.Column).Value End If ActiveCell.Offset(0, 1).Select Loop End Sub Worked for me as I understand your layout. Assume you want to load the value from row 1 into the second combobox for cells in the selected row that are not blank and don't contain "no" If you want to load the values from the cells in the select row for those conditions change CCFCLC.cmbfc.AddItem Cells(1, _ ActiveCell.Column).Value to CCFCLC.cmbfc.AddItem ActiveCell.Value -- Regards, Tom Ogilvy "scrabtree23" wrote in message ... Here is my code: Private Sub cmbcc_Exit(ByVal Cancel As MSForms.ReturnBoolean) CCFCLC.cmbfc.Clear Worksheets("CodeGrid").Activate Range("A1").Select Do While True And ActiveCell.Row < 75 If Worksheets("Coding").Range("A1").Value = ActiveCell.Value Then Exit Do End If ActiveCell.Offset(1, 0).Select Loop If Worksheets("Coding").Range("A1").Value < ActiveCell.Value Then Exit Sub End If ActiveCell = ActiveCell.Offset(0, 1).Select Do While ActiveCell.Column < 50 If ActiveCell.Value < "" And LCase (ActiveCell.Value) < "no" Then CCFCLC.cmbfc.AddItem ActiveCell.Value End If ActiveCell.Offset(0, 1).Select Loop End Sub My problems a 1) it makes the first drop down option "- 1"???? It changes the first value in the appropriate cooresponding column on the "CodeGrid" sheet to "True"??? . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Code problem | Excel Discussion (Misc queries) | |||
Alt Code Problem | Excel Discussion (Misc queries) | |||
problem with this code | Excel Programming | |||
problem with code | Excel Programming | |||
Code problem | Excel Programming |