Hej Jeg har en userform hvor man trykker på forskellige knapper, og de data bliver noteret i et Ark. Jeg bruger denne formel(se ned)på hver knap for at gemme data, og den ruller ned uden problemer. Men kunne godt bruge en fortryd knap, så sidste indsatte data bliver slettet.
Sheets("data").Select Range("A5").Select If Range("A5").Value = "" Then Range("A5").Activate Else Range("A5").CurrentRegion.Select ActiveCell.Offset(Selection.Rows.Count, 0).Activate End If
With ActiveCell .Value = "Gate 1" .Offset(0, 1).Value = Format(Now, "dd-mmm-yy") .Offset(0, 2).Value = Format(Now, "HH:MM") .Offset(0, 3).Value = Me.medarbejder.Text End With
Så vil jeg mene at der skal være en kode i retning af nedenstående tilknyttet til "Fortryd - knappen"
Sub Fortryd()
'Fjerner opdateringen af skærmbillederne mens makroen kører Application.ScreenUpdating = False
'Vælger det ark hvor dataene ligger Sheets("Arket med data").Select
'Vælger celle(A1) Cells(1, 1).Select
'Finder den nederste række Selection.End(xlDown).Select
'Sletter den nederste række ActiveCell.EntireRow.Delete
'Skifter tilbage til det ark hvor du kom fra Sheets("Det ark hvor brugeren skal stå").Select
End Sub
Ved tryk på denne knap vil makroen så åbne det ark hvor alle dataene ligger, gå til nederste række og slette denne og derefter gå til det ark du ønsker at brugeren skal se.
Jeg tillod med at lægge kommandoen ind så skærmen ikke opdateres når makroen køres så brugeren ikke ser arket med alle dataene, men den kan du jo bare fjerne hvis du ikke mener den er nødvendig.
Har ferie, men glæder mig til at prøve den. Skrives ved.
Synes godt om
Ny brugerNybegynder
Din løsning...
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.
