|
Našao sam jedan makro koji bi mi dobro došao za ono što radim, pa ako može neko da ga prilagodi mom dokumentu pošto ja to ne umem. Dakle ovo je makro koji se koristi za dugme, kada se klikne na njega on menja stanje u magacinu, evo koda: Sub AzurLager(c As String, l As Double)
Dim Stanje As Range
Set Stanje = ThisWorkbook.Sheets("Lager").Range("Artikli").Columns("B").Find(c, LookIn:=xlValues).Offset(ColumnOffset:=3).Resize(1, 1)
Stanje.Value = Stanje.Value - l
End Sub
Sub Test()
rEnd = ActiveSheet.Range("A65536").End(xlUp).Row
For r = 5 To rEnd
AzurLager ActiveSheet.Cells(r, 3).Text, ActiveSheet.Cells(r, 5).Value
Next r
End Sub
Imam dve Radne sveske u Excel-u jedna se zove Unos_za_ponudu, a druga Lager. U Radnoj svesci Unos_za_ponudu imam jedan List (Sheet) koji se zove Unos_podataka i nekoliko kolona, ali navešću samo najpotrebnije da se makro edituje, to su kolona A koja se zove Artikal i u kojoj se unose jedinstvene šifre artikala, a koristi polja od A14 do A33 uključujući i njih i kolona G koja se zove Količina i počinje od G14 do G33 uključujući i ta dva polja.
U Radnoj svesci Lager imam List (Sheet) koji se zove Lager i takođedve bitne kolone to su kolona A koja se zove Artikal i koja počinje od A2 uključujući i njega, pa na dalje i kolona F koja se zove Stanje i počinje od F2 uključujući i njega, pa nadalje. To su čini mi se svi potrebni podatci, a šta meni treba...
Kada u Radnu svesku koja se zove Unos_za_ponudu unesen šifru proizvoda u neko polje u koloni A (od A14 do A33) i u kolonu G (od G14 do G33) unesem količinu npr 5 komada (bez ovog komada, samo broj se unosi u kolonu G) ja kliknem na dugme koje bi imalo ovaj makro da mi pronađe proizvod sa unetom šifrom i smanji za toliko (u ovom slučaju za 5) Stanje u magacinu koje se nalazi u Radnoj svesci koja se zove Lager i nalazi se u koloni F.
Nadam se da sam uspeo da vam objasnim. 
Dopuna: 01 Okt 2008 23:04
Čisto da podsetim na moje pitanje, pa ako neko može da pomogne..... 
|
