Dear MARIES,

Thank you very much.

On Tue, Feb 21, 2012 at 8:44 PM, Maries <talk2mar...@gmail.com> wrote:

> Hi Prajakt,
>
> Please find the attached file.I have used below codes in user form.
>
> Private Sub CommandButton1_Click()
>
> Dim rng1 As Range
> Dim lll As Integer
>
>     Sheets("Sheet2").Select
>     Cells.Select
>     Selection.ClearContents
>
>     lll = Len(TextBox1.Value)
>     Set rng1 = Range("Sheet1!A2:A500")
>
>     For i = 1 To 500
>         With rng1
>             If Left(.Cells(i, 1).Value, lll) = TextBox1.Value Then
>             Sheets("Sheet2").Cells(500, 1).End(xlUp).Offset(1, 0).Value =
> .Cells(i, 1).Value
>             Sheets("Sheet2").Cells(500, 1).End(xlUp).Offset(0, 1).Value =
> .Cells(i, 2).Value
>             Sheets("Sheet2").Cells(500, 1).End(xlUp).Offset(0, 2).Value =
> .Cells(i, 3).Value
>             Sheets("Sheet2").Cells(500, 1).End(xlUp).Offset(0, 3).Value =
> .Cells(i, 4).Value
>             End If
>          End With
>
>    Next i
>
>     TextBox1.Value = Sheets("Sheet2").Cells(2, 1).Value
>     TextBox3.Value = Sheets("Sheet2").Cells(2, 2).Value
>     TextBox4.Value = Sheets("Sheet2").Cells(2, 3).Value
>     TextBox5.Value = Sheets("Sheet2").Cells(2, 4).Value
>
>     Sheets("Sheet1").Select
>
> End Sub
>
>
>
> Private Sub CommandButton2_Click()
>
> Dim rng As Range
>
> Set rng = Range("Sheet2!A2:A500")
>
> For i = 1 To 500
>
> With rng
>
> If TextBox1.Value = Trim(.Cells(i, 1).Value) And .Cells(i + 1, 1).Value <>
> "" Then
>
> TextBox1.Value = .Cells(i + 1, 1).Value
> TextBox3.Value = .Cells(i + 1, 2).Value
> TextBox4.Value = .Cells(i + 1, 3).Value
> TextBox5.Value = .Cells(i + 1, 4).Value
> Exit For
> End If
>
> End With
>
> Next i
>
> End Sub
>
> Private Sub CommandButton3_Click()
>
> Dim rng As Range
>
> Set rng = Range("Sheet2!A2:A500")
>
> For i = 1 To 500
>
> With rng
>
> If TextBox1.Value = Trim(.Cells(i, 1).Value) And .Cells(i - 1, 1).Value <>
> "" Then
>
> TextBox1.Value = .Cells(i - 1, 1).Value
> TextBox3.Value = .Cells(i - 1, 2).Value
> TextBox4.Value = .Cells(i - 1, 3).Value
> TextBox5.Value = .Cells(i - 1, 4).Value
> Exit For
> End If
>
> End With
>
> Next i
> End Sub
>
> I hope this fulfill your requirements.
>
> Regards,
>
> MARIES.
>
>
>
> On Mon, Feb 20, 2012 at 1:59 PM, MAnoj Kumar <manoj...@gmail.com> wrote:
>
>> Dear Sir,
>>
>>            Please solved my problam.
>>
>>
>> On Mon, Feb 20, 2012 at 2:02 PM, Prajakt Pande 
>> <prajakt.pa...@gmail.com>wrote:
>>
>>>  Dear Maries,
>>>
>>>
>>>
>>> Not like this, it was with user form
>>>
>>>
>>>
>>> 01) if i put roll on codes with 4 digits and hit the search button it
>>> suppose to be show first match value.
>>>
>>>
>>>
>>>       For example:-
>>>
>>>
>>>
>>> Roll On Code
>>>
>>> name
>>>
>>> duty in %
>>>
>>> Unit's
>>> Of measure
>>>
>>> 12345678
>>>
>>> Rabbit
>>>
>>> 1%
>>>
>>> y
>>>
>>> 12345679
>>>
>>> House
>>>
>>> 2%
>>>
>>> N
>>>
>>> 12345610
>>>
>>> Lion
>>>
>>> 0%
>>>
>>> y
>>>
>>> 12345611
>>>
>>> Tiger
>>>
>>> 0%
>>>
>>> N
>>>
>>>
>>>
>>> In above example there are roll on codes are starts with 1234 with
>>> different name, duty in %, & unit's of measure
>>>
>>>
>>>
>>> My question is, if I put roll on code in test box after that hit the
>>> search button it need to show first value in particular field, and if there
>>> are more matches with that then by hitting next & previous button i can see
>>> the name, duty in % & units of measure.
>>>
>>>
>>>
>>> Just like find function in excel I want to embed with user form.
>>>
>>>
>>>
>>> Thanks in advance. file attached for your reference.
>>>
>>>
>>> On Mon, Feb 20, 2012 at 11:36 AM, Maries <talk2mar...@gmail.com> wrote:
>>>
>>>>
>>>>
>>>> On Mon, Feb 20, 2012 at 11:34 AM, Maries <talk2mar...@gmail.com> wrote:
>>>>
>>>>> PFA.
>>>>>
>>>>> *Formula - =INDEX(B2:B21,MATCH(TRUE,VALUE(RIGHT(A2:A21,4))=H12,0))*
>>>>>
>>>>>
>>>>> On Sun, Feb 19, 2012 at 12:15 PM, Prajakt Pande <
>>>>> prajakt.pa...@gmail.com> wrote:
>>>>>
>>>>>>   Dear all,
>>>>>>>
>>>>>>> Roll on codes are maximum 8 digits, I want to search via roll on
>>>>>>> codes, at least 4 digits,
>>>>>>> Where ever it matches with sequence, need to update the other
>>>>>>> information in respective field, with next and previous option,
>>>>>>> If “Roll on code” is not available then search via NAME. Sheet
>>>>>>> attached please help.
>>>>>>> Thanks in advance,
>>>>>>>
>>>>>> Thanks & Regards,
>>>>>> Prajakt Pande
>>>>>>
>>>>>> --
>>>>>> FORUM RULES (986+ members already BANNED for violation)
>>>>>>
>>>>>> 1) Use concise, accurate thread titles. Poor thread titles, like
>>>>>> Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need
>>>>>> Advice will not get quick attention or may not be answered.
>>>>>>
>>>>>> 2) Don't post a question in the thread of another member.
>>>>>>
>>>>>> 3) Don't post questions regarding breaking or bypassing any security
>>>>>> measure.
>>>>>>
>>>>>> 4) Acknowledge the responses you receive, good or bad.
>>>>>>
>>>>>> 5) Cross-promotion of, or links to, forums competitive to this forum
>>>>>> in signatures are prohibited.
>>>>>>
>>>>>> NOTE : Don't ever post personal or confidential data in a workbook.
>>>>>> Forum owners and members are not responsible for any loss.
>>>>>>
>>>>>>
>>>>>> ------------------------------------------------------------------------------------------------------
>>>>>> To post to this group, send email to excel-macros@googlegroups.com
>>>>>>
>>>>>
>>>>>
>>>> --
>>>> FORUM RULES (986+ members already BANNED for violation)
>>>>
>>>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>>>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>>>> will not get quick attention or may not be answered.
>>>>
>>>> 2) Don't post a question in the thread of another member.
>>>>
>>>> 3) Don't post questions regarding breaking or bypassing any security
>>>> measure.
>>>>
>>>> 4) Acknowledge the responses you receive, good or bad.
>>>>
>>>> 5) Cross-promotion of, or links to, forums competitive to this forum in
>>>> signatures are prohibited.
>>>>
>>>> NOTE : Don't ever post personal or confidential data in a workbook.
>>>> Forum owners and members are not responsible for any loss.
>>>>
>>>>
>>>> ------------------------------------------------------------------------------------------------------
>>>> To post to this group, send email to excel-macros@googlegroups.com
>>>>
>>>
>>>
>>>  --
>>> FORUM RULES (986+ members already BANNED for violation)
>>>
>>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>>> will not get quick attention or may not be answered.
>>>
>>> 2) Don't post a question in the thread of another member.
>>>
>>> 3) Don't post questions regarding breaking or bypassing any security
>>> measure.
>>>
>>> 4) Acknowledge the responses you receive, good or bad.
>>>
>>> 5) Cross-promotion of, or links to, forums competitive to this forum in
>>> signatures are prohibited.
>>>
>>> NOTE : Don't ever post personal or confidential data in a workbook.
>>> Forum owners and members are not responsible for any loss.
>>>
>>>
>>> ------------------------------------------------------------------------------------------------------
>>> To post to this group, send email to excel-macros@googlegroups.com
>>>
>>
>>
>>
>> --
>> *
>>
>> Thanks & Regards
>> *
>> **
>> *Manoj Kumar |  |  M+ 9350226601*
>>
>>
>>
>>
>>   --
>> FORUM RULES (986+ members already BANNED for violation)
>>
>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>> will not get quick attention or may not be answered.
>>
>> 2) Don't post a question in the thread of another member.
>>
>> 3) Don't post questions regarding breaking or bypassing any security
>> measure.
>>
>> 4) Acknowledge the responses you receive, good or bad.
>>
>> 5) Cross-promotion of, or links to, forums competitive to this forum in
>> signatures are prohibited.
>>
>> NOTE : Don't ever post personal or confidential data in a workbook. Forum
>> owners and members are not responsible for any loss.
>>
>>
>> ------------------------------------------------------------------------------------------------------
>> To post to this group, send email to excel-macros@googlegroups.com
>>
>
>


-- 
Thanks & Regards,
Prajakt Pande
+971551388482
**

-- 
FORUM RULES (986+ members already BANNED for violation)

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.

2) Don't post a question in the thread of another member.

3) Don't post questions regarding breaking or bypassing any security measure.

4) Acknowledge the responses you receive, good or bad.

5)  Cross-promotion of, or links to, forums competitive to this forum in 
signatures are prohibited. 

NOTE  : Don't ever post personal or confidential data in a workbook. Forum 
owners and members are not responsible for any loss.

------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com

Reply via email to