Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()


    
TextBox7.Text = "»Õ§º»ÃÐÁÒ³" & " " & b_yrs _
& Chr(10) & "ñ." & "  " & Cboitem.Value & "/" & Cbocompany01.Value & " " & "ÃÒ¤Ò" & " " & price01.Value _
& Chr(10) & "ò." & " " & Cbocompany02.Value & "/" & "ÃÒ¤Ò" & " " & price02.Value _
& Chr(10) & "ó." & " " & Cbocompany03.Value & "/" & "ÃÒ¤Ò" & " " & price03.Value _

Dim FindString As String
    Dim Rng As Range
    FindString = Cboitem.Value
   
    'FindString = InputBox("Enter a Search value")
    If Trim(FindString) <> "" Then
        With Sheets("holdingBuy").Range("B3:AZ3")
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
            MsgBox "ok found"
            
            '----------------- how to insert data to correct range
            
               Worksheets("holdingBuy").Range("F43").Value = TextBox7.Value
            Else
                MsgBox "Nothing found"
            End If
        End With
    End If