How can I pass variables betweet two Subs in Excel VBA? -


i know how pass variables between 2 subs when calling sub running action within sub containing variables set up, want call variable setup sub within routine macro can not correct place declare variables work. want have variable set separate called other subs. code below not work 2 subs

sub x_variables(s1, s2, s3, rng1, rng2, rng3) '  ' x - defined cell names  - anflighttext , auflighttext , abflighttext  dim s1   worksheet dim s2   worksheet dim s3   worksheet dim rng1  range dim rng2  range dim rng3  range  set s1 = sheets("5_angebot")        ' worksheet set s2 = sheets("5_auftragsb")      ' worksheet set s3 = sheets("5_abschluss")      ' worksheet set rng1 = s1.range("b15")          ' end on cell set rng2 = s2.range("b15")          ' end on cell set rng3 = s3.range("b15")          ' end on cell  end sub

called by

sub x_offer_hide_flight_text() ' ' ***** hide flight text  *****  ' x - defined cell names  - anflighttext , auflighttext , abflighttext ' x (s1, s2, s3, rng1, rng2, rng3)   '  ***** set veriables *****  call x_variables  ' *****  ' hide rows application.screenupdating = false  ' not see screen updating  s1.select range("anflighttext").select        ' x selection.entirerow.hidden = true rng1.select  s2.select range("auflighttext").select        ' x selection.entirerow.hidden = true rng2.select  s3.select range("abflighttext").select        ' x selection.entirerow.hidden = true rng3.select  s1.select  application.screenupdating = true  ' see screen updating  end sub

you have declare variables global, outside of sub.

public s1   worksheet public s2   worksheet public s3   worksheet public rng1  range public rng2  range public rng3  range  sub x_variables() '  ' x - defined cell names  - anflighttext , auflighttext , abflighttext  set s1 = sheets("5_angebot")        ' worksheet set s2 = sheets("5_auftragsb")      ' worksheet set s3 = sheets("5_abschluss")      ' worksheet set rng1 = s1.range("b15")          ' end on cell set rng2 = s2.range("b15")          ' end on cell set rng3 = s3.range("b15")          ' end on cell  end sub

Comments

Post a Comment

Popular posts from this blog

jquery - How do you format the date used in the popover widget title of FullCalendar? -

Image
in fullcalendar, how format date used in popover widget title when clicking '+n more'? code: <div class="fc-popover fc-more-popover"> <div class="fc-header fc-widget-header"> <span class="fc-close fc-icon fc-icon-x"></span> <span class="fc-title">tuesday, april 7</span> ... </div> ... </div> you use daypopoverformat that. determines date format of title of popover created eventlimitclick option. must date formatting string. default value "dddd, mmmm d" english , "ll" other languages.
Read more

Bubble Sort Manually a Linked List in Java -

Image
this first question here. trying manually sort linked list of integers in java , can not figure out wrong code. suggestions? don't error, still have output unordered. tried few different ways, nothing worked. appreciate if can me that. public class node { int data; node nextnode; public node(int data) { this.data = data; this.nextnode = null; } public int getdata() { return this.data; } } // node class public class datalinkedlist implements datainterface { private node head; private int size; public datalinkedlist(){ this.head = null; this.size = 0; } public void add(int data) { node node = new node(data); if (head == null) { head = node; } else { node currentnode = head; while(currentnode.nextnode != null) { currentnode = currentnode.nextnode; } currentnode.nextnode = node; ...
Read more

asp.net mvc - SSO between MVCForum and Umbraco7 -

i need integrate sso between mvcforum (forum of company) , umbraco7 (manages cms company). however struggling shared authentication work. tried several ways suggested on other threads still not running expected. here did: 1. in mvcforum (forum.mywebsite.com) 1.1. machine key in web.xml: <machinekey validationkey="the same key umbraco7" decryptionkey="the same key umbraco7" validation="sha1" decryption="aes" /> 1.2. authenticate forms in web.xml <forms name="my-sso-auth" protection="all" path="/" timeout="43200" domain="forum.mywebsite.com" loginurl="/members/logon" enablecrossappredirects="true" /> 2. in umbraco7 (news.mywebsite.com) 2.1. machine key in web.xml: <machinekey validationkey="the same key mvcforum" decryptionkey="the same key mvcforum" validation="sha1" decryption="aes" /> 2.2. a...
Read more