Operating Macro On Select Worksheets
Jun 19, 2014
I need to create a macro that inserts a row on a selected cell on a worksheet then performs the following function on 5 different worksheets. The worksheet names are "MD Forecast", "ED Forecast", "MB Forecast", "PW Forecast", and "RV Forecast".
The code I need ran on the worksheets is:
Formula:
[Code] .....
If possible, the row that is initially inserted would be the row that the code needs to be performed on. The function of the code above is to copy everything on the inserted row and 300 rows below, paste one row below the new row, and finally clear the contents of the inserted row. The column range for this to be done to is I:BH.
View 1 Replies
ADVERTISEMENT
Jan 16, 2013
I'm putting together a workbook which tracks operating hours for 17 pieces of equipment (units) at 7 job sites.
I need to track and record the number of hours where at least two of units 1-6 operate simultaneously each month.
So far I have only succeeded in creating another table which pulls all records for units 1-6 from the Log. The table can then be sorted by date (for some reason, this sorting only kind of works) so simultaneous operating hours can more easily identified and summed manually.
I'll attach a workbook with mock data which shows what I have so far. The complete workbook also does some other calculations which I have removed for clarity. That is why there is some "extra" info in the workbook.
The workbook is set-up where:
LOG: This is where the user records when each unit was operated.
LOG2: This is where I've attempted to isolate records for units 1-6 and sum simultaneous operating hours.
Factors+Limits: This is where the fields for the lists are stored as well as other factors used throughout the workbook.
Monthly: I'd like to be able to records simultaneous operating hours here.
View 4 Replies
View Related
Aug 23, 2009
If I have an application developed in Excel 2000 with Vista Operating System, does it matter what operating system (XP or later) under which it runs.
View 2 Replies
View Related
Mar 8, 2008
how can I detect the OS of the computer a sheet is running on and launch a macro accordingly?
I have built a calculator that utilizes an embedded wave file but doesn't work correctly with Vista. With Vista it actually causes WMP to be launched instead of just playing the file. So I was hoping to be able to skip the sound on Vista machines but play for all other OS's.
View 3 Replies
View Related
Jul 22, 2014
As per the attached sheet Count If is not operating.
Effective Reading Capability
Effective Reading Capability
Effecting Writing Capability
Application of Basic Mathematics 0.4
Effective Listening Skills 0.3
Effective Speaking Capability 0.3
Attitude to Cleanliness 0.3
Idea Generation & Creative thinking 0.1
Decision Making Skills ( Upto the mandate)0.2
[code].....
here If I say Countif(B4:B20, >=0.5) But it shows Zero.
View 6 Replies
View Related
Dec 5, 2008
I am currently working on doing some operating lease schedule. I send the info to the field and people fill out the information such as the term of the lease and payment. Then I need to review the terms of the lease and if the term is after 8/31/09 then the lease is classified as long term thus I need to compute the payments until the lease expires. Currently this process is done manually and people have to go and calculate payment by payment which just makes it hard for me to review all the spreadsheets that we get. In the past this process takes about three days to review but I know there is a faster way.
I am attaching what I have created and I put some comments in the worksheet to better explain.
View 6 Replies
View Related
Oct 25, 2007
I am trying to set up an IF formula for real estate operating costs. I am guessing that this is going to work best with an IF statement.
(Sample of the spreadsheet is attached)
I know this is wrong but it expresses what I am trying to do.
=IF(C5="Gross",B10=following year of B9 with month/Day being 1/1), if not B10=the folling year of B9 with same month/day)
1Cell C5 can either be Gross or Net from a drop down list.
2Cell B9 lists 3/1/2008
3If cell C5 is gross, cell B10 should be the following year from cell B9 but with starting with 1/1/??? As the month and day(year start).
B11 would then be the following year from B10
(following month/day pattern).
4If Cell C5 is NET, cell B10 should be the following year from cell B9 using the same month and day 3/1/????
View 2 Replies
View Related
Aug 3, 2006
I am trying to select all the worksheets within my active workbook, and then copy them all to a new workbook. due to later calculations, this can only be done using the Worksheet.copy command. I am getting away with using the Worksheet Array command at the moment, but this can only select named worksheets, and the code will need to be ammended if any worksheets are added/changed etc. Is there any Select all worksheets command that can be used without naming indiviual worksheets?
View 2 Replies
View Related
Jul 18, 2009
how to select the same range of cells on all worksheets via VBA?
I tried google several times but could not find anything that helps. I need to select a range of cells on all worksheets and then clear their content. However, google only tells me to select all sheets manually, which is not good since new ones are added every now and then.
Is there maybe a possiblity to select a range on all un-selected sheets?
View 10 Replies
View Related
Jan 3, 2013
I would like to reduce the size of a macro, but not managed to have success.
My goal is to just have the cells of these worksheets (in the code below), selected
Code:
Sub SumazeCode()
Sheets("PEDIDO 2013").Rows("42:67").EntireRow.Select
Sheets("Print_Cliente").Rows("32:45").EntireRow.Select
Sheets("Print_Producao").Rows("30:43").EntireRow.Select
Sheets("Print_Orcamento").Rows("32:45").EntireRow.Select
Sheets("PEDIDO 2013").Rows("C43:D43").EntireRow.Select
End Sub
View 2 Replies
View Related
Jan 19, 2009
I was checknig here for shortcuts...
http://office.microsoft.com/en-us/ex...116591033.aspx
I wanted to find a shortcut to select all sheets in a workbook. There are about 30 worksheets in my workbook, and selecting all is a pain.
in Excel 2003
View 9 Replies
View Related
Jul 26, 2009
I am trying to write a macro to:
1. Randomly selects 50 rows from 834 on "worksheet 1". There are only two cells per row.
2. Then, it clears "worksheet 2" and "worksheet 3".
3. From each selected row in "Worksheet 1", it splits the two cells and copies the results into two different worksheets, one column per sheet.
4. The rows in the two new worksheets should be congruent (i.e. same selected order from worksheet 1). Keeping the order the same is important.
This is what I have so far:
--------------------
Sub Macro1()
Dim rng As Range
Dim iRow As Long
With Rows("1:834")
Do
iRow = Fix(Rnd() * 834 + 1)
If rng Is Nothing Then
Set rng = .Rows(iRow)
Else
Set rng = Union(rng, .Rows(iRow))
End If
Loop Until rng.Areas.Count >= 50
End With
rng.Select
Selection.Copy Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub
-------------------
View 9 Replies
View Related
Jun 24, 2008
I have a column where each cell contains the names of a variable number of worksheets in the format ["sheet1", "sheet2", etc. ] without the brackets but with the quotation marks. I would like to have some code that will select all of the sheets mentioned in a given cell. I found lots of threads about selecting an individual sheet based on a cell, but none about selecting multiple sheets. If it is easier, I can change the format of of the cells, or break each cell out into multiple cells in a given row. The best code I could come up with was
Sub Selects()
Dim strSht As String
Sheets("Criteria").Select
strSht = ActiveSheet.Range("L31")
Sheets( Array(strSht)).Select
End Sub
View 7 Replies
View Related
Jul 12, 2006
I have this workbook with 22 sheets and 21 are hidden. On the one open sheet there is a button that opens a userform with a listbox. I have radio buttons on the side to control whether the list box allows single selection, multiple selection, and extended selection. I want to change extended to open all sheets.
Anyway, I have the list box populated but I can't figure out how to code opening single sheets, multiple sheets, or all sheets depending on the radio button selected when the OK button is pressed. I know the listbox depends on the selected property but I am stuck. Here is the code I had but it is a mess. I am still new to VBA.
Private Sub OKButton_Click()
Dim Msg As String
Dim i As Integer
Dim UserSheet As Object
If ListBox1.ListIndex = -1 Then
Msg = "Please select a sheet."
Else
Msg = ""
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
For Each i In ListBox1..........................
View 3 Replies
View Related
Jan 20, 2012
I've got some code which some one posted me a link to on here which set up a pivot table on more that 1 sheets (using excel 2002).
I inserted this code into a rountine I do daily which works fine.
The problem Im having is that Im getting more and more info which I need to pivot over more than one sheet. So I was going to amend the rountine so It picked what ever sheets are in the work book to pivot.
At the moment I have to go into the code and name the sheets to pivot. Is there some code which can work out how many sheets that need pivoting and just do it with out naming them? and also just add a new sheet with the pivot on rather than having to name the destination?
I've posted the code i got given below and have highlighted the bit where I have to name the sheets.
Code:
'---------------------------------------------------------------------------------------
' Procedure : CreateConnection
' Author : KL (Kirill Lapin)
' Date : 18/08/2009
[Code]....
View 8 Replies
View Related
Nov 16, 2006
I need to get a macro to select all the data in column "A", sort it in ascending order, omit the blanks if any, then select (highlight) all the data so that another macro can be run.
When I record it, it will only record up to the last row I highlight but the data always changes so there could be more or less.
View 9 Replies
View Related
Sep 29, 2012
I am making custom time sheets to suit our agriculture business - these excel sheets get sent out to the different farm managers who send back in staff times.
This code below is brilliant and works perfect for our needs. However I need to be able to emailPDF the sheets not print.How / where do I change code so the selected sheets go to Save & Send via email as a PDF instead of going straight to the default printer .( hard copy )
VB:
Option Explicit
Sub SelectSheets()
Dim i As Integer
Dim TopPos As Integer
Dim SheetCount As Integer
Dim PrintDlg As DialogSheet
[Code] .....
View 5 Replies
View Related
Dec 18, 2007
I am trying to pause a macro on a protected sheet, select 2 adjacent cells (initially protected), utilize an existing drop down box to select a name from the list, copy the name from the list into the range of cells, then re-start the macro.
I had no problem when there was just one name (see John Smith below). I tried to use the InputBox command but needed to actually type in the name.
ActiveSheet.Unprotect
Range("C27:D27").Select
'ActiveCell.FormulaR1C1 = "John Smith"
' Application.CutCopyMode = False
' ActiveSheet.Paste
'Range("c27:d27") = InputBox("Enter value")
View 4 Replies
View Related
Apr 20, 2008
I have a workbook with a 2 macros "PopulateSheetlist" and "SaveEditedversion"
Normally they are each button operated, and prompt the user with vbYesNo style options. I wanted to write a Macro, say "Macroautomatewkbk that would automatically answer the prompts.
Sub Macroautomatewkbk ()
Call PopulateSheetlist
' Always answer YES or OK to any prompts this macro may offer
Call SaveEditedversion
' Answer No for the 1st prompt and YES for the 2nd prompt
End Sub
MsgBox "Both macros "PopulateSheetlist" and "SaveEditedversion"
' Some error handler here, don't know how this should work exactly.
Could any one please explain how to fill in code in the commented sections in the above sample code?
Edit: I tried recording a macro to do the above, but it only showed the zooming and scrolling that occurred, none of the button prompts being answered.
View 9 Replies
View Related
Nov 4, 2013
I have a workbook that contains, say, 50 worksheets: the first two worksheets summarise the data and are static in that they don't move position. However, the next four worksheets contain certain data for any given month. Each time a new month comes along, say, November, I insert four new worksheets after the two static ones as a result October's four worksheets are simply moved down the line in terms of worksheet order.
I need a macro to refer to the first six worksheets only (not the other tabs). I opted for index referencing for each worksheet, ie one - six. Now within these six worksheets in any given month, I need to sort the data by a certain column. The problem: in sheets 1,4,5 and 6 I need to rank by column E, but in sheets 2 and 3 I need to rank by column C. I have stepped through the code, which works for sheets 3-6, but doesn't seem to refer to sheets 1-2.
Sub WorksheetLoop()
'
' Loop through an indexed number of worksheets; _
' & this ensures that the worksheet range is dynamic _
' and is able to adjust when new sheets are added/removed, etc.
'
'Dim ws As Worksheet
Dim i As Long
Dim ws As Worksheet
[code]....
View 2 Replies
View Related
Dec 19, 2006
I used to do some VB stuff several years ago, but it's unfortunately not exactly like a bicycle and I'm having a hard time remembering what I'm needing to do.
I have several functions in my macro which are supposed to select an entire column of data and do various things with it, from cutting & pasting to combining data from multiple text cells. Also it's got to input in one column, a text string "CIS". Anyway, if I tell it the whole column, then it winds up overflowing beyond what I need, and I really only want it to affect as many rows as have data in the spreadsheet.
Here's the data:
'Unlimited Range K here', that's where I want it to select to the last row of data for the range.
Sub ComputeCSV()
'
' ComputeCSV Macro
' Macro recorded 12/18/2006 by Matthew Roberts
'
' Keyboard Shortcut: Ctrl+l
'
Columns("G:G").Select
Selection.Cut
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Columns("G:G").Select
Selection.Cut
View 12 Replies
View Related
Nov 11, 2008
I need to create a new macro that will select all rows that have data and create a (3) pivot tables.
I have tried to create macros that will create a new tab and populate the pivot table. I keep getting an error that says "subscript out of range", so instead of creating the tab during the macro I have created the tabs as part of the template.
Again the problem is when running the macro with more rows, the macro doesn't recognize the additional rows. Ctrl + A is used during the macro but is hard coated for only the number of rows it selects, Ctrl + A twice is giving me "blank" data in the pivot tables. I have attached a sample sheet with 14 rows. Next month there may be only 10 rows or 50 rows. I have macros created for the pivot tables to view.
1: How can I create a macro to select all rows with data?
2: Can I create 1 Macro to create all 3 of the pivot tables needed?
3: Can the macro also create the tabs during the execution of the macro?
View 7 Replies
View Related
Nov 19, 2008
I think this may be a little difficult (for me at least!) but would it be possible to have a list of the open workbooks popup when I run my macro, so that I may select which workbook to run it on?
The macro itself just does some formatting of the sheet, but it is contained in a master file.
View 5 Replies
View Related
Feb 25, 2009
Can anyone help me to write a macro to select certain cell depending on a value in other cell.
I.e: If cell A100=1, then select cell B1, but if cell A100=2, then select B2, and so on.
View 7 Replies
View Related
Mar 2, 2009
I have a need and thanks in advance to everyone who can help me with this: Run a macro to copy from cell B2 in worksheet2, then paste that into every cell that has the value = 1 in worksheet1.Range("B2:Z40"). Cells in range B2:Z40 will be updated each week with the value varied from 1 to 10.
View 5 Replies
View Related
May 5, 2009
Testing to see if this works ( ignore the multi posts, forum had a problem )
I basically need a macro to select whats inside the blue border area and print it.
I plan to include a button next to each invoice so i can just click the button and have it print the adjacent invoice.
View 9 Replies
View Related
Aug 27, 2009
Is there any way to create a script or macro to "find" a number from column A that is in column B, then select it that row? Then it willl repeat that process with the next number in column A until the end....
View 14 Replies
View Related
Sep 30, 2009
i need is a macro that once run selects a certain (or multiple) comboboxe's values. Eg I select macro 'test' and it selects value 1 on combo box 1, value 2 on combo box 2 etx..?
View 2 Replies
View Related
Nov 19, 2009
I have a workbook with around 350 worksheets. A column in the main sheet contains a list of part numbers which correspond to the names of the worksheet tabs. When a cell on the main sheet containing a part number is selected I would like a macro to find the corresponding worksheet, move that worksheet to the end of the row of tabs and open it.
I am using excel 2007
View 12 Replies
View Related
Jul 22, 2011
I record macro and hit select all and that action won't record. what's the macro code for select all in excel. i assumed it was the same as word
selection.wholestory
but it's not
View 7 Replies
View Related
