Posts by johnske

Re: Dimming Range Causes Lower Case range

with a backup, try this ...
Save-as filetype Webpage
Close the file
Open the html file
Save-as normal Excel workbook.

Re: Range Erroneously Auto-corrected To "range"

Dim rLastSupp As range 
Set rLastSupp = range(theRange)

Re: Self Destruct Workbook After Not Logging In Within 30 Days

Quote from Karebac

I did some searching on the topic of compiling Excel spreadsheets. I came across this

KDCALC

I searched this ozgrid.com forum on KDCALC, but found no mention of it.

It does not seem to be able to compile VBA code, although it mentions something about porting VBA to vb.net. It does sound like a way to develop a spreadsheet that one might completely control.

Display More

Dunno if it's what you're after, but you could try Orlandos Excel to Exe (it's free)

Re: File Disappears

Also look at Window > Unhide... on your worksheet menu toolbar.

Re: Is there a way to show more tabs?

Sub ActivateSheet()
    On Error GoTo PopUp    '< error = not enough sheets for 'MoreSheets'
    CommandBars("Workbook Tabs").Controls("More sheets...").Execute
    Exit Sub
PopUp:
    CommandBars("Workbook Tabs").ShowPopUp
End Sub

Re: After Printing, the Macro Works Very Slow

Quote from yoav_b

Hello again,
If these are two diffrerent forums, I wasn't cross posting my quastion...
so I don't understand...

cross posting refers to posting the same question ANYwhere else on the internet.

Helpers on various forums do so voluntarily so please don't waste their time by posting a question that may already have been answered on another forum by the time they get around to answering it.

Where a particular forums rules permit cross-posting, the least you can do is inform them that it has been cross-posted and give a link to it so they can check whether or not you already have a solution before they respond. (If you don't, helpers that visit numerous sites will pick up on it and report it - this is sufficient to get you banned from some forums) : D

Re: insert xl worksheet into body of an email.

The problem is that you've declared myshape As Shape and then you have this line of code below that

myshapes.delete

myshapes is an undeclared variable - remove the last "s" and it should work...

HTH

Re: insert xl worksheet into body of an email.

Quote from jburdick

I used the following code to send an active worksheet as an attachment.
[code]
Sub EmailForm()
Columns("A:K").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SendMail Recipients:="[email protected]", _
Subject:="workbook"
ActiveWorkbook.Close SaveChanges:=False
End Sub
[code]
Everything works fine. The active sheet in the attachment actually pastes as an object that can't be edited. I was wondering if anybody had some code that would insert the object into the body of the email as well. Can the body of the email be specified to a certain range of cells?

Display More

Have a look here - Emails text/data portion only and requires Outlook (other examples on the site)

or here - Emails everything and uses default emailer (other examples on the site)

To send part of a sheet you could perhaps create a temporary sheet and paste the range you want to send, mail it, then delete the temp sheet

Re: Expiring workbooks

Thanks, just passing through

Re: Expiring workbooks

Quote from nic-del

in the code you are using, replace

Code

With ActiveWorkbook 
                With .ActiveSheet 
                    .Paste 
                    .Name = SheetName 
                    [A1].Select 
                End With

with...

Code

With ActiveWorkbook 
                With .ActiveSheet 
                    .PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= False, Transpose:=False
                    .Name = SheetName 
                    [A1].Select 
                End With

that should do it...

Display More

Sorry, that wont work - to get rid of the formulas replace the first bit of the code given above with...

With .ActiveSheet
                              .Paste
                              With Cells
                                    .Copy
                                    .PasteSpecial Paste:=xlPasteValues
                              End With
                              .Name = SheetName
                              [A1].Select
                        End With

HTH,
John