this it the row. Article No. is A1, but G04532 is A10073 because of sorting. I want to select A1 and do a for loop downwards to see if the next cell is the same. Ultimately i want to copy A1:A7 because they are the same....
View 9 RepliesI have the following in WorkBook and would like it executed when I hit enter after entering data into "Quarter":
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Set WatchRange = Range("Quarter")
Set IntersectRange = Intersect(Target, WatchRange)
If Not IntersectRange Is Nothing Then Application.Run "PERSONAL.XLSB!ChangeRangeNames"
End If
Application.EnableEvents = True
End Sub
Is there a way a macro can be paused then resume running the macro by a keystroke, not a time delay.
View 3 Replies View RelatedSince I practically never deliberately hit Control-2 through Control-5 -- and do hit them "more than never," I thought I'd grab them with the KeyPress event (or KeyDown?). Then it hit me that I'm not sure where it would go.
This is for every workbook so this would generically reside in personal.xls. ThisWorkbook doesn't seem like the right place; I want its scope to be ActiveWorkbook. Would it require a class module (actually, I already looked, and don't see any keyboard events under "App")?
I have a list of asset numbers that I am displaying to a user. I have a cell where the user is to type in the asset number. What I would like is to be able to display a list of matches in another group of cells.
I.e. - if the cell is populated with "D49", the list on the right will contain all asset numbers starting with "D49"...
I can do this easily enough if I wait for the "Change" event on the worksheet - but this necessitates the user typing some in, hitting enter, etcetera.
Is there any way to trigger an event per keystroke instead of on worksheet.change?
I want (using keystrokes only) to Save As my workbook with the data in a certain cell. However, when I select this cell, and then ctrl + c, it copies the cell (not just the data inside), and so it doesn't let me paste this as the name of the document. Does anyone know how to use keystrokes to highlight the data itself in a selected cell.
View 3 Replies View RelatedI have a file containing data which is about 6000 rows deep by 15 columns
There is a column which has a number in each row which starts at 1 and going down to 100
I want to continue this down to 6000 and I know I can put the little cross at the bottom side and drag it down if I like
Any faster way to do this like a keystroke shortcut.
How to set up a sheet with single-keystroke data entry. I am writing a sheet to store golf scores. I need to be able to key in scores at a high rate of speed.
The allowed data are: 1, 2, 3, 4,5 6, 7, 8, 9. I want the operator to be able to press 3 (or Alt-3) and get:a) a 3 is typed into the cell.
b) the cursor moves to the right one cell.
Etc. for 1 thru 9.
I have a userform with 3 option buttons. Each buttin is set to display another userform.
Private Sub OptionButton1_Click()
Userform1.Show
End Sub
Private Sub OptionButton2_Click()
Userform2.show
End Sub
Private Sub OptionButton3_Click()
Userform3.Show
End Sub
Private Sub UserForm_Click()
End Sub
Right now the form is running perfectly. If I select an option with the mouse the correct form shows right up. The issue I have is that, the excel file will be running on a computer that will have no mouse. It will be using a barcode reader as its primary input source. What i would like to do is have the user swipe a 1,2 or 3 will the barcode reader or keypad.
I am using a bar code gun to enter numbers. There are two bar codes on each item that I am scanning requiring two columns for each item. Right now I squeeze the trigger and the number pops up into the currently active cell. Then I use the arrow key to move over one cell and squeeze the trigger for the next number. Then Down arrow following with a left arrow to move the highlighted cell down one line back to the first column. Kind of inefficient because although repetitive there is room for errors on my part.
Is there a way to make it that every time I press the space bar or some other key that excel highlights a cell following my desired pattern? At least for the time that I am using the bar code gun? Making it so pressing the space bar would advance the selected cell over, then down and left, then over, then down and left, alternating with each press following that pattern ad infinitum. I have to scan hundreds of these babies.
Would this be difficult? I’m not the programming type. Any help would be greatly appreciated. At least I no longer have to manually type each number in. That was a real bummer.
I'm building an Excel worksheet into a kind of dashboard with CommandButtons and TextBoxes to drive the functionality of the rest of the document.
I'm trying to recreate some of the functionality of a UserForm (e.g., tab order). I'm using the CommandButton's KeyDown event to respond if the user presses Enter:
I've defined a number of variables in my spreadsheet. When I want to use one I type "=variablename" and 'm presented with a list menu.jpg
In the above example, I have several variables starting with the word "Harvard" (a town, not the university :-)
How do I select one of these without having to double click with the mouse.
Up and down arrows allow me to highlight an item but I cannot find a keystroke that allows me to select the highlighted item. Instead I have to lift my hand off the keyboard and use the mouse.
Excel 2010
I have a macro that, when run, needs to read the contents of cell B5, and run the code that it contains.
Cell B5, for example, would contain the text:
Range("B13").Formula = "SUM(D12:D14)"
I need a macro to "execute this code", as if it were in the macro itself.
I have assigned the above to a variable, but am not sure how to execute it.
EG.
Dim the_calc
the_calc = Range("B5").value
Now, how do I run the_calc ?
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'm trying to add buttons to an excel spreadsheet at runtime. Each row in the spreadsheet should have its own buttons. I was able to create and edit them with the ActiveSheet. OLEObjects.Add() function, but after that, when i was trying to create code dynamically to react on the buttons' click events excel crashes (actually it works for one button, but not if my routine for adding a new button and event code is called more than once in a row!)
The code below works if the AddCmdbuttonWithCode() is called once, but crashes if it is called two or more times. Excel tries to restore the document after the crash and the first button and its corresponding click event code is visible and works... but NOT the second button and its event code...
The only way I can create multiple buttons right now is by calling my method once per click, opening the vba editor, changing the parameters for my AddCmdbuttonWithCode() routine and execute it again. After that I have mutliple buttons in different lines which all work fine (so the concept seems to work).
The problem seems to be the insertLine method, since everything seems to work if i leave it out (except for the code generation of course, since this is done by this part of the code :-) ). Is it possible that calling the insertLine Method can't be called multiple times? I don't know... any ideas? Feel free to test my code - it's small, easy to understand and has comments.
'this code calls the method which creates the buttons in specific cells with specific names
Private Sub CommandButton3_Click()
'the first call always works!
AddCmdbuttonWithCode "Edit_111_111_114", 23
'the second one crashes excel
AddCmdbuttonWithCode "Edit_111_111_115", 27
End Sub
I'm using a CALL Macro to split up a HUGE macro into different pieces:
Code:
Sub RSLDASHBOARDV2()
'Macro recorded 12/14/2010 by Ryan R. Koleno, Pharm.D.
'Last Updated 7/10/12 by Ryan R. Koleno, Pharm.D.
'Do Not Modify Code Unless Given Proper Privileges to do so.
Dim APPSPD As Worksheet
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
[code]...
The first few macros dealing with page setup and what not work fine but when it hits the Pivot table code for the STATSPIVOT macro it errors out stating: "Run-time error '1004': Unable to get the PivotItems property of PivotField class' at this point in the code:
Code:
objField2.PivotItems( _
"TRC").Position = 1
objField.PivotItems( _
"MEDCO MAIL OR AOB").Position = 2
When this macro is not split up it worked fine as written. Am I overlooking something in the Call Macro's code or is there a variable I'm not aware of. I have included the Pivot Table code that errors out as well.
Code:
Sub STATSPIVOT()
'STATS PAGE BASED ON STATS DATA TAB
Sheets("STATS DATA").Select
Dim objTable As PivotTable, objField As PivotField
ActiveWorkbook.Sheets("STATS DATA").Select
Range("A1").Select
[code]...
I am making a spreadsheet that sorts and pastes, but I need to know if I can add a code to the Sort and Paste Macro that will open the second spread sheet needed without just already having it open and using the
Windows("estimate sheet one.xls").Activate
Refer to attached file.
I have below code which successfully create a macro button and assign the macro correctly.
This is only doing for one sheet and i need to modify the code so that it does for all sheets of the workbook.
[Code] ....
Test Macro_Botton.xlsm‎
I have recently grabbed the very helpful "Macro to delete VBA code" from this site, and it's working but with one small problem.
My worksheet runs a lot of code, then deletes all macro code and saves itself.
The problem is the next time i open I still get the macro security warning!
I've checked thoroughly and there is definatley no vba left anywhere.
If I open the document, enable macros, and save it, then open it again, I no longer get the warning.
I written VBA code to create a new sheet and embed a command button on it. I want to assign a macro to this button but when I click on the button the assign macro button is greyed out. I have plenty of macros saved and the VBA code has finished running so why should this be?
View 7 Replies View RelatedI use excel 2002 but some of my office are on 97, i want to add a small workbook open event code which works for me but debugs for the others?? The code is basically, go to a tab, on that tab and that range sort..
View 2 Replies View RelatedI've developed a little software using Excel Macros & VB. To prevent people from accesing the code I protected the code blocking it from visualization. It seems not enough as an acquaintance of a friend cracked it in 25 minutes. Or so he says. So I'd like to know if there is a better way to protect the font code.
View 8 Replies View RelatedHow to run the macro recorder and have even had a few minor successes with VBA.
I know it's a simple "if-then" code but I can't figure out how to write code that will run a particular macro if a cell contains a certain value.
For example, if the value in cell A1 is "1", then I would like a Macro I've called "Macro1" to run. If the value is "2", run "Macro2", etc.
I have a sort function in one of my macro. Sometimes it works, sometimes it does not. I can't figure out why. I am trying to sort columns A-F and each column has a header.
View 2 Replies View RelatedI've added the following code into macro i have assigned to the button on this attached worksheet which deletes any row where the cell in the A column is blank.
View 6 Replies View RelatedThe following code attempt is in a userform with one print button, one cancel button and six checkboxes refering to which sheets that are needed to print.
View 2 Replies View RelatedI 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
Is it possible to insert for example Private sub Workbook_open() into This workbook by executing macro?
View 8 Replies View Relatedi need a macro that will look in column B and find the following rec codes, if found then keep these codes else delete (Entire row) for all other rec codes in this column,
"BROWN", "CHASE", "CITIAMP", "CITICUST"
I used the following statements to (try to) calculate an IRR in my VBA program and received a runtime application error 1004. Tried several variants of the statement but cannot seem to escape the error.
Dim IRRValues(12)
For iIRR = 65 To 74
For iTIGRcubYear = 1 To 11
IRRValues(iTIGRcubYear) = Worksheets("TIGRCub"). Cells(iIRR, 3 + iTIGRcubYear)
Next iTIGRcubYear
aIRR = Application.WorksheetFunction.IRR(IRRValues, 0.2)
Worksheets("TIGRCub").Cells(iIRR, 14 + Scenario) = aIRR
Next iIRR