I'd like to create a macro that will do this trick:
Only activates when I select a cell in a ListObject.When activated: selects the entire first row of that Listobject,and only selects the cells in the range of that Listobject.
Because I have more Listobjects, I'd like to have one code which works for all of them.
I am looking to create a loop in a ListObject object that does calculations depending on the value of the current certain row in a column. This is the code I have so far:
[Code]....
I am having trouble with the loop; as you can see, the nested for loop will go through all the 'weight' in the column before going to the next 'grade'. I just want the loop to reference the same 'weight' that the 'grade' is on and move on. But I am not sure how to reference each 'weight' as I progress through each 'grade' in parallel.
I am aware that I can do this with regular cell references:
[Code] ......
but I am more interested in learning on how to work with the ListObject class.
I want the value of the first column in the active row in a ListObject. I've tried
Code:
MsgBox ActiveCell.ListObject.ListRows(ActiveCell.Row).Range.Address,
but don't know how to refer to the first column in this row. I've also tried
Code:
MsgBox ActiveCell.ListObject.ListRows(ActiveCell.Row).ListColumns(1).Range.Value ,
but it returns an error message.
i am trying to sort a table in Excel 2007. I am getting a syntax error that i don't understand as the arguments for the sort method are optional.
Sub SortTable()
Dim table As ListObject
Set table = ActiveSheet.ListObjects("Table_INDEX")
Dim columnToSortBy As Range
Set columnToSortBy = table.ListColumns(1).Range
With table
.Sort.SortFields.Clear
.Sort.SortFields.Add (columnToSortBy, xlAscending)
With .Sort
. Header = xlYes
.MatchCase = False
.Apply
End With
End With
End Sub
I am using Excel 2007 and I created a table (i.e., listobject) using the macro recorder as follows:
Code:
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$3:$J$50"), , xlYes).Name = "MyData"
Questions:
1. How do I delete this table via VBA?
2. How would I check to see if this table already exists so it follows this logic:
If "table does not exists" then
'create it (using the line of code above)
End If
If only 1 row is selected, it works fine, but if I've selected multiple rows it continues forever. I want to create a row in my ListObject based on the number of selected rows.
Code:
Sub CreateRow()
Dim rRow As Range
With ActiveSheet.ListObjects(1).ListRows
For Each rRow In Selection.Rows
.Add (rRow.Row - 2)
Next rRow
End With
End Sub
I'm trying to copy a whole bunch of tables with identical layout to a master table, so I can create a whole bunch of pivot tables that include data from ALL the various tables. The source tables MAY be filtered, and I can't work out how to copy them easily while also INCLUDING any hidden/filtered rows while at the same time leaving any filter settings on the source tables intact.
If I use something like range("Table1").Listobject.DataBodyRange.Copy then it only copies the VISIBLE rows.
But I want ALL rows to be copied to a master table.
1. I don't want to unfilter the sources tables, because users might still want the source tables to remain exactly as the user filtered them. (However, it doesn't matter if the DESTINATION list is filtered or not). I realise that I could copy the entire sheet to a temp sheet, then unfilter any tables on that sheet and THEN copy these to the master list. But wan't to know if there's a simpler way.
2. I DON'T want to use SQL to create a pivot table directly from the tables, because the tables will have further information added to them from time to time, and so if I use SQL to make a pivot directly from them, I'll have to recreate the pivot cache using that SQL query each time, which might muck up the settings in any existing pivot tables. I realise that I could use SQL to copy the data to a 'staging area', and just point the pivot table at that.
3. I can't use PowerPivot, because its not installed in this environment.
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.
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")
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.
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
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?
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.
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.
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 RelatedTesting 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.
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 Relatedi 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 RelatedI 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
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
macro to select the header and rows below till the next header is reached if column L is less than column J for the whole sheet which can be up to 5000 lines or more. Then copy all of those to a new sheet. Here is part of the spreadsheet for a visual:
Product number
Name
Name
Finish date
Planned Qty
Mfg U/M
Lvl
Component
Name
[code].....
I have an Excel 2003 spreadsheet, and in certain cells, I have a single letter. (e.g.) In A1, I have the letter A, in B1, I have the letter B etc.
I am trying to write a macro which will allow me to select a specific row, and depending on which letter is in which cell, set the cell directly below it to the numeric equivalent of the letter (e.g.) if in cell A1, there's the letter A, I want the number 1 in cell A2; and if in cell E5, there's the letter Z, I want the number 26 in cell E6 etc.
All I've got, is a VERY long macro, which will take row 1, and change each cell value to it's numerical equivalent. Here's an extract:
For Each cell In ActiveSheet.Range("A1:Z1")
If (cell.Value = "A") Then
cell.Value = "1"
End If..................
range("A1").select
can I replace A1 with l where
l = worksheets("List").cells(3,2)
?
it doesnt like it, is there a better solution?
I have two lines (in a sheet) that I am trying to move based on a formula. The wierd thing is I can get the first one to work fine, but when I select the next line it will not work. I have Line 2, and Line 10. Basically the code is:
ActiveSheet.Shapes("Line 2").select
Selection.ShapeRange.Top = 159
ActiveSheet.Shapes("Line 10").select
Selection.ShapeRange.Top = 300
For some reason it just moves Line 2 no matter what I do.
Below is a macro I'm trying to create. The basically it's supposed to be a quick simple macro to save lots of time. I want to select current tab, move/copy (create copy) to the end....then select the tab I've just copied and copy paste special the values (then rename the tab to todays date) FYI the tab I'm copying is called rebuy shipping.
However, I want to then do the same at a later date with the most recent tab, but with the below code it always selects and copies the original tab:
Sub macrorebuy1()
'
' macrorebuy1 Macro
'
' Keyboard Shortcut: Ctrl+k
'
Sheets("Rebuy Shipping").Select
[Code] .....
I assume this is a simple error. I've tried inserting Activesheet.previous.
I have two slicers, say slicer 'F' that slices on fields 'x', 'y' and 'z' and slicer 'E' that slices on fields 'a', 'b', 'c'.
I select these values by using a very simple macro. For instance to select z in slicer "F", I have the following code:
With ActiveWorkbook.SlicerCaches("F")
.SlicerItems("x").Selected = False
.SlicerItems("y").Selected = False
.SlicerItems("z").Selected = True
End With
However, I want the selected fields to have more flexibility than which is possibly by coding them in VBA. Ideally, I would want to write the selected fields in a cell in Excel (also if there are more of them!), then let the macro retrieve these fields and use them to apply to the slicer. So I write in a cell slice on X and Z, the macro picks this up and performs this operation.
Is this possible?
I'm in charge of taking a report; streamlining its functions; and automating future reporting.
I'm using a database and some of the reporting function Access has. For another variation I'm forced to export the query to excel and transpose the vertical layout horizontally.
I'm making the entire process automated via a macro. The code is too long to post in its entirety but here is an example of what I'm trying to accomplish:
the macro code to select the cell after the bottom of a column of data e.g. I have data in A1:A300 and I require the macro to automatically calculate the last row in the range (in this case A300) and then to select A301 (in this case)
(I know I can record a macro but the number of rows can potentially differ every time I run the macro)
N.B. Excel version 2003
I am working with a spreadsheet that has asterisks in place of text that should be added. The problem is that it is surrounded by HTML code. I need to be able to select the cell, go to, and highlight the text, where I can hit delete, or just start typing to replace the asterisks, BUT NO OTHER TEXT IN THAT BOX CAN BE EDITED.
Attached is an example of what I'm wanting to replace.
example 1.jpg
I want to create a macro that will go to the text I have highlighted here, and STOP just how this is, so I can simply put what I want in place of the asterisks, and move to the next cell.
Is this possible?
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.