Find ComboBox Value In a Excel Column

[Guest_imported]

Can someone please tell me why this won't work

Sub Find()
msheet = ActiveSheet.Name
Select Case msheet
Case "BoQ"
Range("s:s&quot.Select
Selection.Find(What:=ComboBox1.Text, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Select
ActiveCell.Offset(0, -11).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

Please help me!!!!!!

 

[Andrija]

You must enter your code in UserForm module, for.ex.:

Private Sub CommandButton1_Click()
' CommandButton1 event procedure
Range("A:A&quot.Select
Selection.Find( _
What:=ComboBox1.Text).Activate
MsgBox ActiveCell.Text
End Sub

 

[Loomah]

Hello again guesser!

I've made a few amendments to your code. Is this the same problem(s) you were having before??

Sub Find()
Dim msheet As String 'added
msheet = ActiveSheet.Name
    Select Case msheet
        Case "BoQ"
            Columns("S:S").Select 'NEW
            Selection.Find(What:=ComboBox1.Text, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                False).activate 
            ActiveCell.Copy 'need to copy something to paste!!
        End Select
        ActiveCell.Offset(0, -11).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False 'ADDED
End Sub

Is the Case select necessary ie are you running different code dependent on active sheet?

I deleted one of the argument from your find so just use what I've posted back.

Happy Friday
it begins tomorrow!
;-) If a man says something and there are no women there to hear him, is he still wrong?

 

[Guest_imported]

Thanks a million

Easy when you know how

Cheers

Andrew