Avaleht
uus teema   vasta Tarkvara »  Tarkvara »  Exeli valemi abi paluks märgi kõik teemad loetuks
märgi mitteloetuks
vaata eelmist teemat :: vaata järgmist teemat
Hinnavaatlus :: Foorum :: Uudised :: Ärifoorumid :: HV F1 ennustusvõistlus :: Pangalink :: Telekavad :: HV toote otsing
autor
sõnum Saada viide sõbrale.  :: Teata moderaatorile teata moderaatorile
otsing:  
strohher
HV veteran
strohher

liitunud: 15.02.2004
sõnum 29.10.2014 16:02:43 Exeli valemi abi paluks vasta tsitaadiga
Väike mure on.
Tabelis on erinevad sheedid Ladu ja Kulu.
Kulu sheet:


Valemiga =VLOOKUP(B18;Ladu!B:C;2;FALSE) leian siit vastava eseme.


Nüüd oleks vaja, et kui sisestan ka koguse, siis võtaks see ka vastava kulu laost maha.

Seletasin ehk arusaadavalt.
_________________
Tunguusia tundraahv
Kommentaarid: 33 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 30
tagasi üles
vaata kasutaja infot saada privaatsõnum
alfreedo
HV vaatleja

liitunud: 20.06.2010
sõnum 30.10.2014 01:14:48 vasta tsitaadiga
Midagi kiirelt aga kontrollimata valedele sisestustele.
Pane see Sheet("Ladu") lehe moodlisse.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim targ As Range, sheet As Worksheet, r As Range
Dim c As Range, cc As Range

Set targ = Intersect(Target, Range("E:E"))
 
    If Target.Column <> 5 Then End 'Kindel column
      If Target.Offset(0, -3) = "" Then MsgBox "Koodi lahter  " & Target.Offset(0, -3).Address & "  tühi": End

        Set sheet = Worksheets("Ladu")
        Set r = sheet.Cells
        Set c = r.Find(What:=targ.Offset(0, -3), _
              After:=sheet.Range("b2"), _
              LookIn:=xlValues, _
              LookAt:=xlWhole, _
              SearchOrder:=xlByRows, _
              SearchDirection:=xlNext, _
              MatchCase:=False)
         
             If Not c Is Nothing Then
 
                 Set cc = c.Offset(0, 2)

                    If cc > 0 And cc - Target >= 0 Then
                        cc = cc - Target
                    Else
                        MsgBox "Kontrolli laoseisu"
                        Exit Sub
                    End If
   
              Else
                    MsgBox "Selline kood puudub"
           End If

Set targ = Nothing
Set sheet = Nothing
Set r = Nothing
Set c = Nothing
End Sub
   
Kommentaarid: 2 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 2
tagasi üles
vaata kasutaja infot saada privaatsõnum
strohher
HV veteran
strohher

liitunud: 15.02.2004
sõnum 30.10.2014 10:52:15 vasta tsitaadiga
tsitaat:
Pane see Sheet("Ladu") lehe MOODLISSE.


Vabandust, aga see on midagi uut minu jaoks. Ehk seletad lahti icon_rolleyes.gif
_________________
Tunguusia tundraahv
Kommentaarid: 33 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 30
tagasi üles
vaata kasutaja infot saada privaatsõnum
RaPTiLE
Kreisi kasutaja
RaPTiLE

liitunud: 28.01.2006



Autoriseeritud ID-kaardiga
sõnum 30.10.2014 10:56:52 vasta tsitaadiga
Excelis vajutad Alt+F11, siis tuleb VBA lahti, paremalt menüüst valid Module 1 ja kopeerid sinna selle koodi mis siia kirjutati.

http://www.emagenit.com/VBA%20Folder/what_is_a_vba_module.htm
Kommentaarid: 60 loe/lisa Kasutajad arvavad:  :: 0 :: 1 :: 55
tagasi üles
vaata kasutaja infot saada privaatsõnum
strohher
HV veteran
strohher

liitunud: 15.02.2004
sõnum 30.10.2014 11:30:47 vasta tsitaadiga
Tegin nii aga ei miskit. Arvatavasti läks mul midagi valesti thumbs_down.gif
RaPTiLE, kui ma sulle faili saadaks, saaksid sa selle tööle siis?
_________________
Tunguusia tundraahv
Kommentaarid: 33 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 30
tagasi üles
vaata kasutaja infot saada privaatsõnum
alfreedo
HV vaatleja

liitunud: 20.06.2010
sõnum 30.10.2014 20:10:45 vasta tsitaadiga
strohher.

Pane mulle fail Postkasti.
Kommentaarid: 2 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 2
tagasi üles
vaata kasutaja infot saada privaatsõnum
näita postitusi alates eelmisest:   
uus teema   vasta Tarkvara »  Tarkvara »  Exeli valemi abi paluks
[vaata eelmist teemat] [vaata järgmist teemat]
 lisa lemmikuks
näita foorumit:  
 ignoreeri teemat 
sa ei või postitada uusi teemasid siia foorumisse
sa ei või vastata selle foorumi teemadele
sa ei või muuta oma postitusi selles foorumis
sa ei või kustutada oma postitusi selles foorumis
sa ei või vastata küsitlustele selles foorumis
sa ei saa lisada manuseid selles foorumis
sa võid manuseid alla laadida selles foorumis



Hinnavaatlus ei vastuta foorumis tehtud postituste eest.