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
|
|