excel 2007 match code problem

**odursus** · 08-16-2012, 08:40 AM

I am having some probles about the code below:

Sub manueltaskekle()

A = UserForm1.TextBox6.Text

If Sheet1.Cells(1, 1) = "" Then

Sheet1.Cells(1, 1) = A

    Else

    Dim z
    Dim x
    
    lastrow = Cells.find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    z = Val(lastrow) + 1

    Dim myvalue As Long


If myvalue = Application.Match(A, worksheet1.range("A1:A1000"), EntireColumn) Then

MsgBox (A) & " Listeye ekli."
      
     
    Else

       Sheet1.Cells(z, 1).Value = A
         
      End If

End If
    
End Sub

it keeps giving the " object needed" error. Is there any help available, thank you.

**arlu1201** · 08-16-2012, 08:50 AM

Welcome to the forum.

I have added code tags to your post. As per forum rule 3, you need to use them whenever you put any code in your post. Please add them in future. If you need more information on how to use them, check my signature.

**odursus** · 08-16-2012, 08:56 AM

Thank you very much, i've looked trough the form to find a simular problem like mine and i realised that the writing is different in the codes but couldn't find how to do. Thank you very much.

**arlu1201** · 08-16-2012, 09:38 AM

Do you get an error on this line?

lastrow = Cells.find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

Change your code to

Sub manueltaskekle()
Dim z
Dim x
Dim myvalue As Long

a = UserForm1.TextBox6.Text

If Sheet1.Cells(1, 1) = "" Then

    Sheet1.Cells(1, 1) = a

Else
    
    z = Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
    
    If myvalue = Application.Match(a, worksheet1.Range("A1:A1000"), EntireColumn) Then

        MsgBox (a) & " Listeye ekli."
     
    Else

       Sheet1.Cells(z + 1, 1).Value = a
         
    End If

End If
    
End Sub

**odursus** · 08-16-2012, 09:58 AM

I forget to explain the problem properly, sorry.

i am having problems on the code below:

If myvalue = Application.Match(A, worksheet1.range("A1:A1000"), EntireColumn) Then

it keeps giving the object warning. I couldn't find to write a proper code for matching. I tried to write it in different formats, like worksheetfunction.match etc.

thank you.