justering av formel - Excel - Forum Excel, VBA, VSTO, Exceltips, Excelhjälp

Sök Forumets startsida

2016-01-24 12:48

Peter

Medlem sedan: 2016-01-01

139 inlägg

justering av formel

Jag har denna kod för att flytta ny info en rad nedåt, raden jag skrivit i blir då tom tills ny info kommer, denna är kopplad till en knapp för att flytta raden ett steg ner.

Min fråga och önskan är: Går det att få raden att flytta ett steg ner bara genom att klicka "ENTER"

i så fall vilken ändring i koden behövs ?

Sub FlyttaRader()
    ActiveSheet.Unprotect
    Range("A4:c" & Range("A65536").End(xlUp).Row).Copy
    Range("A5").PasteSpecial (xlPasteValues)
    Range("A4:c4").ClearContents
    Range("A4").Select
    ActiveSheet.Unprotect
End Sub

--------------------------------------------------------------------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        Cells(Target.Row, 1).Value = Date
    End If
End Sub

2016-01-25 13:21

anonymous

Medlem sedan: 0001-01-01

0 inlägg

Re: justering av formel

Kan du inte satsa på ett kortkommando som du kopplar till makrot?
Utvecklare->makron->"FlyttaRader"->alternativ

annars:
Här är ett förslag på hur du kan fånga Enter
http://stackoverflow.com/questions/9377237/how-can-i-define-enter-keypressed-event-for-a-dynamically-chosen-cell-in-vba-for
Men det är ärligt talat att be om problem att fånga en så pass generell tangenttryckning som ENTER.

En annan variant är ju att bara bevaka förändringar i en cell, t.ex A4 eller C4 och anta att du är färdig när den cellen ändras, typ:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = ActiveSheet.Range("C4").Address Then
ActiveSheet.Unprotect
ActiveSheet.Rows(4).Insert
End If
End Sub

Sida 1 av 1