02. oktober 2014 - 15:49Der er
3 kommentarer og 1 løsning
Flyt og slette række i ark1 til ark2 og sotere dette.
Er der en som vil hjælpe med mit regneark?
Jeg har et regneark med 2 ark som bruges til opgaver der skal løses, i ark1 stå alle opgaver fra A2 og helt til bunden af arket, eller alt efter hvor mange opgaver det bliver i løbet af året, efterhånden som de afsluttes, skriver jeg en dato i kolonne J for den række som opgaven er udført, derefter klipper jeg rækken og flytter den om på ark2, herefter sletter jeg den tomme række i ark1, i ark2 sorteret jeg efter dato på de afsluttet opgaver.
Er det muligt at lave dette automatisk eller med en knap?
Rem VBA-koden anbringes under første ark rem Højrekllik på fanen / Vis programkode / indsæt her / Gem og Luk
Option Explicit Dim række As Integer, ledigRække As Integer, antalRækker As Integer Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 10 And IsDate(Target) = True And InStr(Target.Address, ":") = 0 Then ActiveWorkbook.Sheets("Afsluttede").Activate ActiveSheet.Range("J1").Select Selection.AutoFilter 'slå autofilter fra på side 2
Rem Slet rækken med afsluttet opgave ActiveWorkbook.Sheets("Alle indkomne").Activate ActiveSheet.Rows(række & ":" & række).Activate Selection.Delete End If End Sub Private Sub sortering(sidsteRække) ActiveWorkbook.Worksheets("Afsluttede").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Afsluttede").Sort.SortFields.Add Key:=Range( _ "J1:J" & sidsteRække), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Afsluttede").Sort .SetRange Range("A1:J" & sidsteRække) .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub Private Function findRække(ark, område, værdi) Dim c As Object With ActiveWorkbook.Sheets(ark).Range(område) Set c = .Find(værdi, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then findRække = c.Row Else findRække = 0 End If End With End Function
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
