vb i excel call sub izgube se vrijednosti varijabli

• 1Ovo se svidja korisniku: purke62
  
  Registruj se da bi pohvalio/la poruku!

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

hvala na odgovoru