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"
End If
Application.EnableEvents = True
On Error Goto 0
End If

End Sub

View 3 Replies


Passing Cell Content As Named Range In Formula

Sep 13, 2006

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.

View 6 Replies View Related

How To Only Allow Multiple Cell Selection If Named As Dynamic Range

May 13, 2014

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:


Workbooks.Open Filename:=ThisWorkbook.Path & "RSL-Jobs-Register.xls", ReadOnly:=True
Application.GoTo Reference:="JobsTable"

and this is the code I have in RSL-Jobs-Register.xls which is preventing me from selecting the (dynamic) named range called "JobsTable".


''' 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
Exit Sub
End If

The formula for the dynamic named range called "JobsTable":


View 1 Replies View Related

Clear Content Of Text File

Feb 15, 2008

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: ....

View 2 Replies View Related

Clear Content Of Conditional Dynamic Range?

Aug 3, 2014

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.

View 2 Replies View Related

Clear Named Range & Columns To Right

Sep 17, 2007

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.


View 7 Replies View Related

Clear Contents Of Named Range In 2007

Jan 4, 2009

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.

View 3 Replies View Related

Clear Cell Content Query

Feb 19, 2010

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.

View 3 Replies View Related

Clear Content Of Adjacent Cell

Jan 4, 2007

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.

View 9 Replies View Related

Clear & Set Print Range Based On Selection

Feb 22, 2008

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.

View 2 Replies View Related

Clear One Cells Content When Changing Another Cell

Jan 8, 2007

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.

View 9 Replies View Related

Look Up Text In Cell From Specified Named Range?

Jan 8, 2014

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.

View 2 Replies View Related

Clear Cell Content Based On Another Cell Calculation

Dec 21, 2012

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
End Sub

Any simple solution to clear the content of cell A2 in sheet2 when A1 in sheet2 updates?

View 3 Replies View Related

Determine If Named Range Is Empty / Null

Dec 1, 2008

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.

View 7 Replies View Related

Using Named Cell Content Value In VLookup Formula?

Jun 10, 2013

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?

View 1 Replies View Related

Clear Cells If Corresponding Cell Empty

Dec 8, 2006

If I have 2 columns A and B, I would want cells in A emptied if cells in column B is empty. Otherwise, ignore.

View 3 Replies View Related

Insert Text In First Empty Cell In 2 Dimensional Range

Nov 20, 2013

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.





View 1 Replies View Related

Display Named Range Contents Based On Text In Cell

Aug 24, 2009

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.

DON'T want to use a PivotTable.

View 9 Replies View Related

Clear Contents Based On A Selection In Another Cell.

Feb 21, 2007

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.

View 9 Replies View Related

Macro To Clear Contents In Every Other Cell Of A Selection

Apr 25, 2008

I need to clear the contents of every other cell in a selection of 5000 rows starting with the first cell. Is there a macro that can do this for me?

View 3 Replies View Related

Clear Cells Of Values Based On Cell Selection

Jun 13, 2008

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.

View 7 Replies View Related

Determining If Cell Is Part Of Named Range And What That Named Range Is?

Aug 16, 2014

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.

View 5 Replies View Related

Cell That Is Empty In The Selection, Everything Seems To Stop

Nov 2, 2009

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?

View 9 Replies View Related

Lock Empty Cells In Range Based On Other Cells Content

Apr 18, 2008

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.

View 3 Replies View Related

Clear Old Data And Add New Data Every Month, The Named Range Changes

Dec 13, 2008

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 $

View 9 Replies View Related

Copy/Paste Cell To Named Range Named In Adjacent Cell

Sep 4, 2007

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")

Application. ScreenUpdating = False
Application.Calculation = xlCalculationManual
Worksheets("imported data").Select

i = 1
Do Until i = counter
Range(Cells(i, 1).Value) = Cells(i, 2)
i = i + 1

View 8 Replies View Related

Returning The Contents Of A Non-empty Cell In A Range Of Empty Cells

Jan 8, 2008

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!

View 9 Replies View Related

Add Clear Content To Macro?

Dec 4, 2012

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.


Private Sub Worksheet_Change(ByVal Target As Range)
If Left(Target.Address, 3) = "$K$" Then
Dim srt As String


View 9 Replies View Related

Clear Content Based On Contents Matching?

May 25, 2014

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.


View 5 Replies View Related

Creating Yes No Msg Box For Clear All Content In Sheet Code

Feb 6, 2012

How can I create a msg box which ask's for Yes or no option before clearing a sheet with all contents?

if code is this:

Sub Clear_sheet()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
If Not ws.Name = "master*" Then ws.Cells.ClearContents
Next ws
End Sub

View 4 Replies View Related

Copyrights 2005-15 www.BigResource.com, All rights reserved