CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
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
http://www.youtube.com/watch?v=s26DGiuvXBo
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

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Formler der blev væk Af Klaus W i Excel 8 17/05/202419:32 I dag 10:47
Få excel til at indsætte værdi i månedsfelter ud fra start og stop dato Af CBH i Excel 6 08/05/202413:16 13/05/202414:31
Dato opslag udfordring igen igen Af Klaus W i Excel 6 08/05/202410:15 08/05/202416:07
Sumfunktion ud fra dato Af scholes i Excel 3 08/05/202408:34 08/05/202413:29
Vise flere ark fra samme workbook Af Nanarsi i Excel 3 07/05/202410:33 09/05/202412:56
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 09:13 Antivirus til en Linux Mint computer? Af Polle i Linux
I går 15:30 signalforstærker til trådløs rutrer tænkes brugt til pc næt pc -og MÅSKE TV 4 m borte eller begge Af Novice-1 i Routere & Switches
I går 11:43 Hvilket styresystem på en gammel Pc ??? Af Jan Post i Andre styresystemer
I går 07:44 Virus advarsler - falske Af jdann i Backup- & Antivirus
17/0519:32 Formler der blev væk Af Klaus W i Excel
White papers
Flere white papers »


Premium
Teaser billede
Her er de nye medlemmer af Statens It-råd: Skal vurdere it-projekter på over 15 millioner kroner
Læs mere »
Antallet af anmeldelser af ulovligt indhold på beskedtjenester stiger: Regeringen skubber ansvaret videre til EU og Belgien
Efter masser af kritik af store prisstigninger: VMware åbner for gratis licenser - ændrer i licens-strukturen
Seks store selskaber med på årets image-liste for første gang: Kæmper alle med lav kendskabsgrad
Se alle »
Computerworld
Teaser billede
Nyopdaget sårbarhed rammer næsten alle VPN'er: Gør dem usikre og nærmest ubrugelige
Læs mere »
Om under en uge går det løs: Pc’en bliver aldrig den samme igen
VPN-test fra virkeligheden: To tjenester som glimrer på hver deres måde
Test: Samsungs nyeste laptop er noget af det tætteste du kommer på en Windows-Macbook
Se alle »
CIO
Teaser billede
Nu begynder den største GDPR-retssag mod dansk myndighed nogensinde: Står over for million-bøde
Læs mere »
Lukker it-systemerne ned i to uger på grund af implementering: Den bedste måde at sikre, at ingen data går tabt
Sådan har Coop sagt farvel til mainframen - sparer et to-cifret millionbeløb årligt på licenser
Hundredevis af selskaber klager over Microsofts licens-policy: Vi er låst fast og bundet
Se alle »
Job & Karriere
Teaser billede
Her er Danmarks fem bedste CIO’er lige nu: Se de fem nominerede til prisen som Årets CIO 2024
Læs mere »
Medarbejderne fik udleveret badetøfler ved indflytningen: Kom med inden for i IBM Danmarks nye topmoderne hovedkontor
Så meget tjener dine kollegaer: Her er alle data fra Computerworlds store it-lønstatistik for 2024
Får du den løn, du fortjener? Få overblikket over hvor meget dine kolleger tjener hver måned
Se alle »
White paper
Teaser billede
Vejen væk fra WAN: Sådan skifter du til en moderne infrastruktur
Læs mere »
Nemmere overblik, styring og omkostningskontrol i dit multicloud-miljø
Cybersikkerhed: Skær antallet af alarmer ned fra tusindvis til blot en håndfuld
Få mere ud af din cloudinfrastruktur og gør op med de konstant stigende omkostninger
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »