SHARE
TWEET

Untitled

a guest Feb 18th, 2020 64 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. If Range("postide_vahed_vordselt") = "Jah" Then
  2.   Set postide_asukohad = Range("postide_asukohad")
  3.   Sheet8.Range("A31:A40").EntireRow.Hidden = True 'peidab 8 rida piirete valimiseks
  4.  L0 = Range("algus") 'esimese posti asukoht
  5.  Tee_Locvektor L0, L_kasipuu, LV(), n
  6.   Else
  7.   Sheet8.Range("A31:A40").EntireRow.Hidden = False 'toob 8 rida peidust välja piirete valimiseks
  8.  ReDim LV(1 To n)
  9.   Set postide_asukohad = Worksheets("Spetsifikatsioon").Range("lammas")
  10.   Loe_Tulp LV, n, postide_asukohad 'oleks tarvis, et ta loeks esimeselt lehelt (spetsifikatsioon) väärtused sisse ning kirjutaks ka lehel calculations tabelisse
  11.  L0 = LV(1)
  12.   Kir_Tulp LV, 1, n, Worksheets("Calculations").Range("postide_asukohad")
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top