Find række og overskiv data med data fra andet ark

Hej nehm

Har du en idé til, hvordan du vil starte søgningen ??

Med venlig hilsen, Nicolai

Hej nehm

Det ID du søger, står det også i kolonne A på sheet2 ??

Mvh Nicolai

Hej

Jeg sad med det i går og løste problemet, her er coden..

Sub Find_copy()

Dim Lookup

Sheets("Oversigt").Rows("10:10").Select
Selection.Copy
Sheets("Aktuelle aftaler").Activate

Lookup = Range("B1")

    Columns("A:A").Select
    Selection.Find(What:=Lookup, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
ActiveCell.EntireRow.Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
Sheets("Oversigt").Select

Hej nehm

Godt du fandt koden :o)

Men hvordan virker den ?? ... Umiddelbart kan jeg ikke få den til at slå det op, som jeg har indtastet i celle "B1"

Er jeg på vildspor ??

Mvh Nicolai