CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

hawkpapa Juniormester

20. marts 2012 - 16:44 Der er 18 kommentarer og
1 løsning

Regne en beholdning ud

Hej
Jeg har et ark hvor jeg har kolonnerne A B C D E F.
I kolonne E har jeg lagerbeholdning og i kolonne D har leveret. Det der skal ske er at når jeg leverer (Kolonne D) eks 2 stk trækker den det fra lagerbeh,(Kolonne E) Problemet er at når jeg trykker på eks. enter skal den tømme Kolonne D, men stadig beholde den nye lagerbeh. Så jeg kan trække et nyt tal igen med den nye lagerbeh.
Det må gerne laves med makroer.
På forhånd tak for hjælpen.

Synes godt om

h_thunbo Nybegynder

20. marts 2012 - 16:56 #1

Mener du når du laver en ny linje?

Synes godt om

hawkpapa Juniormester

20. marts 2012 - 17:06 #2

Nej, vi har måske 50 rækker med forskellige varer, så for at kunne se den øjeblikkelige lagerbeholdning, skal den trække fra Kolonne E lige så snart man er færdig med at taste eks 10 numre ind. Dvs at når man har tastet færdigtog eks tastet enter, så passer den nye lagerbeholdning og Kolonne D skal være tom, så vi kan trække fra lageret igen.

Synes godt om

store-morten Ekspert

20. marts 2012 - 18:46 #3

Måske:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("D1:D100")) Is Nothing Then
Target.Offset(0, 1) = Target.Offset(0, 1) - Target
Target.Clear
End If
End Sub

Synes godt om

hawkpapa Juniormester

20. marts 2012 - 20:26 #4

Det er tæt på, men det arter sig ikke helt som det skal. på nogle rækker hvor der kun er et ciffer går den i minus det tal man skriver. Må jeg evt sende dig arket ??

Synes godt om

store-morten Ekspert

20. marts 2012 - 20:29 #5

Jep

Synes godt om

hawkpapa Juniormester

20. marts 2012 - 20:32 #6

Det kommer nu

Synes godt om

store-morten Ekspert

20. marts 2012 - 20:39 #7

Modtaget

Synes godt om

store-morten Ekspert

20. marts 2012 - 20:58 #8

Du her en formel i kolonne E
der gør at første gang trækkes der fra 2 gange

Synes godt om

hawkpapa Juniormester

20. marts 2012 - 21:09 #9

Nå,det vidste jeg ikke. Kan den ikke bare slettes så det hele kører på makro ?
Det skal bare være sådan at når man trækker varerne og er færdig trykker man enter og så er det trukket fra og kolonnen er ryddet, hvis du forstår

Synes godt om

store-morten Ekspert

20. marts 2012 - 21:18 #10

Jo, hvis ikke kolonne C "Modtaget D." skal kunne opdateres?

[Div]Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Sidste = Range("A65536").End(xlUp).Row
If Not Intersect(Target, Range("D5:D" & Sidste)) Is Nothing Then
Target.Offset(0, 1) = Target.Offset(0, 1) - Target
Target.Clear
End If
End Sub[/div]

Indsættes på Ark1
Kopier kolonne D og "indsæt" --> "Værdier"

Synes godt om

store-morten Ekspert

20. marts 2012 - 21:19 #11

Jo, hvis ikke kolonne C "Modtaget D." skal kunne opdateres?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Sidste = Range("A65536").End(xlUp).Row
If Not Intersect(Target, Range("D5:D" & Sidste)) Is Nothing Then
Target.Offset(0, 1) = Target.Offset(0, 1) - Target
Target.Clear
End If
End Sub

Indsættes på Ark1
Kopier kolonne D og "indsæt" --> "Værdier"

Synes godt om

hawkpapa Juniormester

20. marts 2012 - 21:37 #12

Det ser ud til at virke, men kan det lade sig gøre ar den først rydder cellerne når man trykker enter, for ellers kan man ikke se hvor langt man er kommet

Synes godt om

hawkpapa Juniormester

20. marts 2012 - 21:39 #13

Det kan være vi fjerner kolonne C

Synes godt om

store-morten Ekspert

20. marts 2012 - 21:58 #14

Sub Opdater()
Sidste = Range("A65536").End(xlUp).Row
For Each c In Range("D5:D" & Sidste).Cells
c.Offset(0, 1) = c.Offset(0, 1) - c
c.Clear
Next c
End Sub

Køres manuelt
Tildel evt. genvejstast
Lav evt. en Opdater knap

Synes godt om

hawkpapa Juniormester

20. marts 2012 - 22:14 #15

Jeg kan ikke se nogen forskel når de er lagt ind. hvad mener du med at de skal køres manuelt. Jeg har prøvet med begge #11 og #14 lagt ind, men det ser ud til at det er det samme. Jeg stopper for i dag skal op kl 04.30.
Igen tak for hjælpen,
Jeg vender tilbage i morgen, når vi har afprøvet det.

Synes godt om

store-morten Ekspert

20. marts 2012 - 22:19 #16

Sender Mail retur lidt senere.
Sov godt ;-)

Synes godt om

hawkpapa Juniormester

22. marts 2012 - 21:54 #17

Hej Store-morten
Tak for hjælpen den anden dag, og særlig tak for mailen med arket med opdateringsknappen, den sad lige i øjet, det var lige hvad vi skulle bruge. 1000 tak.
Smid lige et svar så du kan få dine velfortjente point.

Synes godt om

store-morten Ekspert

23. marts 2012 - 07:22 #18

Velbekomme

Synes godt om

store-morten Ekspert

25. marts 2012 - 15:19 #19

http://www.youtube.com/watch?v=s26DGiuvXBo

Synes godt om

Ny bruger Nybegynder

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Identificér og hent del af tekststreng Af TheLibrarian i Excel	1	I går 16:49	I går 21:00
Ændre nuller til ovenstående tekst Af boro23 i Excel	4	20/11/202410:44	20/11/202412:08
HVIS med datoer Af HHA i Excel	6	20/11/202408:31	20/11/202412:51
Numerisk liste Af AND i Excel	8	19/11/202414:05	19/11/202423:31
Ændre nuller til ovenstående tal Af boro23 i Excel	3	19/11/202409:39	19/11/202411:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS