Zmanjševanje zaloge artiklov

Pomoč pri delu z MS Excelom
Odgovori
direndaj
Prispevkov: 47
Pridružen: Po Sep 19, 2005 8:52 am
Kraj: Ljubljana

Zmanjševanje zaloge artiklov

Odgovor Napisal/-a direndaj »

Imam liste od 1 do 30, na vseh imam stolpec M ( v katerem je za vsak dan nova vrstica ), se pravi želel bi, da mi ko v ta stolpec vpišem šifro artikla ne glede v katero vrstico, na drugem listu "zaloga" ( na katerem so zbrane vse šifre artiklov v stolpcu A in nazivi artiklov v stolpcu B ) najde ta artikel in od zaloge ki je ročno dodana v stolpec C, odšteje -1.

Hvala za pomoč in lep pozdrav. Roman.
kljuka13
Prispevkov: 257
Pridružen: Po Sep 10, 2007 4:29 pm
Kraj: Maribor

Odgovor Napisal/-a kljuka13 »

Pozdravljeni!

Prilagam vam kodo. Če želite vam jo lahko napišem tudi kot funkcijo.

Koda: Izberi vse

Option Explicit
Sub NajdiIzdelekZaloga()
on error goto err
Dim izdelek As String
Dim šifra
Dim obmocje
Dim i
i = 1
obmocje = ActiveCell.Address
šifra = ActiveCell.Value
Range("iv2").Value = šifra
Range("iv1").FormulaLocal = "=VLOOKUP(IV2;List2!A1:C63999;2)"
'vnesite list na katerem imate zalogo
izdelek = Range("iv1").Value
Sheets("List2").Activate 'list z z zalogo
ponovi:
    If Range("a" & i).Value = šifra Then
    GoTo nxt
    End If
        i = i + 1
    GoTo ponovi
nxt:
Sheets("List2").Activate 'list z zalogo
Range("c" & i).Value = Range("c" & i).Value - 1
Sheets("list1").Activate 'list v katerem vnesete izdelek
Range(obmocje).Value = izdelek
End
err:
msgbox "Niste izbrali celice!"
End Sub
P.S. Koda je napisana v osnovnem stilu, mogoče gre tudi krajše vendar neznam. (Ustrezno zamenjajte tudi liste!)
Zadnjič spremenil kljuka13, dne So Sep 15, 2007 7:36 pm, skupaj popravljeno 1 krat.
[img]http://shrani.si/f/3t/YL/4W2P37B9/office.gif[/img]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]
direndaj
Prispevkov: 47
Pridružen: Po Sep 19, 2005 8:52 am
Kraj: Ljubljana

Odgovor Napisal/-a direndaj »

Lepo prosim, pa še enkrat hvala.
kljuka13
Prispevkov: 257
Pridružen: Po Sep 10, 2007 4:29 pm
Kraj: Maribor

Odgovor Napisal/-a kljuka13 »

Pozdravljeni!

Prehitro sem rekel :cry: . Funkcija mi ni uspela :( . Zato je najbolje, da v okno Immediate vpišete

Koda: Izberi vse

Application.OnKey "{F6}","NajdiIzdelekZaloga"
[img]http://shrani.si/f/3t/YL/4W2P37B9/office.gif[/img]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]
Odgovori