Avatar billede 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.
Avatar billede h_thunbo Nybegynder
20. marts 2012 - 16:56 #1
Mener du når du laver en ny linje?
Avatar billede 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.
Avatar billede 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
Avatar billede 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 ??
Avatar billede store-morten Ekspert
20. marts 2012 - 20:29 #5
Jep
Avatar billede hawkpapa Juniormester
20. marts 2012 - 20:32 #6
Det kommer nu
Avatar billede store-morten Ekspert
20. marts 2012 - 20:39 #7
Modtaget
Avatar billede 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
Avatar billede 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
Avatar billede 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"
Avatar billede 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"
Avatar billede 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
Avatar billede hawkpapa Juniormester
20. marts 2012 - 21:39 #13
Det kan være vi fjerner kolonne C
Avatar billede 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
Avatar billede 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.
Avatar billede store-morten Ekspert
20. marts 2012 - 22:19 #16
Sender Mail retur lidt senere.
Sov godt ;-)
Avatar billede 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.
Avatar billede store-morten Ekspert
23. marts 2012 - 07:22 #18
Velbekomme
Avatar billede store-morten Ekspert
25. marts 2012 - 15:19 #19
Avatar billede 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.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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