Ved ny linje, kopier linien oven over

Hej

Håber du kan bruge denne her - virker for kolonne a - så skal du bare teste for data i den pågældende række.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value
End Sub


Mvh

Dali

Hej

Håber du kan bruge denne her - virker for kolonne a - så skal du bare teste for data i den pågældende række.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value
End Sub


Mvh

Dali

Den skal virke for hele rækken, dvs. alle kolonner

Ok

Ny kode - virker ved at du dobbeltklikker på den linje (der hvor den nye linje skal indsættes)

På den måde kopierer du hele rækken oven over.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(-1, 0).EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).EntireRow.PasteSpecial
ActiveCell.Select
End Sub

Sørger både for at indsætte ny linje, og kopiere rækken oven over :o)

Dali

Kunne du bruge svaret?

Jeg kan ikke få den til at virke. Jeg har prøvet at dobbeltklikke alle steder

Du skal dobbeltklikke på cellen - den virker :o)

Mvh

Dali

Koden er indsat på det ark jeg skal bruge det på.
Jeg har dobbeltklikket på selve linien og i kollone A, men uden at det virker

Du skal indsætte koden i "ThisWorkbook" og ikke i module!
Det skal virke :o)

Mvh

Som en sidste ting kan du indsætte application.cutcopymode=false til sidst i koden. Så slipper du for den irriterende stiplede linje.

Tak for point.

Mvh. Dali