Macro kopier celler baseret på anden celles værdi

Og cellen skal selvfølgelig slettes hvis X'et fjernes igen.

Du kan bruge denne makro.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B36")) Is Nothing Then
If WorksheetFunction.Proper(Target) = "X" And Target.Offset(7, 0) = "Kopier" Then
Rows(45).Copy
Cells(39, 1).EntireRow.Insert
Else
If Target = "" And Target.Offset(8, 0) = "Kopier" Then
Rows(39).Delete
End If
End If
Application.CutCopyMode = False
End If
End Sub

Tak for hjælpen Jens48.

Hvis jeg gerne vil have indsat flere rækker og ikke kun række 39, er det så let at ændre?

Hvis du bruger denne makro, sætter den en linie ind hver gang du skriver "x" i B36 og sletter en linie hver gang du sletter det der står i B36 også selv om cellen allerede er tom

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B36")) Is Nothing Then
If WorksheetFunction.Proper(Target) = "X" Then
Rows(45).Copy
Cells(39, 1).EntireRow.Insert
Else
If Target = "" Then
Rows(39).Delete
End If
End If
Application.CutCopyMode = False
End If
End Sub

Kan den let modificeres sådan at den finder det stede på arket hvor der står "Test". Derefter indsætter den flere rækker?

fx.

Når der sættes X i B36 så indsættes Linje 46 og 47 efter det sted på siden hvor der står Test.

Man kunne forstille sig at linje 46 og 47 stod på et andet ark der var stationær.

Jeg vil gerne have denne funktion flere steder på det samme ark, hvilket medføre at det sted hvor cellerne skal indsættes flyttes. derfor ønsker jeg at indbytte en funktion sådan at den selv finder stedet hvor der står Test og indsætter rækkerne. Det kan være forskelligt hvor mange rækker der skal indsættes alt efter hvor der er et x.

Håber det giver mening, og håber det kan lade sig gøre.

Undskyld, men det er lidt svært at lave en makro når du hele tiden laver om på dine ønsker. Jeg opgiver.

Hej Jens

Beklager meget. Men det er et projekt der har ændret sig en del siden jeg startede.

Men mange tak for din hjælp så langt.

Måske kan du bruge dette:
http://gratisupload.dk/f/8sdve59t4i