Re: If..Then statement

From: Don Guillett (donaldb_at_281.com)
Date: 11/16/04 

Date: Tue, 16 Nov 2004 15:22:40 -0600

for each if you must have an end if unless on the same line such as

if so and so then such and such

otherwise you must have

if so and so then
such and such
end if 

-- 
Don Guillett
SalesAid Software
donaldb@281.com
"StephanieH" <StephanieH@discussions.microsoft.com> wrote in message
news:AC140916-7199-456C-93A8-B11C77C6D955@microsoft.com...
>
> In hind-sight, I don't think the problem is in the If.. then statement,
but
> the MultiSelect property of the List Box since only the last file selected
> will open.  I have the MutliSelect property set to 1 but I'm not sure how
> else to tell it to recognize more than one selection.
>
>
> "StephanieH" wrote:
>
> > I seem to be having a problem with a simple If.. Then statement.
> >
> > I have the following:
> >
> > Private Sub OK_Click()
> >
> >
> > If ListBox1.ListIndex = 0 Then
> > ChDir "\\Fl-aejf-fs1\Data\Data\RECOVERY\EXLDATA\Loan Recovery
MIS\Chargeoff
> > Trends"
> >     Workbooks.Open Filename:= _
> >         "\\Fl-aejf-fs1\Data\Data\RECOVERY\EXLDATA\Loan Recovery
> > MIS\Chargeoff Trends\ADU Chargeoffs.xls"
> >
> >
> > If ListBox1.ListIndex = 1 Then
> > ChDir "\\Fl-aejf-fs1\Data\Data\RECOVERY\EXLDATA\Loan Recovery
MIS\Chargeoff
> > Trends"
> >     Workbooks.Open Filename:= _
> >         "\\Fl-aejf-fs1\Data\Data\RECOVERY\EXLDATA\Loan Recovery
> > MIS\Chargeoff Trends\Agency Chargeoffs.xls"
> >
> >
> >
> >
> > If ListBox1.ListIndex = 2 Then
> > ChDir "\\Fl-aejf-fs1\Data\Data\RECOVERY\EXLDATA\Loan Recovery
MIS\Chargeoff
> > Trends"
> >     Workbooks.Open Filename:= _
> >         "\\Fl-aejf-fs1\Data\Data\RECOVERY\EXLDATA\Loan Recovery
> > MIS\Chargeoff Trends\Attorney Chargeoffs.xls"
> >
> >
> >
> > If ListBox1.ListIndex = 3 Then
> > ChDir "\\Fl-aejf-fs1\Data\Data\RECOVERY\EXLDATA\Loan Recovery
MIS\Chargeoff
> > Trends"
> >     Workbooks.Open Filename:= _
> >         "\\Fl-aejf-fs1\Data\Data\RECOVERY\EXLDATA\Loan Recovery
> > MIS\Chargeoff Trends\Deceased Chargeoffs.xls"
> >
> >
> >
> >
> > If ListBox1.ListIndex = 4 Then
> > ChDir "\\Fl-aejf-fs1\Data\Data\RECOVERY\EXLDATA\Loan Recovery
MIS\Chargeoff
> > Trends"
> >     Workbooks.Open Filename:= _
> >         "\\Fl-aejf-fs1\Data\Data\RECOVERY\EXLDATA\Loan Recovery
> > MIS\Chargeoff Trends\Internal Chargeoffs.xls"
> >
> >
> >
> >
> > If ListBox1.ListIndex = 5 Then
> > ChDir "\\Fl-aejf-fs1\Data\Data\RECOVERY\EXLDATA\Loan Recovery
MIS\Chargeoff
> > Trends"
> >     Workbooks.Open Filename:= _
> >         "\\Fl-aejf-fs1\Data\Data\RECOVERY\EXLDATA\Loan Recovery
> > MIS\Chargeoff Trends\Large Balance Chargeoffs.xls"
> >
> > Unload UserForm1
> >
> > End Sub
> >
> > I'm getting the message "Block If without End if".  I've tried adding
"End
> > if" between "Unload UserForm1" and End Sub, but that's not working.
It's a
> > multiselect ListBox so if I add End If between the ListIndexes it only
opens
> > the last file selected.
> >
> > Help...

Relevant Pages

  • Re: If..Then statement
    ... Workbooks.Open Filename:= _ ...
    (microsoft.public.excel.misc)
  • Re: block of code doesnt get executed
    ... Check to see if chdir() succeeded: ... $filename has not been used until now, ... A carat in a regex means the beginning of a string. ... [snip rest of code] ...
    (comp.lang.perl.misc)
  • Re: Email Attachment Problem
    ... I created another filename string, so I can use it in the subject ... ChDir and set the default to the zipped files directory. ... >> Dim strDate As String, DefPath As String, strbody As String ...
    (microsoft.public.excel.programming)
  • Re: Prompt for filename in excel macro VBA
    ... I'm setting up a basic macro to copy data from one spreadsheet to the ... prompt to enter the filename? ... ' UpdateCurrentWeek Macro ...
    (microsoft.public.excel.programming)
  • If..Then statement
    ... Private Sub OK_Click ...
    (microsoft.public.excel.misc)