I used macro recorder, and this code was the result. Is there a way to shorten this code up? The more I use macro recorder, the more I'm beginning to realize that the code generated from macro recorder can be very sloppy.
View 8 Replies
I hide all Excel standard tabs and thus need a button on custom tab to record a macro. (I did this successfully with custom menu in Excel 2003.) In 2007 ribbon, I've reused the code for a button's OnAction, now going to callback that runs:
Application.CommandBars.ExecuteMso ("MacroRecord")
In Excel 2003, the stop button appeared automatically for me. But in Excel 2007, with hiding standard tabs, etc., I see no way to stop recording, other than running my button to return the Developer's tab, where the Record Macro button has changed to Stop Macro.
I'd like to either add a second button to my ribbon to stop recording the macro (but I can't find an idMso to use in a callback) or have my Record button change to Stop button, like Excel does. But I can't come up with correct code.
Have recorded a Macro which is doing a great job, but when i try to run the same macro from other pc its not running,pops an search error.
View 9 Replies View RelatedIs it possible to use the Macro recorder in Excel to store user variables that they put in through a UserForm? So say when a textbox on a userform is changed, it records a macro of what is put into the textbox, which it can then call to retrieve the value.
View 4 Replies View RelatedThe way i have been creating macros is by going to the tools menu.....macro....then..... record new macro.
I have a file which I have re-formatted using a macro as described above however because i receives files every month to do updates every time i open a new file and try to perform that same macro it either wont work or it wont format the correct rows.......is VBA the solution to this????
I used the macro recorder to create a pivot table, but to verfity that it works.
I get a "Add fields method of Pivot Table class failed"..
and this was highlighted:
ActiveSheet.PivotTables("PivotTable2").AddFields RowFields:=Array("Warehouse" _
, "Product", "Description", "Data")
I have recorded a simple macro ( copying a cell, and then pasting the formula into various others), and I get the following error
Compile Error: Argument Not Optional
I have highlighted where the error first happens
Sub Macro3()
'
' Macro3 Macro
' Macro recorded 24/08/2007 by Michael Traynor
'
'
Range("K7:K8").Select
Selection.Copy
Range("K167:AJ168").Select
Range("AJ167").Activate
Range("K167:AJ168,K175:AJ176").Select
Range("AJ175").Activate
Range("K167:AJ168,K175:AJ176,K183:AJ184").Select
Range("AJ183").Activate
Range("K167:AJ168,K175:AJ176,K183:AJ184,K191:AJ192").Select
As I've said I didn't write this, it was recorded from Excel.
I've created VBA code in Access 2007 to create a column chart in Excel, and it is working. I need to change the rotation on my category labels to 270 degrees vertical. When I record a macro on the chart in Excel 2007. I only receive the following
Sub chartingRotation()
'
' chartingRotation Macro
'
'
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Axes(xlCategory).Select
ActiveSheet.ChartObjects("Chart 1").Activate
End Sub
How can I get the macro recorder to record changes to chart properties?
I have used the macro recorder to generate the select range and clear part of the following macro.
Private Sub CommandButton2_Click()
Dim test As Worksheet
Sheets("Industry").Copy After:=Sheets(Sheets.Count)
[Code]....
I get the runtime error 1004 - Select method of range class failed.
I have used similar script in other macros without error.
Had 2003 now 2013. Trying to get the macro to select different printers for different doccuments. 2013 macro recorder does not record any printer info or path, all printers show the same wording just application print...
How can I get the recorder to acurrately record and diferentiate printers?
I am using office 2011 for MAC, and am trying to create a macro that changes the color of the selected cell(s).
if I start recording the macro
click the fill color button pull down and change the color on the edit section of the ribbon
Stop the macro
No code is recorded as below but the cell did change color to whatever I selected.
Sub Macro13()
'
' Macro13 Macro
'
'
End Sub
[code].....
The colorIndex is automatic no matter what color I choose.
When I run the macro there is no change to the selected cell, but the border is destroyed.
What is the most efficient VBA code for the following macro recorded codes? I wish to write more efficient code versus the lengthy, cumbersome macro recorder code.
1) Macro Recorder Code to Copy One Sheet to Another
Sheets("Data Apple").Select
Cells.Select
Selection.Copy
Sheets("Banana").Select
Cells.Select
ActiveSheet.Paste
2) Macro Recorder Code for Replacement Purposes......................
I have a question concerning Macros and the Disable/Enable prompt. My boss has a spreadsheet which has been used for years and he recently wanted to and did remove the macros from the spreadsheet (they were no longer necessary), but the disable/enable prompt still appears when the spreadsheet is opened. I replicated this in a test spreadsheet with a simple insert line macro and received the same results. Is there a way to remove the macros and the disable/enable prompt once they are removed? I know about setting the security to low to not see the prompt, but I would think that once the macros are deleted, the prompt should not appear any more.
View 2 Replies View RelatedI am trying to create a macro that would be able to delete an entire row of data if a value in column A is equal to a range on a different sheet.
On Sheet “ISQ Raw Data”
If any value in column A (starting in row 2) is equal to a value on Sheet “Old Response IDs” Range A:A(all of column A)
Then Delete that entire row in Sheet “ISQ Raw Data”
I am trying to print one of the Sheets in my Workbook by looking at a specific cell that can have one of the sheet names.
View 7 Replies View RelatedIs there a macro to delete an entire row if a duplicate entry appears only in a certain column.
1. Look for the column header with the name "File Number"
2. Anytime the same number under the "File Number" column appears more than once in that column, keep the row that contains first occurrence of that number buy delete the entire row anytime that number is repeated in another row in that same column.
This is regardless of what is contained in the other columns. For example..let's say these cells contained this data...
B1 - UTE00225
B2 - UTE00546
B3 - UTE65513
B4 - UTE00225
B5 - UTE00225
In this case, I would want to keep rows 1, 2, and 3. But, I would want to delete rows 4 & 5 because the number "UTE00225" has already appeared first in B1. I'm using Excel 2003.
I have recorded a macro that will copy and paste information from text files to two separate sheets in a workbook. Previous versions of this have worked fine but now I have a "subscript out of range problem" for this line: Sheets("Raakadata").Select
I'm doing this project to someone else and the weird thing is I don't see this error in my computer but they have it in theirs. The workbook has been recently renamed to oljy_vedesta.xls but it should be correct in the code. The syntax should be fine as macro recorder has been used but still this error comes up with the another computer (all the required files are there).
Sub Tulosten_haku()
ChDir "C:Makro"
Workbooks.OpenText FileName:="C:MakroOLJY_VEDESTA_QC.TXT", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:= Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1))
Workbooks.OpenText FileName:="C:MakroOLJY_VEDESTA.TXT", Origin:=xlWindows _
, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1))..........................
Is there a way to get Excel to look down a column for a particular value and where that value appears hide the row it appears in?
We have a series of reports which all have the same template, however we don't want some customers to be able to see some of the products as these are own-label products for which aren't offered to everyone.
I'd like to add this as a macro to a combo-box so that the user can view a report for their customer and then send a copy to the customer with the knowledge they won't see anything we don't want them to...
a macro that will delete a line if the message #N/A appears. Right now I have a macro that will hide a row if it has a zero in it and it loops all the way till it hits "done" would like to add the ability to delete a row with #N/A in it, here is my code for the hide zero macro
View 9 Replies View RelatedI have to loop through a range in A, and if the letter "C" or the number "9" appears in the cell anywhere (it won't be a whole cell value) then I need column B to show "C".
I know how to do a whole value loop, but I'm stumped on a 'find X anywhere' search.
SEE ATTACHED FILE
All,
I have a spreadsheet that lists each employees hours for the last 4 pay periods...each is in it's own row I am trying to find out their average.
I am using the subtotal function to average their hours and that works fine. BUT...my boss doesn't want to see 4 rows for each person. He just wants to see one row for each person and when I collapse the rows, it only shows the employee's ID, not the name (because that's what I told the subtotal function to do...add subtotal after every change in employee ID).
name appears instead of the employee ID? That's useless to him because he hasn't memorized all the Employee's IDs.
I would like to have a list of names in column A1 Smith, A2 Jones, A3 Johnson etc. Everytime someones name appears in E1-E20 I would like the adjacent column next to that persons name to turn red. Example: I type Smith in E14 -> B1 turns red. If it's not too complicated it would be good if excel could recognize the name in any font,capitols etc.
Lastly if I could have a pop up appear if a persons name appears more than once in column E that would be great. Example type Smith in E1 and then when I type smith in E4 pop appears--Name already used once do you want to continue?
I have an Excel file that contains macros that I made. Sometimes when I open the file I do not get prompted to enable macros. I DO want to get prompted so I can enable the macros. Any idea why this happens? By the way, my macro security is greyed out so I cannot change it.
View 3 Replies View RelatedI'm putting together some data for a pivot table.
In Column Q I have a list of products. In column E these products are listed a number of time (depends on the number of regions which may change). What I am looking to do is have column A show "1" the first time the item group is in the list, "2" the second time...up to 12. Basically I'm looking to have a month (#1-12) appear in column A next to the item. If there are 3 regions then then each item will appear in the column E list 3 times. I'd like each group of 3 items to have a "1" the first time they appear, "2" the second...etc.
Here's an example....
1 - Item#1
1 - Item#1
1 - Item#1
1 - Item#2
1 - Item#2
1 - Item#2
2 - Item#1
2 - Item#1
2 - Item#1
2 - Item#2
2 - Item#2
2 - Item#2
3 - Item#1
3 - Item#1
3 - Item#1
3 - Item#2
3 - Item#2
3 - Item#2
I am trying to use a MIN() function on a row of numbers; the row is not completely full (some days data was not recorded) and when I have a blank cell, the result in the MIN() frame is 0.0. This is unless of course I have a negative number (which I don't, but for the sake of argument)
This is my current function:
{=MIN(IF(AND(MOD(COLUMN($D10:$DL10),5)=1,CELL("CONTENTS",($D10:$DQ10))0),$D10:$DL10))}
It works like:
Take every 5th column starting at the second.
Try to ignore any cell that contains 0. (This I am trying to get to filter out the empty cells; I have tried ISBLANK(), ISNUMBER() and still get nothing)
Then return the cell to the MIN() function.
That is the long winded thing of it all, basically it can be summarized as this:
{=MIN(D10:DL10}
I have also tried some other code which I was told did the same thing essentially (which it does) but is shorter and nicer:
{=MIN(IF($B$5:$DQ$5="Q*",$B10:$DQ10))}
Which will check for the proper heading on each Column.
These functions work fine with AVERAGE/MAX as far as I can tell, just not with MIN().
As a side note, none of the cells leading up to this function contain "0".
I have a range ie C2:D400.
The word "ball" appears many times in this range. How do I determine the last row that "ball" appears in?
there is a strange character that appears in an excel spreadsheet. It looks like a square with a question mark in it.
what this means and am I able to remove them
I have imported a jpeg graphic and it appears in excel as a black box. What can i do to rectify this?
View 4 Replies View RelatedI tried using Conditional Formatting, but for some reason it didn't work. I want a cell to be highlighted and/or bolded when particular text is written. It can be in any cell. This can also include blank cells (if possible within a given area such as 20 cells by 20 cells)
View 3 Replies View RelatedI am in the process of developing a tool to generate Bar charts for a set of metrics data. PFA the screenshots for the bar charts. enough spacing is needed in the bars.
ActiveChart.ChartType = xlColumnClustered
i had also axes.group=2 secondary axis.
