Replies

Thank you very much for your offer. Let me see what we can do. Issue is that data populating this report is filled with confidential patient information (we are a hospital). Will see what we can do.

Larry

I’m getting the same error when replacing

ActiveSheet.Name = “Med1S”

with

Sheets(“Med1S”).Activate

This is the larger context of the code. I appreciate your help – any other ideas?

============================

SkipMeas = False

ActiveWorkbook.Worksheets(“Report – Service”).Select

SvcName = ActiveSheet.Range(“rngSNServ”)

Range(“F11”).Select

If ActiveCell.Offset(0, -2).Value > 0 Then

Selection.ShowDetail = True

‘Set names

Sheets(“Med1S”).Activate

TableName = ActiveSheet.ListObjects(1).Name

If IsEmpty(Range(“A2”)) Then BlankCopy = 1 Else BlankCopy = 0

Columns(“AY:AY”).Select

Selection.Cut

Columns(“K:K”).Select

Selection.Insert shift:=xlToRight

Sheets(“Med1S”).ListObjects(TableName).Range.Columns(“G:K”).Select

Edit to remove HTML

 

Thanks – I was not clear in my description. We are just using the statement

ActiveSheet.Name = “Med1S”

to make the sheet “Med1S” active so we can move data to it. I’ll change the syntax and see how it works!

Thanks again!!

EDIT html to text (if using Word to copy, save as .txt before pasting, to avoid that)

This is great – is it possible to display images that are separate .jpg files? I want to create a file with photos of students interviewing with different companies. There are several hundred students and it would be easier (and have a much smaller file) if the final spreadsheet did not contains all the photos.

Thanks.

Larry

Thanks Rory – I was afraid of that!

Larry

Rory,

That’s what I was afraid of – thanks!

Larry

thanks Hans – sorry – could find this when searching. I’ll try to do better next time.

Larry

Thanks Hans (Duh!! I must have created the database in 2003 before the upgrade). Anyway, the attachement type works perfectly. Thank you – thank you – thank you – thank you – thank you – thank you – thank you – thank you – thank you – thank you – thank you – thank you – thank you – thank you – thank you – thank you – thank you – thank you – thank you – thank you – thank you – thank you – thank you – thank you – thank you – thank you – thank you!

Larry

I forgot to mention that you can only create an attachment field in a database in the new .accdb database format.

In a database in .mdb format, you should *not* store images (unless they are small in number and size) – it leads to incredible bloating of the file size.
You should store the path/filename in a text field instead, and use an unbound image control to display the images. See [post=”788517″]Post 788517[/post].

How do you create an attachment field – it’s not one of the standard data types (text, memo, number, date/time, currency, autonumber, yes/no, OLE object, hyperlink) – or is it the hyperlink field pointing to the file?

Thanks.

Larry

Thanks – Outlook 2007 was loaded onto the same PC that ran Outlook 2003 – I’ll check to see if the file is there. Will copying this file allow modifying the macros on the “Add-ins” ribbon?

Larry

Find a PC with Outlook 2003.
Edit the toolbar.
Copy the Outcmd.dat file from the PC with Outlook 2003 to the PC with Outlook 2007.
The file is stored in C:Documents and SettingsApplication DataMicrosoftOutlook (in Windows XP) or C:UsersAppDataRoamingMicrosoftOutlook (in Windows Vista).

What would you want the QAT button to do? A worksheet function is not something you can “run” or “execute” like a macro.

I’d like to fill a cell with a function that I use all the time instead of typing or selecting it.

Thanks.

I will work on the PC – here is another questinon –

What keys should be used to select non-contiguous cells on a Mac?

Thanks.

When I try to select the second set of cells, the first set of cells is no longer selected – is there a configuration problem?

Thanks Hans – this is very helpful. I’ll planning to build the vCal file and then attach. I was looking around on the Microsoft MSN libraries at http://msdn.microsoft.com/en-us/library/aa…office.11).aspx and found this code, but I get an error message (“Object variable or With block variable not set”) when I try to run it. Thanks again! Larry

Original code:

Set myItem = myOlApp.CreateItem(olAppointmentItem)
myItem.MeetingStatus = olMeeting
myItem.Subject = “Strategy Meeting”
myItem.Location = “Conference Room B”
myItem.Start = #9/24/97 1:30:00 PM#
myItem.Duration = 90
Set myRequiredAttendee = myItem.Recipients.Add(“Nate _
Sun”)
myRequiredAttendee.Type = olRequired
Set myOptionalAttendee = myItem.Recipients.Add(“Kevin _
Kennedy”)
myOptionalAttendee.Type = olOptional
Set myResourceAttendee = _
myItem.Recipients.Add(“Conference Room B”)
myResourceAttendee.Type = olResource
myItem.Send

My code:

Dim myOlApp As Object
Dim myItem As Outlook.MeetingItem – **** I’ve tried this with Outlook.AppointmentItem also
Dim myDelegate As Outlook.Recipients
Set myItem = myOlApp.CreateItem(olAppointmentItem)
myItem.MeetingStatus = olMeeting
myItem.Subject = “Strategy Meeting”
myItem.Location = “Conference Room B”
myItem.Start = #9/24/2008 1:30:00 PM#
myItem.Duration = 15

Set myRequiredAttendee = myItem.Recipients.Add(“test@microsoft.com”)
myItem.Send

Thanks Hans!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!