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.
Zmanjševanje zaloge artiklov
Pozdravljeni!
Prilagam vam kodo. Če želite vam jo lahko napišem tudi kot funkcijo.
P.S. Koda je napisana v osnovnem stilu, mogoče gre tudi krajše vendar neznam. (Ustrezno zamenjajte tudi liste!)
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
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]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]
Pozdravljeni!
Prehitro sem rekel . Funkcija mi ni uspela . Zato je najbolje, da v okno Immediate vpišete
Prehitro sem rekel . 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]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]