Same VBA code for multipage 1st and 2nd page

[Akbarov]

Hey community,

I am using same VBA code ( to search from sheet1 ) and trying to use same code for sheet2 ( on multipages 2nd page ) i am copy-pasting same code and changing sheet name on second code. but for some reason it is not working on second paage of multipage.

i am getting error : Ambiguous name detected

Private Sub TextBox1_Change()

    Dim fCell As Range, fCells As Range
    Dim Firstfound As String


    ListBox1.Clear


    With Worksheets("Nom")
        Set fCells = .Range("c1", .Range("c" & Rows.Count).End(xlUp))
    End With


    Set fCell = fCells.Find(What:=TextBox1.Value & "*", _
                            After:=fCells(fCells.Count), _
                            LookIn:=xlValues, _
                            Lookat:=xlWhole, SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, MatchCase:=False)


    If Not fCell Is Nothing Then
        Firstfound = fCell.Address
        Do
            With ListBox1
                .AddItem fCell.Value
                .List(.ListCount - 1, 1) = fCell.Value
            End With
            Set fCell = fCells.FindNext(After:=fCell)
        Loop While fCell.Address <> Firstfound
    End If


End Sub

or type does not focus error

 

[footoo]

i am getting error : Ambiguous name detected

You can't have 2 macros with the same name in a workbook.

 

[Akbarov]

what to do?

 

[footoo]

Rename one of them.

 

[Akbarov]

any detailed help?

 

[My Aswer Is This]

What is your question?

The error is telling you have two script in the same Workbook with the same name.

And you were told to rename one of them.

Show us the two scripts.

 

[Akbarov]

hi, i want to use same code on second page of multipage. to search and find result from different sheet

'Private Sub CommandButton1_Click()
'Dim i As Long
'    Sheets("Nomreler").Range("Z2").Value = TextBox1.Value
'        For i = 1 To 20    '<---- 20 Labels and 20 Cells in Column Z
'            Me.Controls("Label" & i + 2).Caption = Sheets("Nomreler").Cells(i, 25).Value
'        Next i
'End Sub




Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub ListBox1_Click()Dim i As Long
    Sheets("Nomreler").Range("Z2") = Me.ListBox1
        For i = 1 To 20
            Me.MultiPage1.Pages(0).Controls("Label" & i + 2).Caption = Sheets("Nomreler").Cells(i, "Y").Value
        Next i
End Sub






Private Sub TextBox1_Change()
    'Thanks to AlphaFrog at Mr.Excel.com 532918 Listbox displaying multiple search results as you type
    Dim fCell As Range, fCells As Range
    Dim Firstfound As String


    ListBox1.Clear


    With Worksheets("Nomreler")
        Set fCells = .Range("c1", .Range("c" & Rows.Count).End(xlUp))
    End With


    Set fCell = fCells.Find(What:=TextBox1.Value & "*", _
                            After:=fCells(fCells.Count), _
                            LookIn:=xlValues, _
                            Lookat:=xlWhole, SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, MatchCase:=False)


    If Not fCell Is Nothing Then
        Firstfound = fCell.Address
        Do
            With ListBox1
                .AddItem fCell.Value
                .List(.ListCount - 1, 1) = fCell.Value
            End With
            Set fCell = fCells.FindNext(After:=fCell)
        Loop While fCell.Address <> Firstfound
    End If


End Sub




Private Sub UserForm_Initialize()
    Sheets("Nomreler").Range("Z2").ClearContents
    TextBox1.SetFocus
End Sub

 

[My Aswer Is This]

You have two different scripts assigned to the same Button

You need to put this script in another button

Private Sub CommandButton1_Click()
    Unload Me
End Sub

 

[Akbarov]

still getting same error ;/

what about

[COLOR=#333333]Private Sub UserForm_Initialize()[/COLOR]    Sheets("Nomreler").Range("Z2").ClearContents
    TextBox1.SetFocus [COLOR=#333333]End Sub[/COLOR]

new error: can't move focus

 

[My Aswer Is This]

I do not know what to tell you.
I always build script one step at a time if I'm not sure of myself.
And eliminate one problem before moving on.
Did you solve the ambiguous error?

If not you must solve this first.

Three of us have told you cannot have two scripts with the same name

You had two scripts with this name.

[LEFT][COLOR=#333333][FONT=monospace]'Private Sub CommandButton1_Click()
[/FONT][/COLOR][/LEFT]