Hej hej
1. Spaea filen med filtyp .xlsm (makroaktiverad excel) 2. Gå in i VBE, (Alt F11) 3. I projektfönstret, dubbelklicka på blad1 så att du får upp ett vitt fönster(kodfönstret). 4. Klistra in nedan kod till kodfönstret: 5. Ändra i koden: F:F måste motsvara kolumnen där du skriver in slutdatum. 6. Spara och stäng editorn
Obs! koden kommer att triggas oavsett vad du skriver i kolumnen för slutdatum, vilket kommer att kopiera din rad till blad2.
Mvh Christian
Option Explicit
Public Sub worksheet_change(ByVal Target As Range)
If Not Intersect(Target, Range("F:F")) Is Nothing Then Dim PasteSheet As Worksheet: Set PasteSheet = Sheets("blad2") Dim PasteRow As Long: PasteRow = PasteSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 Target.EntireRow.Copy PasteSheet.Cells(PasteRow, 1) End If
End Sub
|
|