How I might go about some VBA code to import a PDF file (that may contain multiple pages), and split each page into its own worksheet.
For simplicity purposes, say the PDF is at "C: est.pdf". My thoughts was to have the code detect how many pages the PDF has and loop through the file, importing each page individually into the workbook; but this is uncharted territory for me.
I need a macro that import tabs from a file into another file.
View 1 Replies View RelatedI am sure the answer to this is out there somewhere but I haven't been able to find it. Thank you in advance for the help - I just can't figure it out.
I have several identically formatted worksheets (for different departments) with macros that reorganize the data in each sheet. I also have a list of managers with their respective departments in this same workbook.
I want a macro that will save these department sheets (values and formats only) in new workbooks - the manager's name - according to the list. I also need the macros that reorganize the data to work without referencing the original file.
I have a macro that enables me to split my master table into separate tabs based on the first column. However, the column widths and the header format is not retained. Is there something I can add to the macro below to keep the formatting?
Code:
Sub DispatchTimeSeriesToSheets() Dim ws As Worksheet
Set ws = Sheets("MasterList")
Dim LastRow As Long
LastRow = Range("A" & ws.Rows.Count).End(xlUp).Row
[Code] ......
Hi everyone,
I've got several Excel files that need to be edited separately.
Once they have been edited, I need to paste the content of each file in a single separate Excel file.
Is there a way to retrieve the content from all the files in a folder, and merge it in a single file?
For example:
3 separate files > File1, File2, File3
Merged file, sheet1
File1
File2
File3
I'm trying to set up a macro which will import data from one worksheet to a master sheet. I need it to copy the information into specific columns but not overwrite any existing information which is already in the Master Sheet, but I don't even know where to begin.
Just so you're clear on exactly what it is I'm trying to do... I have a Master Sheet which lists all of our suppliers prices, margins etc etc... However, when we use a new supplier we send them a greatly condensed version of the Master Sheet - We call it the Supplier Sheet (no big surprises there)!
When the supplier sends it back to me I have to type it all out manually which is kinda time consuming. I'd really like to set up a "push button" system which allows me to simply drag the Supplier Sheet into the workbook, add the info into the Master Sheet, then be able to delete the now useless Supplier Sheet.
(I have attached a test copy of the file - all of the columns in blue are the ones which need the data adding to).
I have a workbook with four tabs or four sheets.
Tabs 1, 2 and 3 have a column of data (Column A) on each sheet. They all start from the same cell. Each cell of data are just numbers. The column (an array) of data will not have blanks between.
But, they are not the same number of data. They vary.
Meaning, Tab 1 may have 15 numbers (A1 to A15), Tab 2 may have 20 numbers (A1 to A20) and Tab 3 could have 5 numbers (A1 to A5). Each iteration of the workbook may have different number of data in the A column on these tabs.
Now on Tab 4, I want combine the data from all three tabs into one column (in column A).
So, Tab 4 has a column A with data from Tab 1 copy and pasted to (A1 to A15) as values, then (A16 to A35) have Tab 2 data copy pasted as values and (A36 to A40) have Tab 3 data copy pasted as values.
Basically, the macro on Tab 4 has to count the number of rows on each Tab that are populated with data values and figure out to copy all the data on Column A from each three tabs and paste the data value into the Tab 4 in one column of data (in values).
I have 10 tabs in a workbook, the first five tab is for 5 Departments for the Month of March, the other 5 is for the same 5 departments for the Month of April.
I want to compare a particular field for each Department for the two months. The field is in column N.
Is there a code that will copy column N for Finance March, Column N for April and paste them into another worksheet in the same workbook in Column A and B, then go to the next department HR and copy Column N for HR March and April and paste in the same worksheet where Finance already as in column D and E, then go to Operations March and April tabs and paste into the same worksheet as column Worksheet G and H.
Basically the copied columns are pasted March April next to each other for all the businesses in the new .
I have been trying to get Excel (2007) to change the colour of tabs to match other tabs in the workbook
Using this code I get the colour code of the current tab
Code:
x = ActiveSheet.Tab.ColorIndex
But when I use this value in a procedure like this:
Code:
ActiveSheet.Tab.ColorIndex = x
The tab is a different colour!
I have a summary page that includes the titles for each tab within the excel 2003 workbook. I want to use the names of the tabs in the summary page and create it into a formula to lookup fixed cells within the various tabs. Sorry for not uploading an excel doc but I was at work earlier and the thread did not load for some reason, so I am reposting it.
View 3 Replies View RelatedI'm attempting to import around 200 (and growing!) separate text files into Excel. I am using the formula below to import the text file and then using a separate macro to select the information I need, copy it into another spreadsheet, and then run the import macro again.
However, I have a problem in that my import macro gives me 'Run-time error '1004:
Application defined or user defined error''. At first this wasn't a problem as the information is pasted into the spreadsheet despite the error anyway. However, now that I am looping the macro it is obviously causing more problems as it prevents the loop. I would really appreciate it if anyone knows of a work-around or can spot an error in the coding to resolve this!
The code below shows is for the import macro only:
Sub ImportTextFile(FName As String, Sep As String)
Dim RowNdx As Long
Dim ColNdx As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim Pos As Integer
Dim NextPos As Integer
Dim SaveColNdx As Integer
I have a simple macro importing a .csv data file to a worksheet every 30 minutes.
When the macro runs an Import Text File dialog box displays.
What do I need to do to have the macro run to completion without the dialog box interruption?
Sub RefreshHourlyData()
htime = Now + TimeValue("00:30:00")
Application .OnTime htime, "RefreshHourlyData"
Sheets("H1Updates").Select
Sheets("H1Updates").UsedRange.Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("A1:A1").Select
End Sub
I'm trying to use a formula in conditional formatting to highlight a cell red if the cell contains a 0 but the date shown in another cell has passed. I want to copy the formatting throughout a column but I don't want the cell to highlight if there is no date in the other cell concerned.
View 11 Replies View RelatedI receive an extraction from AutoCAD that lists the electrical devices in a drawing. I don't have any problems extracting the letters. I have a problem extracting the device number and the device number extension.
The device label extraction is similar to this:
DCM1005-1
DCM1005-10
DCM1005A
MTR1005-1
MTR1005-10
MTR1005A
I want to create 3 columns from the device label: (I separated the column with commas)
A1, B1, C1, D1
DCM1005-1, DCM, 1005, 1
DCM1005-10, DCM, 1005, 10
DCM1005A, DCM, 1005, A
MTR1005-1, MTR, 1005, 1
MTR1005-10, MTR, 1005, 10
MTR1005A, MTR, 1005, A
How can I separate the following numeric/text combination into two (2) separate columns in Excel?
302ALTO
406AMZN
451AMRC
404AMAD
605ANCC
405ADRC
The result would be:
302 ALTO
406 AMZN
451 AMRC
404 AMAD
605 ANCC
405 ADRC
I'm trying to separate text from numbers into two separate cells...
Essentially, I would like the users to copy and paste data into Column A, as seen below. Then, hopefully by formula separate the text characters into Column B and the numbers into Column C.
Input: Output 1: Output 2:
Col A Col B Col C
Wells 123 Wells 123
Wells 1234 Wells 1234
Wells Fargo 123 Wells Fargo 123
Wells Fargo 1234 Wells Fargo 1234
Wells Fargo Inc 123 Wells Fargo Inc 123
Wells Fargo Inc 1234 Wells Fargo Inc 1234
Ideally, I would like to do this with a formula...
I have 10 very large workbooks that are all setup in the same format. In column Z is a numerical value from 1 to 83. I have been trying to filter the sheet and then copy one at a time from 1 to 83 but that takes a LONG time especially when there is 10 workbooks to do.
Is there anyway I can run a function or macro or something that would just automatically look down the column Z and put each row into a it's own workbooks?
I have attached a sample of what the workbooks look like right now.
Sample123.xlsx
I have a giant data sheet. I have to cherry pick certain data out of the list and send it to certain associates, in a new spreadsheet.
I want to do this automatically.
I can create the macro to select the data I want, and copy it over (values only), but I cannot find out how to do it in a new sheet with a new name that automatically gets generated with a unique filename (probably using the date).
Essentially, I want to copy my data spreadsheet (post-filter) into a new spreadsheet titled X mm-dd (where X is whatever I pick). I then want to delete several rows from it.
Ideally, the macro would do this (I will put a * next to things I can handle the code for, to save work):Filter Data *
Copy Data *
Create a New Spreadsheet named (Person's Name) mm-dd.xls
Paste Data (values, formats, column widths) to the new spreadsheet *
Delete Several Columns from the new spreadsheet *
Rename the sheet it's been pasted to
Re-filter data (new filter) *
Copy Data *
Paste Data (values, formats, column widths) to the same spreadsheet, only Sheet 2 *
Set the header of the spreadsheet with (Person's Name) and the date
Save the new spreadsheet
There will be as few as 1 sheet (in which case I would only want one worksheet in the new excel file), or as many as 4 sheets. I don't need a fancy way to do this, as it will only be done once a week, and I can just make the various cases required to do it even if it isn't pretty, but I can't figure out how to manipulate other files that haven't been created yet...
I am creating a bar inventory/"numbers" sheet for a corporation. I have been searching on and off for a week or so to find an answer or a tutorial on what I am looking to implement into this worksheet. I want to take a userform, with a multipage control, and have the control for each tab, show me a different part of the worksheets. For instance, the first tab would be inventory, the second tab would be ordering, the third tab would be weekly numbers, etc ... I am wondering how to "add ranges to the multipage control in order to make it a "viewer". I have found tutorials on how to print, enter info into the form and save it to the sheets using a button, but I can't find a tutorial on how to implement the control on how to make tabs show the ranges. Can someone point me in the right direction on a tutorial, or maybe if willing a small spreadsheet with a mulitpage control on it, showing how to add the ranges from different worksheets?
View 14 Replies View RelatedI'm having a problem setting the multipage tab on a userform in VB. It's kinda weird because the code was working fine until recently, where it's suddenly stopped working properly! The only thing I can think of is that I changed versions of Excel to v2003 recently.
I want to not let the user change tabs unless the inputs entered have been error checked. My code is:
Private Sub MultiPage1_Change()
If Me.MultiPage1.Value > 1 Then
If Range("inputs!dob") = "" Then
Me.MultiPage1.Value = 1
MsgBox ("Please enter your date of birth before continuing.")
End If
End If
End Sub
The tab itself changes fine (ie. shows the tab 1 header), but the contents of the tab are actually the contents of tab 2!
I have had some succcess with Userforms, but I have now tried creating multipage ones.
I assumed that when I clicked on page 2 or page 3 of the multipage control, it would take me to a blank canvas, but instead it just replicates what is on Page 1. If I put textboxes and labels on page one, it repeats them on pages 2 and 3. If I delete boxes fropm page 3, they also disapear from 1 and 2!
So im unsure how to put different labels etc onto different pages.
I have a multipage (say "Multipage1") in a userform. It has five different pages in it starting from page1 to page5.
When the userform is opened, I want to have a control as to which page is being displayed first.
eg: I want the page2 to be displayed when the userform is being opened.
I am looking for a way to make a UserForm MultiPage control show no tabs.
Is this even possible?
Or is there another way to get this same result?
When I drop a multipage control onto a worksheet, the control defaults to showing/having 2 pages. I looked at the various properties and there doesn't seem to be a way to change/add to that number of pages. I know I can add pages to the control programmatically. But what if I don't want to do it that way? What if I want to set the control to show 3 pages instead of 2 at design time? Is there a way to do that?
View 3 Replies View RelatedCan you run a procedure when a particular page in a multipgae control is clicked rather than use the Multipage change control.
View 5 Replies View RelatedI'm trying to create a next button from one user form to another. But I can't reach there. I know that I have to use, multi page, but I don't know how!
View 4 Replies View RelatedIn a Multipage form, the first page contains 2 DTPickers. These show the date value from the specified excel worksheet cells and update the cells accordingly if the user changes the dates with the TDPicker. These work perfectly.
If I place another DTPicker control on another page of the Multipage though, it leads to a run-time error.
As an example, the code for 1 of the successful DTPickers on the first page:
Private Sub DTPickerAccountsStartDate_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
End Sub
Private Sub UserForm_Initialize()
Application. ScreenUpdating = False
ActiveWorkbook.Sheets("Cover").Activate
DTPickerAccountsStartDate.Value = Format(Range("B6").Value, "dd/MM/yyyy")
End Sub
There are no errors in any of the cell references etc and the formatting of the DTPicker controls is exactly the same in all cases.
The tabstrip and multipage object curiously resemble one another, in that they both have tabs, and hence naturally arouses one's curiosity and raises this question.
I searched this forum, and found one thread, from several years ago, where some senior members shrugged and said they had never used it. I found little in google, after an hour of searching, except for a Microsoft example which I completed and attached here.
I still have questions in my mind about exactly when and how one might use a multistrip, but this example helps me a lot, so I felt it might help others as well.
I am anxious to hear your tips and caveats about multistrips.
A multistrip appears to be a handy way document related options for the programmatic alteration of the functionality of some aspect of an application, such as color, or font, or perhaps output device.
Is there anyway to make the number of multipages you have respond to a previous fill in the Userform? Let's say you have a textbox asking for number of requests, if you type 4, there will be 4 multipages with the same fills.
View 4 Replies View RelatedUserForm1, page5. From Combobox1 I choose a city and the textboxes give me the values from Sheet3. I'd like to color in green the smallest value. for example, if for LHR I find for A-4214, B-4420, C-3127 => value 3127 to be green. The problem is I have more textboxes in other pages and some of them are colored in green also. Is possible to reffer to these textboxes from page5 only?
View 8 Replies View Related