Ever since i added the 3rd worksheet to my workbook, I'm getting a run time error 9, out of script every time i attempt to click on the Auto Liab Only button on Sheet1.  schedules-revised.xlsm

Any help would be greatly appreciated.

Hi,
On the attached spreadsheet I need to pull the row "Total" for each sales Person, from the  " Final Amount" column "I"  to a new sheet.
In the new sheet I need the name to show up with all the middle fields empty( but still showing up)
I tried to do a vlookup but it does not look like the smart way to do it.
I have put in a result tab to show what I need the pulled data to look like.
Thanks
Testing-file-prev-period-data-pull.xlsm

I am using Microsoft Access 2013 (I think) and I use DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml,
"File Name", "C:\Detailed\MyView" & ".xlsx", True,

The workbook page names comes out as "File_Name" I need the space. Thanks for any help.

Graham

Experts...

I had an Access report that worked fine. I was asked to embed a sub report into the main report to include more information. In Access the Report/sub report looks fine, but when I view the report in Print Preview mode, I see a multi-page report where
-the main report header section displays fine, but the remainder of the main report is covered by the subreport on page 1
-in the remaining pages, the subreport is fixed and takes up all the real estate of the page, while the main report scrolls in only the top inch of the page. So
Page 1 = Header and subreport
Page 2 = 1st inch of main report at the top + fixed subreport
Page 3 = 2nd inch of main report at the top + fixed subreport
etc

The parent report can scroll, but only in the top inch that displays the header!

So what am I doing wrong? I know this must have something to do with my subreport being in the Page Footer section of the main report

I am implementing a close button to an excel file that is going to be accessed from a link on our intranet.

Once the user has finished using the file, they can close the file. I also want to check if there are any other Excel files open and if not also close the Application. Current script is:

Sub ExitFile()
    FileCount = Application.Workbooks.Count
    If FileCount = 1 Then
        ActiveWorkbook.Close SaveChanges:=False
    Else
        Application.ActiveWindow.Close
        SendKeys ("%{F4}")
    End If
End Sub

Select all Open in new window

Currently this does not work, it closes the file but does not close the Application. I have put a stop in after the FileCount and it confirms that there is only one file open.

I have tried various statements for closing the application, including SendKeys as above, but it still doesn't work.

Please help; I am sure this is a simple thing but I can't seem to get it this morning.

Thanks
Rob

then ORD-M sheet and ORD_VER need have column J
29046162ordordmGGG4al.xlsm

then ORD sheet  and ORD_VER need have column I
29046156--1-NUM-MG.xlsm

I would like to Find the word {"keyword", "second", "third", "etc"} and highlight in Bold or yellow on all slide of the ppt. In shape, groupitem, table, chart, notespage etc. A below code works only in shape.

Could you please help me to modify the below code to work also in table, smartart, chart, notepage etc..

option Explicit

Sub HighlightKeywords()
Dim sld As Slide
Dim shp As Shape
Dim txtRng As TextRange, rngFound As TextRange
Dim i As Long, n As Long
Dim TargetList

'~~>  Array of terms to search for
TargetList = Array("keyword", "second", "third", "etc")

'~~> Loop through each slide
For Each sld In Application.ActivePresentation.Slides
'~~> Loop through each shape
For Each shp In sld.Shapes
    '~~> Check if it has text
    If shp.HasTextFrame Then
        Set txtRng = shp.TextFrame.TextRange

        For i = 0 To UBound(TargetList)
            '~~> Find the text
            Set rngFound = txtRng.Find(TargetList(i))

            '~~~> If found
            Do While Not rngFound Is Nothing
                '~~> Set the marker so that the next find starts from here
                n = rngFound.Start + 1
                '~~> Chnage attributes
                With rngFound.Font
                    .Bold = msoTrue
                    .Underline = msoTrue
                    .Italic = msoTrue
                    '~~> Find Next instance
                    Set rngFound = txtRng.Find(TargetList(i), n)
                End With
     …

Hi Experts,

In Outlook, is there a way to create a custom group  summary?

For example, currently the default summary reads:   Categories: My Category (21 items)

Can I add to that with SUM(hours), where hours is number column to read: Categories: My Category (21 items, 30hours)

Any help will be greatly appreciated.

Master I do have here a file for operation and maintenance.I want some codes before the user will open the excel,it will pop up and ask for the user name and password.It will record the log in & log out of the user on another sheet.Please see the attached file below.
WO_Maintenance-Form.xlsm

Hi Guys I just wanna ask.I do have here codes for generating Request # but its randomize and I need a combination of alpha-numberic characters that will generate request # by sequence not randomize and combine with aleast 2 letters.Please see the attached file below.
WO_Maintenance-Form.xlsm

What is proper VBA code to forward an e-mail, even if Outlook is Closed, if the sender, of the received email,  is in my Contacts. Otherwise ignore email.

Cook09

Hi,
I currently have Excel importing data from an Access db, however, the database is moving to a Virtual Machine that we have with MS Azure.
I am unsure what I need to do to connect to the db once it's moved.  The Excel will still be on my local machine.
We currently login to the VM via Remote Desktop Connection.  Within the VBA, what do I need?  Do I need to enter the password (as I do when I connect via RDC)?

thanks in advance
Kerry