overførsel af celle blok ved hjælp af søge ord

send til#kabbak@tiscali.dk

fjern send til#

brug avanceret filter og vælg at kopier data til et andet sted.
Optag det som en makro og så funker det bare for eftertiden

>bak

Ikke forstået, jeg har jo 2 søgeord som skal bruges og avanceret filter siger at jeg kun kan kopiere til det aktuelle ark ????

kikker på det senere, din opbygning af dataerne er ikke optimal.

Regnearket er retuneret, med makrokode.

Sub Udførsel()
Dim Lrow As Long
Application.CutCopyMode = False
Lrow = Sheets("Test").Range("A65536").End(xlUp).Row
For i = 1 To Lrow
If Sheets("Test").Range("A" & i) = Range("H4") Then
GoTo Nummer
End If
Next
MsgBox Range("H4") & " er ikke fundet i området"
Exit Sub

Nummer:
For i = i To Lrow
If Sheets("Test").Range("A" & i) = "*" Then
MsgBox " nummer " & Range("D4") & " er ikke fundet i " & Range("H4")
Exit Sub
End If
If Sheets("Test").Range("A" & i) = Range("D4") Then
    Range("A7:c28").Select
    Selection.Clear
Worksheets("Test").Activate
  Range("B" & i + 1).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("produktion").Select
    Range("A7").Select
    ActiveSheet.Paste
  Selection.Borders.LineStyle = xlContinuous
  Range("H4").Select
Exit For

End If
Next
Application.CutCopyMode = True
End Sub

Kabbak har returneret en rigtig god løsning, så point til ham !

Tak for point ;-))