..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

Zmanjševanje zaloge artiklov

Pomoč pri delu z MS Excelom

Zmanjševanje zaloge artiklov

OdgovorNapisal/-a direndaj » So sep 15, 2007 11:26 am

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.
direndaj
 
Prispevkov: 43
Pridružen: Po sep 19, 2005 8:52 am
Kraj: Ljubljana



Matjazev.NET
 

OdgovorNapisal/-a kljuka13 » So sep 15, 2007 1:18 pm

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.
Slika
Slika
Slika
kljuka13
 
Prispevkov: 257
Pridružen: Po sep 10, 2007 4:29 pm
Kraj: Maribor

OdgovorNapisal/-a direndaj » So sep 15, 2007 7:35 pm

Lepo prosim, pa še enkrat hvala.
direndaj
 
Prispevkov: 43
Pridružen: Po sep 19, 2005 8:52 am
Kraj: Ljubljana

OdgovorNapisal/-a kljuka13 » So sep 15, 2007 9:09 pm

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"
Slika
Slika
Slika
kljuka13
 
Prispevkov: 257
Pridružen: Po sep 10, 2007 4:29 pm
Kraj: Maribor


Vrni se na Excel

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 2 gostov

cron