I want to be able to double click on a cell in a column. If it has a certain word in it, it will take it to that worksheet. Auto filters are used so these cells can move in a column at any time. This is why I am looking for a code to validate the contents in the cell first.
ie. Cell has the word: BSALT, when double clicked it will take it to the BSALT worksheet.
Cell has the word MLW, when double clicked it will take it to the MLW worksheet.
And so on.
These values are in one column only. If they weren't able to be autofiltered i could do it, but the mere fact that they can move around is giving me trouble.
I am trying to run a macro when I double click on a certain cell (D34). The cell has data in it (Southeast NSC). What I am expecting to happen is once I double click on the cell the macro will run the retrieve and I will end up at expense chart page.
The macro I am trying to run is an Essbase retrieve.
Normally when I double click on a cell with a formula linked to another spreadsheet, the double click takes you to the source. However, if the cell also has a comment, the double click takes you into the edit comment option and not to the source.
Is it possible to turn off the edit comment option from the double click?
I have a list of numbers in column B of one sheet.
these numbers are unique and randomly allocated to other sheets in the workbook.
i would like a macro which when a user double clicks on a cell in the list of numbers .. the macro will jump to the sheet containing that number.. (i.e. do something like the find function)...
I have some code below which might be useful for you but I can't work out what I need to write.
I'm trying to do is create a link so that if you double click on a cell in a range (Sheet1!A3:A100) it will copy the value (ie Sheet1!A6) and paste it to the next sheet in a fixed cell (sheet2!B2).
The reason is I want to use the next sheet to do Vlookups (or may just do it in a macro) to fill in a template.
I am looking for assisitance in combining the functionality of two seperate combo box code sets. The first combo box code set allows the combo box to automaticially appear when a user Clicks on a cell that contains a data validation list. The second set of code will have a combo box appear when a user Double-clicks on a cell that contains a data validation list. And the code allows for Named Ranges on a seperate worksheet. I would like to have the functionality of having the combo box to appear when a user Clicks on a cell and not having to Double-click. Also, I would like to have the option to use Named Ranges on a seperate worksheet ("Validation Lists").
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim str As String Dim cboTemp As OLEObject Dim ws As Worksheet Set ws = ActiveSheet On Error Goto errHandler If Target.Count > 1 Then Goto exitHandler Set cboTemp = ws.OLEObjects("TempCombo") On Error Resume Next If cboTemp.Visible = True Then With cboTemp .Top = 10 .Left = 10 .ListFillRange = "" .LinkedCell = "" .Visible = False .Value = "" End With End If................
I am trying to make it so that when you double-click in a cell in column A, a message box opens populated with the text string in the corresponding cell (same row) in column Z. Seems to me like it should be easy enough, but despite spending the last hour searching for clues, I can't seem to figure it out.
I have made a toggle button to turn diagonal borders on and off in a single cell. Is there a way to make the button transparent, such that the button can be placed over the cell itself and the contents of the cell will be visible underneath, no matter the condition of the toggle?
I've found the code below and tweaked to suit my needs but having trouble. Had it working one time. The code below calls a userform when the user double clicks on a cell. The form pops up and is not active/enabled. I cannot select anything on the form until I select a cell on the sheet, then everything on form becomes active/enabled.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'check cells for desired format to trigger the frmSel_WBS.show routine 'otherwise exit the sub Dim NumberFormat, DF NumberFormat = Array("[Blue]General") For Each DF In NumberFormat If DF = Target.NumberFormat Then frmSel_WBS.Show vbModeless End If Next End Sub
following on from previous post (http://www.excelforum.com/excel-prog...g-up-form.html) what if the selected cell is a merged cell (cell count is greateer than 1), what is the best solution to enable double click event on merged cell ?
I'm trying to double-click a cell to edit the contents, and I am off a few pixels, it treats the double-click as a double-click on the cell border, not the cell contents, and the focus jumps to another cell in the direction of the border instead of going into edit mode. The effect is as if I had pressed Ctrl and the arrow in the direction of the border I clicked on.
The only way I've found to disable this is to turn off the option "Enable fill handle and cell drag-and-drop", but unchecking that also disables actually useful things, like dragging the corner of a formula call to copy it down, etc.
Is there a good way to disable this cell jumping when I accidentally double-click a cell border?
if there is a workaround to this issue. I have this code that transfers data to a textbox but it stops after hitting the character limit. Does anyone know how to extend this limit ?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True With Me.Shapes("textbox1").TextFrame.Characters .Text = .Text & Target.Value End With End Sub
I have a sheet where i have many differently named areas (like state1_1 and state1_2) When I doubleclick on a cell then a macro should run with following criteria: 1) Macro will run if the doubleclicked cell is part of any range in the list. Here I mean that names of ranges which belong to that list start with word state (like state1_1 and state1_2). No other ranges should not be in that list. If the cell is not in the range that is part of the list, then nothing should happen.
How to run some VBA code only when double click any cell of three different columns (say A, G,H) and not run in any other cell. This is being run in Excel 2007.
I would like to be able to track progress of various tasks/occurences by allowing users of a spreadsheet to just click in the appropriate column and in doing so, it would fill in the current time and date. I.E. Column headings would read, "Item Sent to Review", "Item Received From Review", "Item Sent to Specialist", etc. and I want users to be able to double click in a given column to populate with current date/time information,
I have spreadsheet with client names. I'd like to build logic that will open a form with client information when a user double-clicks on the client name. But I have a couple of problems.
- First, I'd like to protect the sheet and hide the formulas. But when I protect the sheet, I get the "the cell or chart you are trying to change is protected" error when I double click the protected cell.
- If I deselect the "Select Locked Cells" options when I protect the sheet, I no longer have the ability to double-click on the cell.
how I can double click on a cell yet not allow the user to edit the cell (or see the formula)?
Upon clicking any cell in Sheet1, it will automatically filter based on cell A and B.
Sheet2
Automaticall display filtered criteria based on double click from Sheet1
For example: when I double click on C1, on Sheet2 will automatically diplay filtered data based on A1 and B1 and same thing goes to if I double clik on C2 on Sheet2 will automatically diplay filtered data based on A1 and B2.
I am trying to write some questions on cells of Sheet1 of a workbook. Then I want to write the answers on cells of Sheet2 of the same workbook. I want the user to be able to double click the question-cell on Sheet1 and be taken to the respective answer on Sheet2.
I have a spreadsheet that just uses the basic "SUM" function. This morning I went to use it and the function does not work after I change a number within the field of that function. If, however, I go into the SUM function and double click, then hit enter, it does the new calculation.
I have this list of all rangenames in my workbookin column A:A
For some reason I want to doubleclick on the rangename in the list to activate this range.
The reason is that I want more smooth activation-prosess; The Excel Range List is too long to practical use as a direct lookup, so I want to activate directly from my own list (where i have added definitions to the range names.
I have tried to build a hyperlink formula, but failed. Maybe the macro below can be modified to do the job, but I am stuck here as well.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim RangeName Application.ScreenUpdating = False If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A:A")) Is Nothing Then Cancel = True
I seem to have broken something!. Whenever I double-click to open an Excel file (.xls files are associated correctly), Excel opens, but nothing happens. That status bar says "Ready," but my workbook never appears.
If I do a File-> Open within Excel, then I am able to open the workbook. I have no idea what is going on. This occurs for all Excel files whether they contain macros or not.
I have a code for doubleclick on a cell and a gdt application chart will open.
Private Sub Worksheet_BeforeDoubleClicK(ByVal Target As Range, Cancel As Boolean) ActiveSheet.Unprotect ThisWorkbook.Unprotect Dim i As Integer Dim gdt As Long Dim S As String Cancel = True With Application
If Target.Address(False, False) "C11" Then Exit Sub
'Place your direct path to open this GDT application
S = "C:Documents and SettingsUserMy DocumentsAndy's MachineINSPECTIONGDTGDT BitmapGD&T_Font.exe"
If Dir(S) = "" Then MsgBox "File does not exist:" & vbCrLf & S, vbCritical, "Error" Exit Sub End If gdt = Shell("""" & S & """", vbNormalFocus)
End With
ActiveSheet.Protect ThisWorkbook.Protect End Sub What would the code be for a range of cells if doulbe clicked the range would be C11 thru C35
Also, I have a double click code for another symbol chart to open.
How, would this be used in the same manner if a coulmn or row were to apply on double click.
on the worksheet there are six ranges...each range has three columns...the first is team name, the second is rep name, and the third is the metric being measured.
what i would like to happen is...
when a team name is double clicked in any one of the ranges, i would like all three cells (team name, rep name, and metric) to be boldfaced and have the cell interior change color for all instances across all six ranges that match the team name double clicked. when double clicked again, it should go back to original formatting.
likewise, when a rep name is double clicked in any one of the ranges, i would like all three cells (team name, rep name, and metric) to be boldfaced and have the cell interior change color for all instances across all six ranges that match the rep name double clicked. when double clicked again, it would go back to original format.
so for example, if i happen to click on a cell in the team column in the second range for "team a", all cells in each range (including the adjacent cells for rep and metric) would be highlighted.
I have populated a listbox from a filtered list and when 'Double Clicking' a name I want a macro to run. All seems to be OK apart from it is not finding/returning any data; I know the data is there and I think it may be the way I'm referencing the listbox value;
Sub CopySignificant()
Dim DestSheet As Worksheet Set DestSheet = Worksheets("Clients to Invoice")
Dim sRow As Long 'row index on source worksheet Dim dRow As Long 'row index on destination worksheet Dim sCount As Long sCount = 0 dRow = 1...................
I am trying to create code so that when a cell in Column C (for example C1) is double clicked, it makes the font bold, italicized, blue and inserts a row below the double clicked cell. I am also trying to make it so that if the cell is double clicked again, it removes the bold, italics, blue and deletes the row that was previously inserted.
Private Sub Worksheet_BeforeDoubleClick _ (ByVal Target As Excel.Range, Cancel As Boolean) If Target.Font.Bold Then ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown ActiveCell.Select Cancel = True If Not Target.Font.Bold Then ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Selection.Delete Shift:=xlUp ActiveCell.Select Cancel = True End If End If End Sub
