View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
questor questor is offline
external usenet poster
 
Posts: 17
Default Starting Auto_Close macro based on an IF statement

I get a VB Compile Error: "Block If without End If"

Since I tried this with A3 being blank, I figured it would end quick (save &
close) w/out running the rest of the macro -- which I want to run if A3 isn't
blank.

I think that's why I stuck the "End If" in there to begin with.

Any ideas on getting around the compile error? You do think I'm on the
right track tho -- basically conditionally running a macro or just closing if
""? Didn't know if I should b on a completely different track or not.

Thanks.

"FSt1" wrote:

hi
you have....
If Sheets("Worksheet") & Range("A3") = "" Then
that should be...
If Sheets("Worksheet").Range("A3") = "" Then

ie replace & with .
also loose the end if after activeworkbook.close
i see nothing else wrong in theory but i haven't tested.
you are on the right track. just a syntax thing.
Regards
FSt1

"questor" wrote:

I'm over my head --
I run an auto_close macro to retrieve and save data collected during a user
session. The macro takes all rows with data, copies them to a folder, then
clears the collection sheet for next session.
If there is NO DATA collected, I want to end the macro right away.
Otherwise, I'm getting an error saying Excel can't move things off the
worksheet because data may be lost . . . to paraphrase I think it's a
runtime error 1004?

Here is what I came up w/, but not sure if it's even close -- it doesn't
work though.

If Sheets("Worksheet") & Range("A3") = "" Then
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
Else
Workbooks.Open Filename:="W:\. . .

Where if A# < "", then I want to run the macro. Any help?