On Cell Selection, In Named Range, Clear Content Or Add Text If Empty
Jul 24, 2009
I wrote some code that toggles bewtweeen the word "Yes" and the function clearcontents.
What it does not do, is if you click on cell A1 and change it's contents and you click on the same cell again it does nothing. You need to click on another cell say A2 before you can go and change A1 again.
My code is as follows:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("Documents")) Is Nothing Then
On Error Resume Next
Application.EnableEvents = False
If IsEmpty(Target) Then
Target.Value = "Yes"
Else
Target.ClearContents
End If
Application.EnableEvents = True
On Error Goto 0
End If
how to pass a cell content into a formula as a named range? For instance, I have 3 named range (Budget, Actual, Forecast) and I use the named range in vlookup formulas. But instead of using the named range in the formula directly, I want to refer to a cell where I can type in which named range I want to use. Can this be done? I am attaching a sample spreadsheet to clarify what I mean.
I have a spreadsheet where I've disallowed selection of multiple cells using the code in the 2nd box below, but is there a way to override this protection to allow selection of a named range? My reason for doing so is to open this workbook as read only from code in another workbook and copy the entire table. My code for doing that works ok (I frequently use it in other workbooks) but, in this case, my need to disallow selection of multiple cells in this particular worksheet is tripping me up.
This is the code I'm using to try and pull the data into another workbook:
and this is the code I have in RSL-Jobs-Register.xls which is preventing me from selecting the (dynamic) named range called "JobsTable".
Code:
''' I'm thinking I could have something here like (in plain English) "If selected range "JobsTable" Then" ''' (apply the code below) but I'm not sure of the code
If Selection.Cells.Count > 1 Then MsgBox "Sorry, operations on multiple selections aren't allowed here", vbCritical ActiveCell.Select Exit Sub End If
The formula for the dynamic named range called "JobsTable":
I have a text file being used as a log file. Sometime I need to clear this file when I start-up the UserForm. I load this text file with this code. First is this in Module1:
Public Const FILENAME As String = "Log.txt" Public Const LOGFILE As Integer = 1
This defines the text file to be added to. The code that actully apends the text to the first open row of the text file is: ....
I am currently working on writing a macro that clears all rows in which the cell in column F doesn't say "Sale", "Purchase", or "Tax Code Description", however, I keep receiving an error that says "Wrong number of arguments or invalid property assignment".
[Code] .....
Also, I originally was deleting the rows, but I have formula's pulling from this tab and need them to not lose their reference after the macro executes.
I have a dynamically named range the contents of which I want to clear. However, I also want to clear the cell contents in the next column beside the range. So if my dynamically named range is A20:B40 can I clear the contents of A20:C40 without changing the initially named range. Background: The data I have is the result of an advanced filter. The range is named for printing purposes without the final column. If I then change one of the raw data I want to run the filter again. To do this I need to clear the first filter.
I want to have users fill out. While it is possible to have it Read Only so that they always SaveAs I would rather put in a macro to clear the user input fields. I have done this in Excel 2003 and when I try using the same techniques in 2007 I get an Error 400.
I have all the cells (some are merged cells) in a named range and have the following code for clearing them.
My Excel Vba shown below inserts time() into a cell on my sheet. Is it possible to clear this cell if time() is already into the cell. My VBA is onky entering the time() once and not insering the current time() if a change cell values after some time i.e.
With code I enter text by double clicking in any cell in a range.(column A,B,C are excleded) What I need is to clear the content of the cell adjacent to the left of the one I choose to dbl click AND the one below that. Example: I dbl click in E1 and the content of cells D1 and D2 is cleared.
Is there are macro that will allow me to: Clear Print Area, then Set Print Area based on user selection and finally print the Print Area to fit 1 page? I tried to search for solutions, but couldn't find any that matched my problem.
I am quite a novice with excel and I am trying to get a cell to show blank when I select a drop down list value in another cell.
Cell D2 contains a validated list containing two items (Air, Vacuum).
If I select Vacuum I wish to change another cells (D4) contents to blank, D4 is also a validated list containing three items (Yes, No, BLANK) the blank is actually a blank space and not the text blank.
I can get the cell to operate correctly but if I select Air in Cell D2 and then Yes in cell D4, but then change my mind and reset to Vacuum in cell D2 i need the cell D4 to clear its contents automatically.
I've got a workbook set up. One tab has a bunch of named ranges, let's say Tables 1-6. The second tab has vlookups for selected values from a sharepoint data pull (in order to parse through the sharepoint stuff, most of it is nonsense).
What I am trying to do is write a formula for cell E2 that: -Step 1: Looks into whichever range the user specifies, 1-6 (probably using the indirect function). -Step 2: Searches the specified range for text found in cell F2 (a string of text with values from one or more of the ranges 1-6) -Step 3: Returns the text.
I have a cell A1 in sheet2 linked cell A1 in sheet1 (simply A1='sheet1'!A1). A1 in sheet1 is a data validation drop down menu.
I want to clear the content of A2 in sheet 2 everytime the content of A1 in sheet2 changes/is updated. That is everytime the value of A1 in sheet1 is changed using the drop down menu.
I tried using a Worksheet_Change event macro (which I do not fully understand) but it won't work with a cell that updates from a calculation. It also doesn't work if triggered from a cell from another worksheet (I tried linking it to cell A1 on sheet1 in this case).
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Range("A2").ClearContents End Sub
Any simple solution to clear the content of cell A2 in sheet2 when A1 in sheet2 updates?
This will probably turn out to be a really quick one: I've got some named ranges I'm working with that in of themselves use Offset to automatically expand a list.
I am trying to reference a named cell in a VLOOKUP formula as the table_array parameter.
The Named Cell "Input1" contains a table array definition of '[Test.xls]Sheet1'!$H$10:$J$100
When I try VLOOKUP($D3,Input1,3,0) - This returns #N/A as a result.
When I try VLOOKUP($D3,INDIRECT(Input1),3,0) - This returns a #REF error.
When I copy and past the contents of the Input1 named cell directly into the VLOOKUP formula, it works so I know the array reference is valid.
I am not proficient in VBA so I would like to accomplish this using basic Excel formulas if possible. how I can reference the named cell and have the cell value returned in the VLOOKUP function?
I'm looking for a quick and easy way to insert a value in the first empty cell in a multi-column, multi-row range using VBA. I suppose I could loop through the range, but the table could grow to immense proportions and I don't want to slow everything down.
For example, the new value should be placed in cell C4. It doesn't matter whether the range is looped through the rows or columns, either will work just fine.
I have some dynamic named ranges in sheet1, and in sheet2 I have data validation dropdown list which has the names of all the DNR's in it.
What I want it to do (in sheet3, no less) is for the user to be able to pick a named range from the dropdown list, and have a particular column in sheet3 then display that entire named range.
I have made a 'data' worksheet which is the source for the data validation in sheet2. Each item in the list identically matches the name of each of the named ranges. I was hoping to be able to use some form of =INDIRECT but alas, no such luck.
So it's almost like a copy and paste function I'm after, where:
If you pick "Schedule_From" out of the DD-list, then DNR 'Schedule_From' is what is pasted in Column B in Sheet3.
If I have a pick list, or drop-down list, in cell B21 and one of the options in that list is "Clear", how can I get the contents of cell C21 to be cleared when I select the "Clear" option in B21?
Constraint... Don't want to use VBA.
I am thinking of hiding a formula somewhere other than in C21 that evaluates B21 and does an If Then kind of deal to clear C21.
A project I am working on calls for me to implement a macro that will clear the contents of a cell (but not affect the validation list it contains) based on the selection of another cell or cells. So on the simplified attached example, I need to achieve the following;
On the fist row of options, if cell "C3" is selected, then the contents in cell "D3" are cleared. If cell "B3" is selected then the contents in cells "C3" AND "D3" are both cleared. Similar is needed for the second row of options;
If Cell "C6" is selected, then the contents in cell "D6" are cleared. If cell "B6" is selected then the contents in cells "C6" AND "D6" are both cleared. Finally, if cell "A3" is selected, then ALL of the above cells' (B3-D3 & B6-D6) contents must be cleared.
Let's say you have a named range, Rng1, which consists of cells A1 & A2. In vba how would you report back what, if any, named range the following cells resides:
Code] .....
here are multiple named ranges so using intersect is not feasible. Essentially, through code, I will be given a range and I need to determine if that range if part of a named range.
I seem to be lost in some macro-coding... I have this folder with pictures, and I want to display them as comments, by a macro. So far I have control. But then, if there is a picture that is missing, or if there is a cell that is empty in the selection, everything seems to stop.
the macro I use is very simple, but when everything is in place, its working:
Sub pics() For i = 3 To 50 PicName = "C:UsersEspenPicturesHus" & Cells(i, 1) & ".jpg" With Cells(i, 1).AddComment .Shape.Fill.UserPicture PicName .Shape.Height = 300 .Shape.Width = 400 End With Next i End Sub
Is it possible to make the macro run even if there are wholes, or if some pics are not store in the folder yet?
Is it possible to make the area "unlimited", as you see its now limited from 3 To 50.
And is it possible to make this run automatically, kind of checking the folder on its own to see if there is new pics?
I am trying to lock the unused cells in 32, 2 column by 7 row named ranges, based on whether or not two cells, above each range are equal or less than each other. In other words while one of the cells is less than or equal to the second cell all cells in the range below should be unlocked, as soon as that condition is no longer true the blank cells need to be locked.
I am trying to use this in the Workbook_Sheetcalculate so that the macro will run automatically.
I have 30 worksheets in a workbook in which the first sheet is called summary. The summary sheet has 29 formulas with all named ranges, so one named ranged per worksheet. The issue I have is when i clear old data and add new data every month, the named range changes on some worksheets not pointing to the correct range as previous month file even if I have $
I have read post re this question but have not been able to answer my problem. I get the error message 'Application defined or object defined error' when running the code below. I should indicate the range counter currently indicated about 6,200 rows that this code will work on and the individual range names in the list of 6,200 rows are spread over at least 20 worksheets.
The code appears to be running but after some time it stops on the line of code 'Range(Cells(i, 1).Value) = Cells(i, 2)'.
Sub PopulateWithImportData() Dim counter As Integer counter = Sheets("Imported Data").Range("Counter")
I have a long range of cells (U3:AX3), all of which are empty save one. Is there a way to search through the range of cells, and return the contents of the one cell that contains text?
I would do this with a series of nested IF statements if there weren't more than 30 of them!
i have the following macro when cell value in column "K" changes, it distributes the data accordingly.
however, the issue is, if i change the value in K (which is a date), so another value, it leaves the distribution in tact....i want to apply "clear content" and then make the macro re-apply.
Code:
Private Sub Worksheet_Change(ByVal Target As Range) If Left(Target.Address, 3) = "$K$" Then Dim srt As String
I have a column with various values in, string and numeric. The strings I want to keep have "," in and letters one side and "space" on the other. All the cells I want cleared do not have ","
The rest of what I'm using works fine accept this line which forces an error.
