the following code works well i have a range of cells(e1:o17) i click on one of those cells to enter a score into (a2) the next cell i click enters a score into (b2) ok so far but if i need to enter the same score consecutively as needs to be done from time to time i cant do it because the cell is still active.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("d1") = Range("d1") + 1
If Range("D1") = 2 Then Range("a2") = ActiveCell.Value: Range("c2") = 501 - Range("a2")
If Range("D1") = 3 Then Range("a3") = ActiveCell.Value: Range("c3") = Range("c2") - Range("a3")
If Range("D1") = 4 Then Range("a4") = ActiveCell.Value: Range("c4") = Range("c3") - Range("a4")
If Range("D1") = 5 Then Range("a5") = ActiveCell.Value: Range("c5") = Range("c4") - Range("a5")
I have a number of buttons on a daashboard that run different macros.
Is it possible to have the most of the buttons deactivated until a cell on a different sheet has a value in the there (Text or number) turning them active?
I've got working routines that do some action upon double-clicking within a specific range of cells. I want to be able to "wrap" this routine within a routine that will record the activeCell prior to the double-click and, upon completion of my routine, return to that prior location.
with some basic code. I want to check the activecell, if it's blank then copy the contents from the cell above, if it's not blank, leave it & go down to the next cell & repeat until last row.
I have placed the following code in my spreadsheet but it's not working!
the code after option explicit (now at the bottom) works, (thanks to Andy on here!) but all the disabling the right click and cut/copy/paste etc doesn't.
Code: Private Sub Workbook_Activate() Application.CommandBars("Ply").Enabled = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"",FALSE)" End Sub
Code: Private Sub Workbook_Deactivate() Application.CommandBars("Ply").Enabled = True Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"",TRUE)" End Sub
All of a sudden my right-click isn't enabling when I reopen Excel. I can run the macro
I need to name a cell that is the active cell. The active cell can be any cell that is selected at the time I need to name it. I can get it to name the cell using the cell address, but I don't know how to change it to the active cell. Below is the code that I tried, but the syntax that I tried to say what cell is to be named simply isn't correct.
I have an excel sheet with date as the first column and all other data being numeric. I put in a code to increment by 1 everytime the user clicks on a cell, the contents within it. the code is below.
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("B2:H100")) Is Nothing Then Cancel = True Range(Target.Address).Value = Val(Range(Target.Address).Value) + 1 End If End Sub
This does its job for the time being, but I want to allow changes only to the row which has the current date and deactivate all other rows for any editing. So that if I click anywhere else but the row with the current date nothing happens.
I have some code in the BeforeClose event of the workbook - it worked the first time I tried to shut down the wb, but never since. I opened a new wb and copied in the code and again, it worked first time, but not since. The code is just calling a function, nothing heavy. I've tried the Deactivate event as well. I'm more of an Access VBA kind of gal, so don't know if I'm missing something big here.
I need to perform an action (unhide all columns) whenever I switch to a different worksheet.
Detail: I have a file with 2 tabs (worksheets). Tab 1 contains daily data, and when people are done with the current week they group and hide the columns for that week. This allows them to only view the new week and do an easy copy/paste into other applications. Tab 2 totals up the daily data from Tab 1 and shows monthly totals. The problem is that when they hide Tab 1 columns for past days, the formulas in Tab 2 don't "find" that hidden data. I would like to write a basic code that unhides all Tab 1 columns when I switch to Tab 2 so the formulas on Tab 2 reflect accurate totals. My thought is that it would be Worksheet code on Tab 1 using "Deactivate". I've tried to piece together different bits of code but can't get anything to work properly. I don't want them to have to run a macro or click a button, I'd like it to be automated when they switch tabs.
The following code does a sort on a worksheet whenever you click another sheet but it also returns you to the original sheet (where the sort takes place i.e. the sheet with Range "Sort1"). How do I get the code to do the sort but not keep returning to the sheet?
Private Sub Worksheet_Deactivate() Application.Goto Reference:="Sort1" Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, End Sub
I have an Offset of a range I am testing the value of with an If statement.
For some reason, even though the value fed in is 1 and it should bypass the If statement, it doesn't. However, if I assign the offset value to a variable first, the If statement works...
The following code for a custom menu is used in a workbook which has two sheets with embedded charts, two chart sheets and several sheets for calculations and information
In This Workbook
Private Sub Workbook_Activate() 'Changed Activate to Open Run "AddMenus" End Sub
and
Private Sub Workbook_Deactivate() 'Changed Deactivate to Close Run "DeleteMenu" End Sub
and
Private Sub Workbook_BeforeClose(Cancel As Boolean) Run "DeleteMenu" End Sub
I'm trying to do something quite simple but I can't seem to see the forest thru the trees.
All I want to do is when I deactivate a worksheet (sheet2) I want it to sort a predfined range. I keep getting a "Select Method of Range Class Failed" error message on the line of code with ******
I have a survey template with several options buttons (made from Form toolbar and grouped by Group Box).I would like to have a check box that would activate these option buttons for specific question if unchecked and vice versa.
I have copy & paste below formula in VB, but is shows 'Run time error 424' & when I Debug it shows 2nd line highlighted by yellow colour.
VB: Private Sub CheckBox1_Click() If CheckBox1.Value = True Then [code]....
I have a sheet were i want to insert a new blank line at a spcecific point.
When a cell, ex. A28 is marked, i have made a macro that makes a new line at that point. The only thing is, i cant figure out how i make alterations to a certain cell in that row (to make sure it is the same every time.. there will be many users to the document, and i dont want any to make some big stupid mistakes by altering something, so every new row should be formatted the same way every time..)
This is great only when I evaluate the function test() one cell at a time. When I copy this formula to other cells or perform autofill Excel thinks that the active cell is the first cell in the series.
What I really want is for the function to return the column of the CELL that contains the function, and not the cell that's last clicked.
I want to search through the cells in a column to locate text in one of the cells. If this text is found, I want to make that the ActiveCell and then insert a row underneath it. If this particular text is not found, I want to insert a row and put that text that wasnt found into the first cell in the created row.
I trimmed down my code a lot so I could post it here.
So, in this particular case, once the user selects one of two product lines (named "ADC" and "DAC"), I want to first search for that text and if it is found I want that to be the new activecell and insert a new row.
The main problem is that I can't seem to figure out how to set the "Foundcell" as being the new active cell. My initial activecell is set by locating and selecting the cell containing the text "Product Line".
I want to use this type of command to highlight an area...not just move rows/columns. I want it to highlight from a point on the sheet marked by X and Y and then down Z rows.
So if I'm in cell A1 and want to highight from A1 down to A10, I'm not sure how to write that part of the code.
I have a list of line entries for which I need to insert a variable amount of empty lines per line. (the variable amounts listed in a column to the right of my Active Row.
Unfortunatly I loose the ActiveCell's Value. During Debug it shows the correct cell and value, but after the Debug Step Over, the value shows 0 again. I include my [code]
Sub IP_Insert_rows() ' ' IP_Insert_rows Macro ' Macro recorded 2006/05/29 by Joseph Clark ' Dim GrpCtrVar As Integer Dim LnCtrVar As Integer
I am working on a sub that will populate a cell based on the values of two other cells.
The ws is of variable length, the columns are A through I. I have the logic done, now I need help with the looping. It only loops through the first row. I believe that my problem is something to do with declaring the ActiveCell and looping with that. Also should I use variable names rather than Range(A2) ex. Dim EMUNCD As Variant EMUNCD = Range("H2").Value
I have the following code so far
Sub MainMgrRpt()
Dim LstRow As Long LstRow = Cells(Rows.Count, 1).End(xlUp).Row For Row_counter = 2 To LstRow
Dim planCase As String planCase = Range("F2").Value
I have put a rectangle shape in a cell in excel. The shape is within the border of a particular cell.
Is there a way to find the reference of the cell on which that particular shape resides.
For example, I have kept a rectangle shape in cell F5. I was looking for a macro which would return the cell reference "F5" in which the shape resides.
I have a spreadsheet that automatically analyzes the last week's worth of data and then displays a table of summary data from that analysis in the range C2:G11. Each row (i.e. 2:11) represents the statistics from one of the 10 regions in the state. I then have a second "details" table which remains blank (it occupies the range C14:G20; one row for each day of the week) until an "x" is typed in Column H in the cell adjacent to a region's summary data above, e.g.
if I want to display detailed data for region 4 for the last week, I would type an "x" in cell H5; formulas in the blank "details" table then lookup information on region 4 from a larger dataset. This system works fine, but is a little clumsy (typing "x"'s and deleting previous "x"'s, etc.).
Here's what I would like:
1): A macro for this sheet that will place an "x" in the ActiveCell (only in the case that the active cell is somewhere in the range H2:H11), will remove that "x" when that cell is no longer active, and will not place more than one "x" at a time-- for instance if more than one cell is accidentally highlighted
2): Also, I would like to be able to paste the values and formatting of the "details" table (C14:G20) to a separate sheet (we'll call it Sheet2) if they're interesting, and I'd like to be able to do this with a command button. The problem is I don't know... 1: how to place a button on the sheet, 2: how to attach code to this button, 3: where to place this code (can it go in the same place as the ActiveCell macro I described earlier?).
Ideally, the code would allow me to paste an arbitrary number of these tables to Sheet2, so the code would need to be able to identify the first blank cell in Column A as the location to paste a new table when the button is clicked.
I've got an application where I switch between workSheets and the mouse stays in the same location. As all of my actions are predicated on mouse right-clicks or double-clicks, the first thing that I have to do as move the mouse back to the active cell. Is there a way to reposition the mouse to the activeCell upon returning to the workSheet?
