S
scrabtree23
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 are: 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"???
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 are: 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"???