vb i excel call sub izgube se vrijednosti varijabli

vb i excel call sub izgube se vrijednosti varijabli

offline
  • Avko  Male
  • Novi MyCity građanin
  • Pridružio: 21 Apr 2014
  • Poruke: 7

u excelu napisem kod u vb, izgleda ovako:

sub Ime1 ()
dim trazi as string
dim nasao as string
nasao = Application.WorksheetFunction.VLookup(trazi, Range("A2:K700"), 2, False)
end sub

i to radi no posto je program velik i cesto koristim u programu pretragu tablice excel htio sam liniju :
nasao = Application.WorksheetFunction.VLookup(trazi, Range("A2:K700"), 2, False)
staviti u sub rutinu i pozivati iz glavne sub rutine svaki puta kada mi zatreba, pa bi to trebalo izgledati ovako:

sub Ime1 ()
dim trazi as string
dim nasao as string
call sub Ime2
end sub


sub Ime2()
nasao = Application.WorksheetFunction.VLookup(trazi, Range("A2:K700"), 2, False)
end sub

no iz nekoga razloga to ne radi. Ono prvo radi. Pa ako netko moze pomoci bio bi zahvalan.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

Subrutina se ne poziva sa call sub vec sa call ime subrutine, u ovom slucaju call ime2

Primer:
Public trazi As String
Public nasao As String

Public Sub Ime1()
Dim vrednost As String
trazi = "vrednost"
Call Ime2
vrednost = MsgBox("Nasao", vbApplicationModal, nasao)
End Sub

Public Sub Ime2()
nasao = Application.WorksheetFunction.VLookup(trazi, Range("A2:C3"), 2, False)
End Sub



offline
  • Avko  Male
  • Novi MyCity građanin
  • Pridružio: 21 Apr 2014
  • Poruke: 7

hvala na odgovoru

Ko je trenutno na forumu
 

Ukupno su 573 korisnika na forumu :: 29 registrovanih, 4 sakrivenih i 540 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3028 - dana 22 Nov 2019 07:47

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Sale, A.R.Chafee.Jr., amaterSRB, Apok, BSD2, celeron, cicus91, cikadeda, duskovuk63, goxin, ikan, ILGromovnik, Kubovac, Marko Marković2, MB120mm, MORAVA1, pavle_pzs2, Recce, renoje2, SAA fan, SKORPION2, stegonosa, suton2, Toni, Vlad000, vlvl, Vojvoda S., zixo, zlaya011