<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=us-ascii"><meta name=Generator content="Microsoft Word 14 (filtered medium)"><style><!--
/* Font Definitions */
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-fareast-language:EN-US;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.Stylwiadomocie-mail17
{mso-style-type:personal-compose;
font-family:"Calibri","sans-serif";
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;
font-family:"Calibri","sans-serif";
mso-fareast-language:EN-US;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:70.85pt 70.85pt 70.85pt 70.85pt;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></head><body lang=PL link=blue vlink=purple><div class=WordSection1><p class=MsoNormal>Dear Users,<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><span lang=EN-US>I use excel files in my project as schedule. So I copy macro ‘TRNSYS’ from example file.<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>Each of my excel files have about 14 inputs and 14 outputs, so I change marco ‘TRNSYS’ this way:<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US>Sub TRNSYS(Optional Input1 As Variant, _<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> Optional Input2 As Variant, _<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> Optional Input3 As Variant, _<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> Optional Input4 As Variant, _<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> Optional Input5 As Variant, _<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> Optional Input6 As Variant, _<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> Optional Input7 As Variant, _<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> Optional Input8 As Variant, _<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> Optional Input9 As Variant, _<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> Optional Input10 As Variant, _<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> Optional Input11 As Variant, _<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> Optional Input12 As Variant, _<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> Optional Input13 As Variant, _<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> Optional Input14 As Variant, _<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> Optional Input15 As Variant)<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> With Names<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> If Not IsMissing(Input1) Then: .Item("Inp1").RefersToRange = Input1: Else: GoTo GoOn<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> If Not IsMissing(Input2) Then: .Item("Inp2").RefersToRange = Input2: Else: GoTo GoOn<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> If Not IsMissing(Input3) Then: .Item("Inp3").RefersToRange = Input3: Else: GoTo GoOn<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> If Not IsMissing(Input4) Then: .Item("Inp4").RefersToRange = Input4: Else: GoTo GoOn<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> If Not IsMissing(Input5) Then: .Item("Inp5").RefersToRange = Input5: Else: GoTo GoOn<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> If Not IsMissing(Input6) Then: .Item("Inp6").RefersToRange = Input6: Else: GoTo GoOn<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> If Not IsMissing(Input7) Then: .Item("Inp7").RefersToRange = Input7: Else: GoTo GoOn<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> If Not IsMissing(Input8) Then: .Item("Inp8").RefersToRange = Input8: Else: GoTo GoOn<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> If Not IsMissing(Input9) Then: .Item("Inp9").RefersToRange = Input9: Else: GoTo GoOn<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> If Not IsMissing(Input10) Then: .Item("Inp10").RefersToRange = Input10: Else: GoTo GoOn<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> If Not IsMissing(Input11) Then: .Item("Inp11").RefersToRange = Input11: Else: GoTo GoOn<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> If Not IsMissing(Input12) Then: .Item("Inp12").RefersToRange = Input12: Else: GoTo GoOn<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> If Not IsMissing(Input13) Then: .Item("Inp13").RefersToRange = Input13: Else: GoTo GoOn<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> If Not IsMissing(Input14) Then: .Item("Inp14").RefersToRange = Input14: Else: GoTo GoOn<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> If Not IsMissing(Input15) Then: .Item("Inp15").RefersToRange = Input15: Else: GoTo GoOn<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US> End With<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>GoOn:<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>End Sub<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US>The problem is that TRNSYS use files if I set 8 or less Inputs (in type 62), otherwise it take only Outputs without substitute Inputs…<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US>Dou you have some idea what is the reason?<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>Maybe I have wrong macro, but I am new in Visual Basic…<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US>I enclose pone of my excel files.<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>--</span><span lang=EN-US style='mso-fareast-language:PL'>----------------------------------------------<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='mso-fareast-language:PL'>Karol Bandurski </span><span lang=EN-US style='mso-fareast-language:PL'>MSc.</span><span lang=EN-US style='mso-fareast-language:PL'><o:p></o:p></span></p><p class=MsoNormal><span style='background:white;mso-fareast-language:PL'><a href="http://www.ee.put.poznan.pl/" target="_top"><span lang=EN-US style='color:windowtext;text-decoration:none'>Institute of Environmental Engineering</span></a></span><span lang=EN-US style='background:white;mso-fareast-language:PL'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='background:white;mso-fareast-language:PL'>Poznan University of Technology<o:p></o:p></span></p><p class=MsoNormal><span style='background:white;mso-fareast-language:PL'><a href="http://www.ee.put.poznan.pl/"><span lang=EN-US style='color:blue'>www.ee.put.poznan.pl</span></a></span><span lang=EN-US style='background:white;mso-fareast-language:PL'><o:p></o:p></span></p><p class=MsoNormal><span style='background:white;mso-fareast-language:PL'><a href="http://www.put.poznan.pl/"><span style='color:blue'>www.put.poznan.pl</span></a><o:p></o:p></span></p><p class=MsoNormal><o:p> </o:p></p></div></body></html>