Hi There,

I have an excel utility that creates a txt file containing metadata to be loaded into another system.  This has started to fail after the users upgrade to O365 / Excel 2016.

It creates the text file by creating an object referencing itself as a recordset:

Provider=Microsoft.ACE.OLEDB.12.0;
Data Source=C:\Users\Jbloggs\Documents\user\ACTIVE\2017 07 - A&B\03 - Build\ExportFile.xlsm;
Extended Properties="Excel 12.0 Xml;
HDR=No;
IMEX=1";

However when this code is opened I receive the following error:


Error...



I have tried this on another machine with Excel 2016 and this code works without issue.

Any guidance would be greatly appreciated.

Many Thanks,
Mark

The attached example file contains three identifier columns with the main identifier being a code in column C.
There are duplicate codes at random down column C - Rows 3 & 4,  114 & 115, 185 & 186, and 196 & 197, are examples shown in red.

The objective is to have the contents of the lower duplicate row added to the contents of the cell above and then the lower row to be deleted.
The columns affected are from D to KQ.

The actual files have about 60,000 rows.
Example-file-with-duplicate-ID-code.xlsx

need query column I location 1

and show 13 set  coulmns L , M , N
in  sheet  ORD,  ORD_VER
29045921--2-.xlsm

This file is an num 3  

 need look for column F  location 1 set of 13  to show coulmn F  column L column M and column N Data
n3PAL_1.xlsx

if someone has CTC 4.7 L per annum(Delhi, India),
what should be salary breakup per month?

The following code helps me convert date values into dd-mmm-yyyy, what I'd like to do in addition is then convert the values into text.

So it would stay as dd-mmm-yyyy but the cell value would be text not a date format. I thought one way maybe to text special, but at the moment I have to paste the values into notepad and then pre format the cells so that they enter as text.

Private Sub CommandButton1_Click()
Dim cell As Range
For Each cell In Selection
cell.NumberFormat = "dd-mmm-yyyy"
Next cell

End Sub

Many thanks for your help.

Hello Experts,

Attached are two files, the MS Access db where I am trying to create multiple records based on the comments fields in the one record. The MS Excel spreadsheet contains a sample of what I am trying to accomplish.

I am able to move the records to a new table, but I am lost on the step where I want to duplicate the record based on how many comments are in the note field.

The attached Excel spreadsheet is a sample of what I am trying to accomplish based on MS Access ID=621.

Can you please help me out?

Thank you,

Steph_M
Sample.accdb
SampleNewRecord.xlsx

Hi,

I would like to sort cells in highest order and display top four variable headings.
Please refer to attached sheet
Many thanks
Ian
Coef-sort.xlsx

how are the steps to put this in any file i need
DATADATE--10-RR.xlsm

Someone has created this Macro for me to import data from a number of workbooks into the one in which the macro is running.  All workbooks are in the same folder.  Trouble is, although this runs fine on a Windows PC (Excel 2016), it doesn't run on a Mac (also 2016).  It comes up with an "Run-time error '53' File not found".

Incidentally, the last line calls another Macro I recorded that just Word Wraps a column in the workbook.  The last line of that calls another macro that adds in some text to say that the macro has run successfully.  I don't think the error is about the calls but if you can suggest how to add the lines into the first Macro, below, that would be great.  

Any ideas what is preventing this run on a Mac?
Thanks

Sub ConsolidateResults()
Dim wbDst As Workbook
Dim wbSrc As Workbook
Dim rngDst As Range
Dim rngCopy As Range
Dim strFileName As String
Dim strPath As String

    Application.ScreenUpdating = False

    strPath = ThisWorkbook.Path & Application.PathSeparator
    Set wbDst = ThisWorkbook
    Set rngDst = wbDst.Sheets("Input Data").Range("F5")

    strFileName = Dir(strPath & "*.xlsx")

    Do

        Set wbSrc = Workbooks.Open(strPath & Application.PathSeparator & strFileName)
       

        Set rngCopy = wbSrc.Worksheets("Copy").Range("F1:F40")
 
   
        rngCopy.Copy
        rngDst.PasteSpecial xlPasteValues

        wbSrc.Close SaveChanges:=False

        Set wbSrc = Nothing

        Set rngDst = …

I have a template that is used monthly and each time its used, we create a new one for the upcoming month.
On several worksheets, we need to unprotect it, clear data from the entry fields, and then re-protect the workbook before saving.  I want to set up a button that will allow the end user to click it and have the macro perform unprotecting the worksheet, clearing the data and then re-protecting all with one click.  I don't mind the password showing in the code because I don't want the end user to have to enter a password to do this.

Do you have some code for this?  Here is an example of the data clearing code I will be using.  I just need to know how to attach code at the beginning and end to initially unprotect the worksheet and then protect it again after the data clearing has been done.

 Range("A36:A37").Select
    Selection.ClearContents
    Range("C34:C37").Select
    Selection.ClearContents
    Range("C40:C43").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=39
    Range("C73:C76").Select
    Selection.ClearContents
    Range("C79:C82").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=24
    Range("C92:C95").Select
    Selection.ClearContents
    Range("C98:C101").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-75
   
End Sub

Hello Experts,

I am trying to write  vba code to auto indent cells based on cell content.
Asm Part: indent by 2
Operation: Indent by 3
Something like that

Hello

I am looking for help to write some code so that I have a listbox (or similar) that can enter a date into a cell.

Unfortunately my work IT department have blocked 6.0 objects, so can't use any of the pop-up calendars available, therefore, I would like a userform with 3 entry points; day number, month and year, to be selected (via dropdown or similar) and then entered into the cell in the format DD/MM/YY.

It's Friday and I'm full of cold and my brain can't take attempting the different answers that come up in google...please can someone help me!!!!!

Thanks
Amy