Problem with Find Code

[charllie]

Hi Folks,

I have tried to adapt this code below to do the follow but cant seem to get it to work.

What i want it to do is to match the text in Me.IFPI.Box with the same text in column A of Sheets("Current Codes").

Then once it has located the row i want it to then replace the information in the colums with the infor from the textboxes (as indicated below).

However the code doesn't seem to be working. I would really appreciate it if someone could tell me where i am going wrong please?

   With Sheets("Current Codes")       '<- change here
        Set r = .Columns("a").Find(Me.IFPIBox.Text)
        If Not r Is Nothing Then
            With .Cells(r.Row, Columns.Count)
                .Offset(, 1).Value = Me.IFPIBox.Text
                .Offset(, 2).Value = Me.PressBox.Text
                .Offset(, 3).Value = Me.LayerBox.Text
                .Offset(, 4).Value = Me.LocationBox.Text
                .Offset(, 5).Value = Me.DateTextBox.Text
                .Offset(, 6).Value = Format(Date, "dd mmmm yyyy")
            End With
        End If
    End With

 

[lozzablake]

r is defined as a range?

should it be range("a:a") rather than columns("a")?