Copyin data from sheet to another if values are same

This is the code i use:

[I

]Sub similar()
    Dim Sht1Rng As Range
    Dim Sht2Rng As Range
     
    Set Sht1Rng = Worksheets("firts").Range("A1", Worksheets("firts").Range("A1100").End(xlUp))
    Set Sht2Rng = Worksheets("second").Range("A1", Worksheets("second").Range("A1100").End(xlUp))
     
    For Each c In Sht1Rng
        Set d = Sht2Rng.Find(c.Value, LookIn:=xlValues)
        If Not d Is Nothing Then
            Worksheets("Results").Range("A1100").End(xlUp).Offset(1, 0).Value = c.Value
            Worksheets("Results").Range("A1100").End(xlUp).Offset(0, 1).Value = c.Offset(0, 1).Value
            Set d = Nothing
        End If
    Next c
End Sub

[/I]

It selects similar values from column A from these sheets, and puts it into results sheet. In addition to this, what I need is to pick up the whole row from the sheet "Second". I have tried adding

Worksheets("second").Range(d).EntireRow.Select

after looking for similar values, but this causes error. I also need to pick up one more value from sheet "first" and add it to the last column in "results" sheet, but this is secondary problem..

Please use code tangs on your code

Worksheets("Results").Range("A1100").End(xlUp).Offset(1, 0).Value = c.Value

Could be changed

Worksheets("Results").Range("A1100").End(xlUp).Offset(1, 0).Value = c.EntireRow

Assuminng that you have ten rows to copy

Worksheets("Results").Range("A1100").End(xlUp).Offset(0, 1).Resize(, 10) = c.Offset(0, 1).Resize(, 10).Value

Be warned: I have been using the find function for a number of times. If your data is small, it works fine, but with large it is very slow as the code looks at every single row on both sheets

May be something like this...

Worksheets("Results").Rows(10).Value = Worksheets("second").Rows(10).Value

d.EntireRow.Value = Worksheets("second").Rows(1).Value

Sirpa,
I can only find one row which matches on both sheets

Sub find_copy11()

Application.ScreenUpdating = 0
Application.EnableEvents = 0
Dim c2 As Range, c As Range, ms As Worksheet
Set ms = Sheets("Results")
With Sheets("second")
LR = .Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
 For Each c2 In .Range("B1:B" & LR)
   Set c = Sheets("first").Columns(1).Find(c2, , xlValues, xlWhole)
    If Not c Is Nothing Then
     c2.EntireRow.Interior.ColorIndex = 3
    c2.EntireRow.Copy ms.Range("A" & Rows.Count).End(xlUp)(2)
    End If
   Next c2
 End With
 Application.ScreenUpdating = 1
Application.EnableEvents = 1
End Sub

sirpaleena,

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 below this post.