Macro Automation Even When Formats Change
Jun 4, 2014
I receive sales data from my wholesalers every month and I continually have to format them to fit the structure of our in-house database. I wanted to design a macro that would automate this process. However, in some months, the files are recieved in a format that is a bit different from the wholesaler's usual format.
Is there such thing as an initial "litmus" test where I could try running the macro and if it doesn't fit the usual structure, there's an error code and I could do it by hand?
View 3 Replies
ADVERTISEMENT
May 28, 2009
I have a userform which allows data to be entered onto a worksheet. One of the fields (a textbox with the standard calendar control) is the date. When the transaction saves, it correctly saves the date as dd/mm/yyyy using
ActiveCell.Value = TxtDate.Text
I also have a form which allows the user to amend a transaction by loading the data onto the form, amend it and save it back to the worksheet.
The problem is that when it picks up the data and re-saves it, it's resaved in the format mm/dd/yyyy which is a problem because I use the month as one of the categories that users can filter the data by.
I also have the following line immediately after each time the data is saved from the form to the worksheet:
Selection.NumberFormat = "dd/mm/yyyy;@"
View 7 Replies
View Related
May 9, 2008
I am importing data (using filestream) from txt files with comma delimited values. When I import dates into General type cells it turns a date of dd/mm/yyyy into mm/dd/yyyy only if the date makes sense.
I would like it to import dd/mm/yyyy as dd/mm/yyyy.
I am also interested to know how Excel/VBA deals with dates coming from various sources, what quirks or mode of thought it follows.
View 9 Replies
View Related
Dec 11, 2013
I have a hidden worksheet (in my add-in) where I store various configuration options for my processing. Among these are some cell formats that I apply to a target worksheet for the user to reformat their sheet.
I want to give the user the option to change some of these formats (font name, size, color, interior color). Is there a way to use a userform textbox to let the user format the text and fill options, or how would you recommend I do this?
I want to be able to store these options in my hidden config sheet so they can be applied every time, but do not want to unprotect the user worksheet for them to make the changes there.
View 1 Replies
View Related
May 3, 2014
I have a file here that already has macros in it. The file is basically a excel document generator. When you click create sku, the document will generate multiple documents based on the user inputs.
1) In the generated documents the original "generator" file creates, I need generated files to have column B and D formatted to TEXT, currently all the generated files are formatted to general. (This code is in module 1, line 84 col 34.)
2) The other problem is I need to append the value in Cell N1 in the "sku data entry" sheet to be appended to the generated file names. (this part of the code is is in module 1, line 150 col 28.)
I was unable to attach my file to this thread because it was to big. however I copied the module where I think the code is causing problems:
Sub procData()
' Starting point for read/extract process
Cells(4, 6).Select ' Range = F4 (row 4, col 6)
For x = 6 To 52 Step 2 ' col F to col AZ
[Code]...
View 1 Replies
View Related
Oct 24, 2013
Have a simple Pivot table that i have grouped in 14 day buckets.
Currently, the date range looks like this:
1/21/2013 - 2/3/2013
However, I want the range to show the 'last' date only.
Is there a simple way to do this? I just can not see it in the format cells menu...
Gary Pivot.jpg
View 1 Replies
View Related
Jun 10, 2013
I am trying to automate the following task
The excel spreadsheet I have has data in cells A2, B2, C2, and D2. There are many rows one below the other. The data is as below:
A2 = Orange
B2 = New York
C2= Ferrari
D2= Summer
I need to copy the contents of A2, B2, D2 and D2 in an orderly manner on the second work sheet of the same work book as below:
On Second work sheet, Data should be only in column A and B as following with fixed titles
Fruit = Orange
City = New York
Car = Ferrari
Season = Summer
I want to keep doing this for all the rows which have data in them. Fruit, City , Car and Season will be the constant titles.
I recorded a macro, but it does the copy paste thing only for the first row.
Script that continues the process as long as there is data in the sheet1
View 1 Replies
View Related
Mar 15, 2013
How to have a macro bring up a website (an internal document website) locate the correct frame uncheck a box, fill in a field with a cell value (from A2) click submit, jump to the next frame within the same website and click a link. my main problem is it looks as though there are nested frames and iframes which im not familiar with. since the website is internal and you wont be able to access it, i have taken snips of the website itself, along with snips of the html and posted them to photobucket. [URL] .......... if you look at the snip of the website the fields i need to be referenced or filled are...
in the frame "frameSearchCriteria" (which i believe is itself within an iframe)
"My Loans Only" box unchecked (html name is "xMyContainers")
"Loan Number" field filled with cell A2 (html name is "xObjectSearchValue")
"Search" button clicked (html ID is "xSearchSubmit")
after these steps have been taken it would then jump to the next frame "frameSearchResults"
and would click the row (html name is "xRowClickAction")
I realize this would be difficult without access to the site, however the posted html and a snip of the website. heres two versions of code i have so far.
Code:
Public Sub IE_Automation()
Dim baseURL As String
Dim IE As InternetExplorer
Dim HTMLDoc As HTMLDocument
Dim mainFrame As HTMLIFrame
[Code] ....
Code:
Sub Xdoc()
Dim oIE As InternetExplorer
Dim HTMLDoc As HTMLDocument
Dim frmCol As FramesCollection
Dim HTMLFrame As HTMLDocument
Dim htmlColl As Object
Dim htmlInput As Object
[Code] ..........
View 5 Replies
View Related
Sep 30, 2007
I have a spreadsheet that is very large and formated a certain way. I want to make sure that a user cant put the cursor in the lower left corner and copy cells by dragging, copy & paste, or do anything other than input data and be able to highleght text and reinput data in case they mistyped or misspelled the data.
ex: user clicks on cell E33 and types in '1234568' and then move to next cell. The user can click back on E33 and can correct by retyping. That is all the user is allowed.
The cells in question are also in ranges if this helps. EX: 'E33:AJ67'
View 9 Replies
View Related
Jul 28, 2012
In the toolbar there's a section titled "Number" which allows you to change cell formats with selections named General, Number, Accounting, Date, Time, etc. I want to permanently change some of their default formats.
For instance, currently when I select Number the default is -4000.00. I want to PERMANENTLY change its default to (4,000.00). How do I do this?
View 3 Replies
View Related
Apr 10, 2014
I have a VBA macro for automatically create a word report using data in Access and Excel. The macro is hosted within a Excel document but are using both Word-, Excel and Access objects/dataTtemplates for the creation.
The errors appears what it seems randomly. The macro iterates the same code a few times even in Office 365 but then it crashes. The most common error messages are:
Error 1:
Run-time error '-2147417851 (80010105)':
Automation error : The server threw an exception.
Error 2:
Run-time error '462':
The remote server machine does not exist or is unavailable
Error 3:
This action cannot be completed because the application () is busy. Choose Switch To to activate and correct the problem.
(no options are working, this hang the application)
If I debug usually the error originates from the code where I ether close the workbook template I'm using:
excelWorkbook.Close False
... or when I paste a chart from Excel to the Word report:
wordDocument.ActiveWindow.Selection.PasteSpecial
Even more strange are that sometimes if I continue to run the macro its all working again. This ONLY happens when the client office installation is O365. Office 2013 works just fine. I thought O365 and Office 2013 was fairly equal?
View 1 Replies
View Related
Aug 22, 2012
I keep getting an automation error in excel 2010 when I click on the button that executes the macro. Excel crashes when the box appears. There is no code in the error box. Why I get this error message.
View 2 Replies
View Related
Oct 12, 2008
I use Excel 2003 and am trying to put together an automatic macro to apply five conditional formats to a range of cells. The range is H3:H21 and is unnamed. The values in the cells are derived from formulas. These are the conditional formats:
If there is a 1, the background color should be gold/44 and the font should be bolded.
If there is a 2, the background color should be gray 25%/15 and the font should be bolded.
If there is a 3, the background color should be dark yellow/12 and the font should be bolded.
If there is an e, the background color should be red/3 and the font should be bolded.
If there is a 0 (zero), the font should be white/2.
From what I understand, I need to put the code in by using the "View Code" option in the tab sub-menu.
View 10 Replies
View Related
Jul 27, 2006
I did this macro which formats five worksheets in the same file. I saved this macro as a PERSONAL.XLS file. Last night when i open new files to re-run this macro it was working fine excep one of the worksheets wasnt formatting properly....the macro on this sheet wasnt working for some reason.
Then this morning when i opened new files and tried the macros again it wouldnt work at all. And there is no reacord of them I did five of them and they are all gone! I saved them so why did they disappear! I thought that when you saved a macro as a PERSONAL file that you could open new files and re-run that macro again and again????
View 9 Replies
View Related
Nov 20, 2006
An in-house server spits out a whole lot of dates which I put into Excel and then use the dates for analysis (VBA code). The problem is that Excel is getting confused about the date formats. Sometimes the dates are formatted as dd/mm/yyyy and then the next line can randomly be mm/dd/yyyy. This totally messes up all changes of having data integrity.
View 5 Replies
View Related
Sep 25, 2006
I need to find a way to insert a row (preferably at the bottom of an existing list) that mirrors the formatting of the row above.
I have had a stab at this (see attached example file) but my solution requires the user to select the correct activecell before it works correctly
View 9 Replies
View Related
Sep 15, 2014
I have two columns containing dates (Date1 and Date2). Date1 is like a long date and Date 2 is a short date. I need a macro to compare these two dates and delete rows where Date1 <> Date2. Please find attached the before and after file which also contains the date formats for these two dates.
View 8 Replies
View Related
Dec 24, 2008
I have a sheet used to process sales orders - about 500 orders per month x ~1.5Mb each. I want to save them as smaller files.
The sheets to save are full of vlookups linked to external sheets and tabs, other formulas, and macros - most of which do not need saving when the sales order is filed. There are lots of merged cells too.
I must save:
1. Cell values
2. Cell formats incl merged cells, borders, colour, font etc.
3. The row and column sizes
4. Print set ups - print area, margins, page setup, header footer etc - (Everything needed to reprint to same as original)
I think I need a "File save as" style Macro which opens a dialogue box for the user to nominate the destination folder (& allows the user to browse for it), and a new file name.
The original file name is "Job Sheet - Omlaw.xls"
The tab/sheet to save is "Front Sheet"
(There are two other tabs - neither of which need saving.)
All cells to be changed to "locked".
The sheet must be password protected in Excel. User to enter it - or not.
The saved file should be "write protected" if possible?
View 7 Replies
View Related
Dec 17, 2011
I have a pivot chart, filtering data from a pivot table, the problem I've got stuck is that every time I filter the chart the colors and weights of the chart change to default values, not what I want, I've managed to every time I click on the pvt cht tab it updates with the colors and weights I want, but when filtering I don't know how to do.
View 1 Replies
View Related
Nov 23, 2005
I need to insert an Excel worksheet in the PACS (Picture Archiving and Communications System) in our medical imaging department. Our PACS only accept JPEG or TIFF or DICOM format. Currently, we convert the Excel sheet to PDF and then JPEG and then insert it in the PACS. Is there a way (macro? VBA?) to program a cell (lets call it "Save as a Picture") so that when I click on that cell, the worksheet get saved as jpeg or tiff or dicom format?
View 3 Replies
View Related
Dec 2, 2008
The macro firstly formats the data that is pasted into it from an access database, then it does some calculations to determine when 10 working days from a specific date is, and when 20 working days from the date is (these go in new columns at the end of the data). The macro will also add new columns which say "Not resolved" if there is no date in the Resolution column, "Yes" in the "10 working days met?" column if the condition is met and the same for 20 workings days in a different column. As the colouring etc takes a long time I really wanted to add as conditional formatting to the macro!
how to attach a spreadsheet here then I can show you what the outcome we want is. A point to note is that there is not a set number of rows each time we do this, and I don't just want 1 cell to be coloured - I want to specify which cells in the row are coloured depending on the results in another cell on that row.
View 2 Replies
View Related
Mar 5, 2014
I have a workbook that has a lot of formulas in it that reference material stored on my local computer.
I need a macro that will copy all 42 tabs in to a new workbook book without all formulas, but saving all the formats have made. This would save me from every other day coping and pasting manually each of the pages.
View 2 Replies
View Related
Aug 3, 2009
I'm trying to do some automation of a website that has one of those annoying javascript popup dialog boxes you have to click OK on before you can progress. How can I kill that so that I don't have to manually click on "Ok" so that my macro can keep running?
View 9 Replies
View Related
Feb 20, 2010
You take an input, click a button. This will them create a small HTML table with a text input box and another button.
Sub VisitWebsite()
Dim ie As Object
Dim tcode As String
Dim sURL As String
Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
sURL = http://sample.jsp
ie.navigate sURL
ie.Visible = True
tcode = "apples"
While ie.busy
DoEvents
Wend
Application.Wait Now() + TimeValue("00:00:03")
For Each ieForm In ie.document.forms
ieForm(1).Value = tcode
ieForm.submit
Set ieForm = Nothing
Exit For
Next
The code ieForm(1).Value = tcode works. The code ieForm.submit also hits submit on the button.
The problem is I cannnot figure out how to access the 2nd button which is generated when you click the 1st button. I have tried every variation of ieForm(1).Value. There appears to be only 3 forms (0, 1, 2). When I try 3 or greater, I get an error.
When I use ieForm(2).Value = "something", the Retrieve button text actually changes name to "something".
I've attached a screen shot of the webpage. I can insert text into the top Track Code box, and click Retrieve.
I can't change the text in the Routing Position field, and I cannot click the "Set" button. Any help would be greatly appreciated. I am still a beginner with VBA and it took me a while just to get it to work with the 1st input box.
View 9 Replies
View Related
Oct 2, 2008
The above is a screenshot of the data analysis (regression) I want to automate with vba code. Like all macros, I tried to record first and only got the following
View 3 Replies
View Related
Feb 11, 2010
I am trying to create a document that automatically sends an email whenever a field reaches a certain value. I am pulling the data from different worksheets onto a summary worksheet and using the data on the summary sheet as the point at which my code checks to see whether the value is below the minimum required. The summary sheet updates automatically whenever I change the data in one of the other sheets but the email will not send automatically when the summary sheet is updated. When I run the macro individually the email sends, however I need some way of triggering it so that it sends automatically upon the data in the field changing. Can anyone help me with this?
Here is an example of some of the code I am using:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("D3"), Target) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value < 1 Then
ANDES1
End If
End If
If Not Application.Intersect(Range("E3"), Target) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value < 1 Then
ANDES2
End If
End If
End Sub
View 9 Replies
View Related
Jun 11, 2014
Creating a spreadsheet to inventory cups each day. When a macro was invoked do the following:
-unprotect the worksheet
-cut/paste the completed sheet below the current
-bring in the values form the previous day's inventory
-set protection on new spreadsheet to lock the cells
-blank out old values
-reprotect the worksheet
Pretty straightforward and seems to work fine for a few iterations, then crashes with "Run-time error '-2147417848 (80010108)': Automation error. The object invoked has disconnected from its clients.".
As FYI, this code was mostly generated using a record macro session, so no variables involved.
Here is a screenshot of the spreadsheet as it sits now:
spreadsheet.png
Here is the code:
Sub NewDay()
'
' NewDay Macro
' Create new day and copy cup count from previous day[code]....
View 2 Replies
View Related
Jun 24, 2009
We are trying to automate the creation of PDF files for each sheet in an Excel file,a nd keep getting error messages. Can someone help? It produces the post script file, but it has no data nd then doesn't create a PDf file at all. We have Excel 2003, and have the below code setup.
View 10 Replies
View Related
Nov 5, 2009
I have a file that I update daily. It involves opening the file, going to a drop down menu and selecting 1 of the listed items and pressing a button to run the macro. Once the macro is complete, I then go back to the dropdown menu and select the next line item and press the same button to run the macro on this. I repeat this task 7times.
All the macro does is load a txt file to a third party system.
I am looking to see if it is possible to reduce the time it takes to do this task.
View 10 Replies
View Related
Apr 18, 2012
Using VBA automation - set ObjXL as an Excel.Application
Lots of code and data transfer
then:
3410 ObjXL.ActiveWorkbook.SaveAs FileName:=strSaveAsFileName
3420 ObjXL.Visible = False
3430 ObjXL.Quit
Set Objxl= nothing
should the line be set : ObjXL.displayAlerts = True
- befor the objxl.Quit ?
- before the Objxl.ActiveWorkbook.SaveAs FileName:= aname
how to close the ObjXL with out orphaning a process.
OR???
ObjXL.ActiveWorkbook.Names.Add Name:="Data1", RefersToR1C1Local:=ObjXL.Range("A5").CurrentRegion
Will this line of code create a 2nd instance of Excel?
View 1 Replies
View Related
