I'm new to Macros and need your help. I've read online but can't find instructions on completing what I want.
I have a workbook with about 60 tabs that has various numbers of rows. I want a macro that will combine all the rows from each tab onto a new tab.
Is there an easy marco that i can do to acommplish this?
I have about 30 Excel files, each with multiple tabs. Each file has a tab called "Invoice." I would like to create one workbook with all 30 Invoice tabs. As of not I am manually copying and pasting, which takes a while. There has to be an easier way, and I found this VB script to combine entire workbooks.
Is there any way I can run this and get just that Invoice tab and not all tabs on all files?
Sub GetSheets()
Path = "C:UsersdtDesktopdt kte"
Filename = Dir(Path & "*.xls")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub
I have 3 workbooks with multiple spreadsheets (tabs) in each workbook. I want to open a blank workbook and copy various sheet tabs from the other workbooks into my new workbook. I need to keep the formatting etc when these are copied over. There are text boxes in some of the existing workbooks and macro's.
View 2 Replies View RelatedI am working on a macro that copies tabs from the spreadsheet the macro (button) is located in, creates a new book for them, and then pastes values so that no formulas still exist. The problem I am having is with named ranges. The named ranges do not reference the new sheet, but rather the old spreadsheet. This is fine because the new file is solely for presentation, however, one macro (which selects print ranges based on user selected checkboxes) tries to reference the old spreadsheet once it runs. I would like the macro that I currently have working, to also make this macro in the NEW spreadsheet so that it can still highlight the correct print area when used. The macro does not reference the name of the workbook at any point, it is purely "Range("ai10") type references so I don't understand why it is trying to open the old sheet back up.
View 2 Replies View RelatedI'm desperatl seeking help as im trying to get the following macro to run on all available tabs in my workbook.
Sub Scroll()
Application.GoTo Reference:=Range("A1"), _
Scroll:=True
End Sub
I've tried this script but it does not seem to work
Sub Test()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Application.GoTo Reference:=Range("A1"), _
Scroll:=True
Next ws
End Sub
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 have a table which has employee names on the left handside. Next to them are contacts in a region.
View 7 Replies View RelatedI've been Google-ing for the last 45 minutes and tried to combine them myself, but I'm afraid of breaking it.
I believe the second code was taken from the MrExcel site, I don't remember.
CODE 1:
// Track Changes; updates any/all changed cells with a comment identifying the author, date and change that was made //
Option Explicit
Public preValue As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Select Case Target.Column
Case Is = 2, 4, 6
Target.ClearComments
Target.AddComment.Text Text:="Previous Value was " & preValue & Chr(10) & "Revised "
CODE 2:
// Whenever a specific range of cells are updated, the adjacent cells update with a timestamp //
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Range("F3:F1000"), .Cells) Is Nothing Then
Application.EnableEvents = False
With .Offset(0, 1)
.Value = Now
End With
End If
I have a worksheet that I am always adding sheets to by duplicating an already existing tab. The tab ,"Current Invoice", is nested between sheets called "first" and "last". All duplicate sheets will also be nested between the "First" and "Last" tabs. What I would like to do is have a macro that affects all tabs between the "First" and "Last" only, even when the bookend tabs are hidden.
This is what I've started with.
HTML Sheets(Array("First", "Last")).Select
ActiveWindow.SmallScroll Down:=18
Range("U29:U190").Select
Selection.Copy
Range("AA29").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("W29:W190").Select
Application.CutCopyMode = False
Selection.Copy
Range("AB29").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
I would like this Macro to run on 6 different tabs in a worksheet as one Macro. It is currently only running on the active sheet. The tabs that I need it to run on are labeled "Totals" "New" "Used" "Service" "Parts" "Other Income-Ded"
Sub ExpenseAnalysis2012()
Dim rngSource As Range
Dim rngDestination As Range
Set rngSource = Range("D3:E90")
Set rngDestination = Cells(3, Columns.Count).End(xlToLeft).Offset(0, 2)
rngSource.Copy
rngDestination.PasteSpecial (xlPasteValues)
End Sub
create a macro that will delete tabs that ends with the word "OPEN" from a workbook?
View 9 Replies View RelatedI had in my macro toolbox a macro where in column A I listed names for worksheet the macro would then create and name the worksheets from the list in Column. But unfortunately our share drive where I kept the toolbox crashed and all the data was lost.
View 1 Replies View Relatedis there any way that i can adjust this code so that if there are not enough worksheets in my workbook to support my list that more worksheets will be made and renamed? Specifically I would like to copy the first worksheet and then rename it based on my list. also... If I have more worksheets than my list requires it can delete unused worksheets?
Sub NameSheets()
Dim i As Long
Dim ws As Worksheet
i = 1
For Each ws In ActiveWorkbook.Worksheets
If ws.Name "Sheet Names" Then ws.Name = Sheets("Sheet Names").Cells(i, 1)
i = i + 1
Next ws
End Sub
I have a list on "Sheet Names" that changes the tab names on each sheet when i run the macro
I am badly in need of a macro that will create 3 tabs using a value in sheet1 cell a1.The tabs created should be unique in the workbook and no sheet has to be duplicated or cancelled.After creating the tabs the macro should also create a list of the 3 tabs created in a sheet called list.
View 8 Replies View RelatedI have a spreadsheet with a table of data. Each row needs to have its data on a separate tab, so they can be presented in idividual reports. Each tab then needs to be given a name which corresponds to the values in the column A from the spreadsheet.
I can generate a new tab with the following:
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Sheet1").Select
Sheets("Sheet1").Name = ""
But I have a few issues with this... Firstly, the number of new tabs required will change, so it needs to replicate the formula for the number of entries in the reference table. Secondly, this relies on the new sheet being "sheet1" which I'm not happy with in case someone accidently creates a sheet 1 by hitting the new tab button. I then don't know how to give each one a separate name based on column A from the reference sheet.
I have 5 macros to be run in sequence. I have copied them into the file attached with ----- line as separator between them.
How can I possibly combine them all into ONE MACRO?
Creating a macro that is a combination of other cell values. the cell order is listed below:
C57 = contains a unique number that will change from time to time eg. 1234
H57 = 1 (this will always be the value of 1)
N57 = contains text eg. AUDUSD
V57 = contains text eg. BS
AB57 = contains a number eg. 1.8954
AH57 = 0 (this will always be the value of 0)
AN57 = contains a number eg. 0.01
AS57 = contains a number eg. 1.7954
AZ57 = contains a number eg. 1.9954
BH57 = conatins either 1 or 0 eg. 1
the cell needs to contain the above examples like this :
BT57 =OpenPosition(1234,1,"AUDUSD","BS",1.8954/0,0,0.01,1.7954,1.9954,1)
This will be needed for a total of 14 rows (57, 59, 61, 63, 65, 67, 69, 71, 73, 75, 77, 79, 81, 83)
The cell with the results cannot have any cell references contained in the end results and must be formatted as above so that the add in program can read and pass on the information.
I have a Sub that calls 8 other subs, can I hide the 8 subs on a users macro list?
I tried making the 8 subs "private subs", and it did hide them, but then my call sub macro didn't work.
Any thoughts?
I have a workbook with two sheets that I need to combine some of the data from. Sheet1 is a template to be used for translation purposes on Sheet2. I would like to put Sales Rep Info in column C on Sheet2 (has only Sales Rep ID) using Sheet1 as a translation table (shows Sales Rep ID and Sales Rep Info). I can do this with a vlookup function but would like to know how to do it in a macro so I can use on other more complex workbooks. Here is a sample data set.
View 3 Replies View RelatedI have an excell spreadhseet that has more than 100 sheets and I would like to combine all these sheets into one master sheet (Sheet1 = MasterSheet) within this workbook. Each sheet has different number of rows used. I just want used ranges to be copied over to a master file appending the previous copied range.
Sub MergeSheets()
Dim strSheet As Object
Dim LR As Long, LC As Long
Sheets("Sheet1").Name = "MasterSheet"
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
For Each strSheet In Sheets
If strSheet.Index 1 Then
[code]....
I've been attempting to find a macro that would combine a number of similar workbooks into one large workbook. The files I'm dealing with are all .csv files with identical columns and headers.
I found one macro here: see below (this is the start of the macro) yet either I'm not using it correctly or there are errors in it as when I run it I get an error that says Run-time error '9' Subscript out of range and gives me the option to debug it. When I choose to debug it opens up the macro and has the following section highlighted?
Set wsMaster = ThisWorkbook.Sheets("Master") 'sheet report is built into
The macro in I found on this site begins with the following:
Option Explicit
Sub Consolidate()
'Author: Jerry Beaucaire'
'Date: 9/15/2009 (2007 compatible) (updated 4/29/2011)
'Summary: Merge files in a specific folder into one master sheet (stacked)
' Moves imported files into another folder
I've got a macro that combines multiple worksheets and workbooks. Just a minor problem, the very last row of each worksheet is being deleted, and I can't seem to pinpoint the cause of the problem.
'This will copy data from all sheets of the selected workbooks
'To a sheet named 'Data' in the sheet in which the macro is run from
Dim pasterow As String
mainsheetname = ActiveWorkbook.Name
MsgBox ("Please select spreadsheets to combine")
filestoopen = Application. GetOpenFilename(MultiSelect:=True)
responseval = MsgBox("Do you want to leave the combined spreadsheets open?", vbYesNo)
Worksheets("Data").Select
Range("A1").Select
'open workbooks
For Each w In filestoopen...................
I'm trying to get the following code to work (as a practice run for a bigger set of spreadsheets) but it doesnt seem to work - no errors either. There are 3 workbooks all with 1 worksheet called "Data 1" with 3 columns of data (under 20 rows). These (theoretically) should copy into 1 called " Totals". The code I have used is: ....
View 9 Replies View RelatedI have 2 cells that dump data in a column format. I need to combine these two cells with a ' after the data in the column. This macro will loop down until both column J and K are empty,
I need a Macro that
1. Will combine both cells
2. Data will be value format not formula
3. Macro Will run as soon as workbook is opened
Ex.
F J K
1 Prop MD MD Objective
2 1' Test Data 1 Test Data
3 235' next data 235 next data
I am trying to find a library with vb/macros that can hide and unhide all worksheet tabs except one, the formula, and the menu bar.
View 1 Replies View RelatedI'm not very good with macros and I need to create a macro that copies data from one excel worksheet into multiple other worksheet tabs in the same workbook. I have 8 columns and thousands of rows of data. The spreadsheet is sorted by column E.
In column E, there are about 25 different values going down throughout the spreadsheet. I would like the data for each of these Column E categories to be copied over to a new tab in the spreadsheet with the tab name as the value in E. So in the end there would be the main tab, and then 25 new tabs with the filtered data. Does anyone already have a macro that will do this?
I need a macro that import tabs from a file into another file.
View 1 Replies View RelatedI need to create a Worksheet within a macro that has 10 tabs. I had something running, then I made some changes and I got Application-defined or object defined error.
Sheets("Sheet1").Name=Sheetname(1)
Sheets.Add after:=Sheets(Sheets.Count)
I was looping thru this up to 10 now its not working. This isn't too complicated,
Just a quick on i hope. Im trying to create a macro that adds a worksheet/tab and Rename it to the month after the tab already showing.
e.g
if i already have two tabs one dated january and the other named february i require the macro to say march then the next run would be april if you get my drift.