Att flytta en cells värde till en annan cell, utan att klicka på cellen dit cellvärdet ska flyttas.

Anonym

Hej igen!
Nya bekymmer som jag inte förstår!

Jag har redan ett värde i cell L13 exempelvis 5.
I cell Q13 skriver jag kanske ett annat värde exempelvis 9, om den cellen inte är tom (eller noll (0).
Är värdet i cell Q13 större än 0, vill jag föra över värdet i Q13 till värdet som jag redan skrivit in i L13. Alltså byta värdet, så Q13-värdet 9 nu står i L13.

Detta ska kunna utföras även i exempelvis mellan Q15 och L15 etc.

Går detta att utföra?
Jag har prövat med en OM-funktion men får inte till det!

Tacksam för enkla svar till en okunnig nybörjare!

/Lars A.

Låst fråga. Den här frågan har migrerats från Microsoft Support Community. Du kan rösta på om det är till hjälp, men du kan inte lägga till kommentarer eller svar eller följa frågan.

0 kommentarer

Svar godkänt av frågeställaren

Anonym

Kul att detta fungerade för dig. Du kan markera tråden som komplett

Det här svaret är maskinöversatt. Det kan därför innehålla grammatiska fel eller konstiga uttryck.

0 kommentarer

10 ytterligare svar

Anonym

2023-03-16T01:22:00+00:00

Hej MindreVetande!

Du borde nog döpa om dig till MycketVetande!
Det där blev lite för krångligt för mig, så jag gjorde helt enkelt om mitt system så nu behövs inte längre denna funktion.
Nu kan jag se det jag vill se, fast på ett helt annat sätt.

Skulle du se alla min mysko lösningar rent programmeringsmässigt, så skulle du nog aldrig sluta att skratta :-)!
Ett proffs som du skulle nog kunna skriva mitt program med hälften av alla mina koder, där jag fixat mina problem med diverse nödlösningar. Inte elegant men det viktiga är dock att det funkar!
Det blir så, när gammal gubbe aldrig fick datakunskap med bröstmjölken som liten.
Det är "trial and error" som gäller för mig.
Bättre brödlös än rådlös, säger ordspråket!

Jag sparar dock din kod för vem vet, den kanske kommer till användning senare trots att jag idag fattar noll av det?

Ett stort tack till både dig och AnnaThomasH, för era vänliga och tappra försök att hjälpa mig!

/Lars A.
Var det här svaret till hjälp?

0 kommentarer Inga kommentarer

Anonym

Tyvärr översatt maskin-översättningen delar av koden som @ AnnaThomasH postade så det blev nonsens.

Den skall se ut så här:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$Q$13" And Target.Value > 0 Then
        Range("L13").Value = Range("L13").Value + Target.Value
    End If
End Sub

Och du lägger in koden genom att högerklicka på fliknamnet, välja "visa kod" och klistra in koden.

Men VBA kan vara avstängt som default. Då måste du ändra inställningarna här:
https://support.microsoft.com/sv-se/office/ändra-inställningar-för-makrosäkerhet-i-excel-a97c09d2-c082-46b8-b19f-e8621e8fe373

0 kommentarer