If Sheets("Worksheet").Range("A3").value = "" Then
ActiveWorkbook.Save
ActiveWorkbook.Close
Else
Workbooks.Open Filename:="W:\. . .
If this doesn't help, it's time to post your current code.
questor wrote:
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?
--
Dave Peterson