Rivin siirto toiselle välilehdelle

Tuon välilehden moduliin seuraavat:

Sub talleta(r As Integer)
   With Worksheets("Sheet2")  ' toinen välilehti
      v = .UsedRange.Rows.Count 1
      .Cells(v, 1) = Cells(r, 1)
      .Cells(v, 2) = Cells(r, 2)
      .Cells(v, 3) = Cells(r, 3)
   End With
   Range(Cells(r, 1), Cells(r, 3)).Interior.Color = RGB(0, 255, 0)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
   Set haettava = Range("B1") ' viivakoodi syötetään tähän soluun
   If Not Intersect(Target, haettava) Is Nothing Then
      r = 4                   ' ensimmäinen tietorivi
      Do
         If Cells(r, 1).Text = haettava.Text Then
            If Cells(r, 1).Interior.Color = RGB(0, 255, 0) Then Exit Sub ' jo talletettu
                        
            If MsgBox(Cells(r, 1).Text & vbCrLf & Cells(r, 2).Text & _
               vbCrLf & Cells(r, 3).Text & vbCrLf & vbCrLf & "OK?", _
               vbYesNo, "Löytyi:") = vbYes Then talleta (r)
            
            Exit Sub
         ElseIf Cells(r, 1).Text = "" Then
            Exit Sub
         End If
         r = r 1
      Loop
   End If
End Sub

Todella hieno koodin pätkä. Juurikin tuollaista hain. Todella paljon kiitosta. Nyt homma onnistuu paljon joutusammin

-Jukka