Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
  Advanced Search
  HOME    TRACKER    Excel


Advertisements:










Vba Clear Contents Of Column


I dont know how to copy an excel sheet into the question.

But assuming the following text starts at CELL C2 (this is just a section of the workbook)

C D E F G

1x55Correct!
2x55Try Again?
3x55Try Again?
4x55Try Again?
5x55Try Again?

This is a worksheet to test multiplication tables. I am trying to create a macro button to clear the contents of column F, for the kids to start again?


View Complete Thread with Replies

Sponsored Links:

Related Forum Messages:
Hide Column And Clear Contents Based On A Cell Value In Another Sheet
I have a workbook with two sheets of data. I want to hide column B of Sheet2 and clear contents of range B2:B50 if the value in A1 of Sheet1 is "a".

View Replies!   View Related
VBA Clear Contents
i am trying to use clearcontents with the below code but i get an error,


With Sheets(1)
With .Range("J7")
.ClearContents Range("J7:J" & .Range("A" & .Rows.Count).End(xlUp).Row)
.Formula = "=H7-I7"
.AutoFill Range("J7:J" & .Range("A" & .Rows.Count).End(xlUp).Row)
End With
End With

View Replies!   View Related
Macro To Clear Contents.
I'm trying to figure out code to have only the contents of cell 'a2' cleared when the contents of cell 'a1' is changed. The issue is that both cells are derived from lists and I don't want the formats cleared.

View Replies!   View Related
Clear Contents If 2 Characters Or Less
I am looking for a way to remove text from a cell if it is 2 characters or less but do nothing if the text is longer than that. Is there a way to do this with either a function or an advanced find?

For more detail, I have a list of middle initials and last names. The cells are either a middle initial by itself like "D." or they are a last name like Jones. I want to go through and delete the cells that have the middle initial and leave the ones with the last name. So if there is a function that will evaluate the cell, and if it is 2 characters or less, then delete the contents. If greater than 3, leave it alone.

View Replies!   View Related
Macro For Min Value Then Clear Contents
I need code for a macro that will find a min value in a particular column and based on that min value clear the contents of other cells for that min value.

For example, I have dates in column E such as:

200907
200906
200902
200809
200803
200710
200707

Therefore, I need to find all records for 200707 and clear the contents in other cells.

I can't hardcode the min date because that can change from month to month when new files are created. As can the number of rows.

I'm using Excel 2007.

View Replies!   View Related
Clear Contents Vs Delete
I've been pressing on with my project and figured out that I really do not know the difference between Deleting and Clear contents. I really thought they were the same but am now unsure. I guess I have 2 questions. Which is better to use? what I'm doing is removing old data and importing new data. and which is more efficient for writing code.

Sheets("Bodies"). Range("A2:Z65000").ClearContents

Sheets("bodies").Range("a2:Z65000").Delete

View Replies!   View Related
Clear Contents Macro
I have a protected worksheet in which certain calculations are performed based on certain inputs.

For example, let's take Column E:

Starting in cell E4, I have cells in that column which are input cells and further down the column are calculated cells which are locked and whose formulas are hidden.

I was looking for a macro which would go down col E and clear contents of all unlocked cells without messing up any of the protected cells.

Also, there are certain cells in which I want to clear contents and some cells that I want the macro to insert a "0" value.

The input cells are non-contigous.

View Replies!   View Related
Clear A Cell's Contents
Is it possible using vba code to clear a specific cell's contents? I have a workbook that has text boxes that need the linked cell cleared when the workbook opens so the user can start fresh with empty text box's.

View Replies!   View Related
Clear Contents Of Cells In A Range, LEN=0
I'm using a macro to copy the results of a formula and paste the values only on another sheet. The result includes lots of "blank" rows. I have another macro to get rid of the empty rows and move the information up.

It's not working because the "blank" rows aren't empty. Even though I paste values only, experimentation shows that the cells that appear blank return a false to the ISBLANK test with a length of 0.

So now I think I need a macro to run after the pastespecial command to look for cells within a range with a length of zero and delete the contents of those cells, but leave alone anything with a length of >0.

I am brand new to the idea of using VBA, but I have successfully cobbled together some stuff and can usually modify things to work.

It seems I need to maybe use some sort of IF statement along with a LEN and ClearContents. I don't want to delete the blank cells, just make them truly empty so that all of my actual data stays where it should, and my delete empty rows macro works correctly.

I did a search and see some info on clearing contents of columns or rows, or clearing contents based on the content of other columns or rows, but I'm unsure of how to tell it to search each cell within a range and clear the contents of 0-length cells to make them truly empty.

View Replies!   View Related
Macro Insert And Clear Contents
I am trying to get a macro that will insert a line above whatever line the text "INSERTXYZ" is in. I'm getting that fine but I also want to clear the contents of cells "A:S" on whatever the new row number is.

Can anyone modify this piece to accomplish that? If you need to tear it completely down, I'm interested in simpler way as well.

Cells.Find(What:="INSERTXYZ", After:=ActiveCell).Select
ActiveCell.EntireRow.Select
Selection.EntireRow.Copy
Selection.EntireRow.Insert Shift:=xlDown
Selection.Interior.ColorIndex = xlNone
Application.CutCopyMode = False
ActiveCell.Select
Selection.Range("A:S").ClearContents

View Replies!   View Related
Conditional Clear Contents Of Cells
I have a dropdown list in the range E17:E91 containing a list, and two of the values in the list are "DI" and "LTC". What I need to happen is if either of these are selected, the corresponding cell in column F needs to have it's contents cleared. Ex. if in E17 the value is ever either DI or LTC, cell F17 gets contents cleared. if column E contains ANYTHING ELSE, nothing happens. That's all, I've taken care of conditional formatting and data validation already. So even if data is pasted in the worksheet into column E it needs to recognize that and always act in real time.

View Replies!   View Related
Pop Up Activated On Clear Contents Code
I have a small workbook that copies 4 cells to a database list as per the code below, 2 of the fields activate a pop up calendar for date input on a button push the data is transfered to the sheet and the cells are cleared, however on the clear contents parts at the bottom of the code it reactivated the pop up calendar,
is there a way of not having this pop up when clearing the contents.

View Replies!   View Related
Clear Contents Code Not Working
This code is supposed to clear the contents of row 6 cell if the contents of row 5 cell is blank/cleared. I get an error on the "If Intersect" Line. What's wrong?

View Replies!   View Related
Clear Contents Based On Criteria
I need some code that will clear the contents of a Row Range(C:T) if either of the contents of cells X and Y = "E"

The code needs to look at cells X17 and Y17 and continue looking until it gets to X216 and Y216

So - If X = E but Y does not, then the row range C:T must be cleared.
If Y = E but X does not, then the row range C:T must be cleared
If both X and Y = E, then the row range C:T must be cleared

If the letter E does not exist in either X or Y, then the row must be left alone

View Replies!   View Related
Clear Contents Multiple Sheets
I have the following code for about 20 sheets

Sheets("Multi CT 43").Select
Cells.ClearContents
Range("A1").Select
Sheets("Multi CT 61").Select
Cells.ClearContents
Range("A1").Select
Sheets("Multi CT 80").Select
Cells.ClearContents
Range("A1").Select

i'm sure there is a more simple way of doing this but I can't find a way that works.

View Replies!   View Related
Clear Contents, Copy And Sort
I have 10 separate files that each have a data input sheet. I have 1 master file that has all 10 sheets in it and an extra sheet to display all 10 sheets information on 1. The drama I am having with sorting the master sheet is that every cell in the 10 sheets has a formular to copy what in the corresponding cell within the separate file. So techincally, the cells are not blank.

The cells range is B5:G1004 on every sheet. I paste 'values only' from the range of each sheet into the master sheet, but when I go to sort column B Ascendingly, it puts all the data at the bottom of the rows and there is 10000 rows on the master sheet. I cant get it to flip around. What I need is a way to clear the cells on the 10 sheets that do not have a value before I paste into the master sheet.

View Replies!   View Related
Clear Repeated Cells Contents
how could i clear repeated cells contents of one column with code suposing that there are some blank cells between the first empty cell and the last?

View Replies!   View Related
Clear Contents Of Filtered Range
I am filtering column S in a sheet to show all rows with a date after the end of the previous month - i.e. >= 01/01/07. What i want to do is clear the contents of those visible cells in column S. I tried the code below (got it on this site) but it works its way up from the bottom of the sheet until it finds the first visible row and then clears the contents of column S in each row above it, whether it is visible or not.

Sheets("Planning").Select
With Range("e2:C2")
.AutoFilter field:=5, Criteria1:="<=" & Sheets("Filtered Statistics").Range("c3")
.AutoFilter field:=19, Criteria1:=">=" & Sheets("Filtered Statistics").Range("d3")
For i = Range("s65536").End(xlUp).Row To 3 Step -1
If InStr(1, ">=" & Sheets("Filtered Statistics").Range("d3"), Cells(i, 19).Value) = 0 Then
Cells(i, 19).ClearContents
End If
Next i
.AutoFilter field:=19
End With

View Replies!   View Related
Clear Contents Based Upon Value In Row Range
I'm trying clear the contents of a column range when the cell above this column range is empty. I know how to do this for one cell, but I would like it to work for a rangefrom R15:BB15.

If IsEmpty(Range("r15")) Then
Range("r16:r35").Select
Selection.ClearContents
End If

End Sub

View Replies!   View Related
Automatically Clear Contents Of Cell When Selected
Is there way to automatically clear the contents of a cell when the user clicks in that cell. Eg, click in "A1" then then "A1" clears automatically.

View Replies!   View Related
Clear Cell Contents Based On Defined Name
I'm trying to clear cell contents based on a defined name given to a set of various cells in my worksheet. The cells are not continuous, but since they're given that defined name, I don't think it matters.

The defined name is listed as "CommentsFields".
The worksheet name is listed as "QPRForm_V6"

I found a similar thread, but cannot get it to work with what I'm looking for. I'm relatively new to writing VBA/macros, so I'm not sure what to do.

View Replies!   View Related
Clear Contents Based On A Selection In Another Cell.
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 Replies!   View Related
Clear Contents Of Range Based Upon Values
There is data(numerical) or blanks in each of the cells in the range H32:O37

I want to clear the contents if they are a duplicate of the previous line.

Looking for a macro hopefully. Found many to delete the whole row but just the specific range based upon the duplicate criteria..As there is data surronding that area do not want to delete whole row just clear that specifc area.

H32:O32 clear contents if same as H31:O31 if any valuse are different then stays the same
H33:O33 clear contents if same as H32:O32 if any valuse are different then stays the same
H34:O34 clear contents if same as H33:O33 if any valuse are different then stays the same
H35:O35 clear contents if same as H34:O34 if any valuse are different then stays the same
H36:O36 clear contents if same as H35:O35 if any valuse are different then stays the same
H37:O37 clear contents if same as H36:O36 if any valuse are different then stays the same

View Replies!   View Related
Clear The Contents Of All The Cells In A Certain Area Of The Worksheet
I’m working on a macro to clear the contents of all the cells in a certain area of the worksheet that are not locked and do not contain a hyperlink.

(C7 is the first data-entry cell; EndPage1 is a specific cell near the bottom right of the sheet that sets the outside range of the cells to be cleared. This is the code so far:

View Replies!   View Related
Clear Contents Of Named Range In 2007
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 Replies!   View Related
Clear Contents If Cell Doesn't Begin With #
I am trying to write a piece of vba that clears the contents if the first character in the cell is not #.... if I use "#"*, I get a syntax error

Just figured my syntax needs a slight adjustment to be recognized...

View Replies!   View Related
Clear Contents & Change Color Of Cells
how to clear contents and change colour index of cells.

This is for a booking system. The current VB codes allows bookings to be made by entering a reference number, dates of bookings and room type and bed type. When the VB codes are executed, the cells corresponding to the details entered earlier, would fill the booking table with the reference number and change the colour fill (e.g. yellow) to indicate that the slots are booked. Please refer to attached sample.

However, I do not know how to delete the booking. I would like to assign a cell for user to enter the reference number that needs to be deleted. So when the reference number is entered into that cell, user could execute a function which will clear the contents and change the colour index to none for that particular booking with that reference number(s).

Attached is a sample of the problem.

View Replies!   View Related
Clear Sheet Contents Before Continuing With Macro
Im looking to ensure the sheet contents are clear before continuing with the macro routine. At the moment however, the macro runs I see the data flash up and then off. So it appears the data is being cleared as soon as it loads. Current code is:

View Replies!   View Related
Clear Contents Multiple Non-Continuous Ranges
what is described in the post clear "contents of rows based on cell contents in column" clear contents of rows based on cell contents in column

What is different is that for rows that I wish to leave untouched, I have in column A the text "Active". If that text is not present (""), then I need to clear contents for only certain cells in each row because others have formulas. For example, if A32 does not say "Active" I want to clear contents of cells D:32, G:32, etc while leaving the others in row 32 in tact. I need this to loop through about 400 rows. If it would make the macro easier, I can have the data in column "A" say "Inactive"/"Active" instead of blank/"Active"

View Replies!   View Related
Macro To Clear Contents In Every Other Cell Of A Selection
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 Replies!   View Related
Protecting Formulas In Cells From Clear Contents Command
I have a worksheet from which I regularly clear all contents by selecting all the rows and selecting 'Clear Contents' from the right button menu. However, I now have added a formula in Col Y that I want to protect. I know I could select all columns up thru X, but that would clear the R1 headers, so I want to avoid doing that. I can always work around, but I'm curious, is there a way to clear only values and thus protect the formulas when using the Clear Contents command?


View Replies!   View Related
Clear The Contents Of Each Cell In A Range Without Losing Formulas
Is there a way to clear the contents of each cell in a range without losing formulas?

View Replies!   View Related
Clear Formula If Date Has Passed Paste Contents
Have a macro where is some dates have passed the formulas are cleared but if the date is < than TODAY the value is left. All worked ok until I changed to formula to where the date calulated exclued weekends. Have attached example spreadsheet.
Forgot to add the marco was provided by the hard work of fellow Ozgrid memeber (Ger).

View Replies!   View Related
Macro That Will Clear Contents Of Cell Based On Format Of Text In Adjacent Cell
Been racking brain, searching through the forum here, and my Excel 2003 Bible all day trying to figure out this problem to no avail. I would like to clear the contents of any cell in a given range if the cell immediately to the right of is formatted as bold.

View Replies!   View Related
Retain Formulas In A Few Cells In A One Worksheet So They Are Not Cleared By &quot;clear Contents&quot; Without Using Protect Sheet
i have a worksheet which is a form which feeds into another worksheet which acts as a database. i have a button which clears the form based on code which is essentially "clear contents".

the problem is i have a few cells where i would like to retain the formulas. i tried to do this with custom in validation but this did not work. i also tried to enter the code directly into the worksheet but this didnt work either (my skills are limited..). i am avoiding using protect sheet bc that in turn will affect many of my other buttons. is there something i am overlooking?

View Replies!   View Related
Clear Contents Of Cell Based On Comparsion Of Cell Values
I am a financial administrator & every month I have down load 4 bank accts as CSV, import into xl & code (CACode) the amounts for our accountant. I have VBA that formats, adds headings & formula etc but I have a problem/s. In H col I place CAcode & I use a sumif formula in I col to sum all the amounts with that have the same CAcode. For simplicity sake I copy the sumif down & then sort H col ascendindingly (this is done by VBA). Now I am trying write a macro to clear the contents of the cell in I col

if eg h60 = h59
then I60 clearContents, Select h59
Else select H59
Do until H3 is selected

Psuedocode
Select table (A2:I Xldown)
Sort Table by CAcode (H Col)
Set Range as H3:Xldown
Select Last cell with CAcode (Xldown) in H col
For every cell in Range (H3:Xldown)
Use If/thenIf Last cell = 2nd Last cell (H Col) then
Clear contents of I col (last row)
select 2nd Last cell (H Col)
Else 2nd Last cell (H Col)Next Cell

I have to use Xldown to select range as the range will be variable each month & for each bank acct. I need to clear contents of cell to verify that all the sub-totals of unique CAcodes of the CAcoded amounts = the totals Because I may have up to 120 rows X 3 bank accts I am slowly using vba to do my work.

Sub sort_And_delete_Sumif_amounts()
Dim r As Range
'Select range to sort
Range("A2:I98").Select
'Sort CAcode in H col ascendingly
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'select range for comparisomn of CAcode
Set r = Range("H3", Selection.End(xlDown))................

View Replies!   View Related
Clear Contents Of All Unlocked Cells (many Are Merged Cells
I am looking for a code that will clear all of my unlocked cell in sheet 1. That is not a problem but since many of the cells are merged I know it keeps throwing me an error saying cannot change contents of merged cells or something like that. Does anyone know how to get around this without unmerging the cells. I saw a code to unmerge all of the cells on a sheet but I really don't want to do this as I already have worked around most of my problems with the merged cells.

View Replies!   View Related
If Data Changes In Cell Clear Contents Of Another Cell
I'm sure this is very easy but I just can't seem to get my head around it

I have data in cells j3 and j4 but when the data changes in j3 I'd like j4 to be cleared of it's contents.

View Replies!   View Related
Clear Contents Of A Cell Of Row A, If Cell In Row I Is Blank
I need to clear the contents of the cell in Row "A", if the cell in Row "I" is blank.

The issue, is there are roughly 1200 excel documents in a folder and subfolders. That is a painful amount of opening workbooks, sort ascending and deleting. Not on my top 10 list of things to do.

If someone could create a code to do this, and loop it through a folder (I can move all the files to a single folder manually, not an issue)

View Replies!   View Related
VBA To Clear Contents Of Cells And Keep Some Cells Locked
I have written this code to clear the contents of certain cells, lock the content of others and protect the sheet again it works on sheet1 but not on sheet 7. This is suppose to happen when the Print button on my sheet is clicked.

View Replies!   View Related
Color Fonts In Column G Based On Contents In Column E
I have created an Excel spreadsheet teachers schedule for a small school with 8 teachers. I have assigned a number to each teacher (1 - 8) so that a number typed in a cell in Column E will cause a teachers name to appear in a cell in Column G. The ranges are E3:E20 and G3:G20. I hope to find a Macro that will display each teachers name in a different color.

View Replies!   View Related
Macro To Find End Of Column And Paste Contents In Column 1
I have the file here i work with, basically the first column is a legend and the column to the right of it is a pointer column to help me find out where a legend is located in another file. So i was wondering if a macro could be made to basically find where the "legend column" A, C, E ect ends ( every other column is a legend column , one next to it is a pointer column ). and then combine the ends all of the columns contents and put them into 1 column.

In the file with this question i have showed you what i start off with, i highlighed in yellow where each column legend ends, ( normally these are not highlighted and i find them manually ). In the 2nd tab i show what the end result should be. All the columns are now consolidated into 1 column. 1 after the other.

View Replies!   View Related
Auto Fill Column B Based Contents Of Column A
I have a list that is streets and addresses. All contained in column A. Cell A1 is the street name and then Column A3 is the street number. This repeats down column A for almost 1000 street names. I need to fill column B3 with the street name, as well as B4, B5, B6, etc until the street name changes. I was trying to do this with an if..then but couldn't get it to work. I also tried to work on a do.. loop looking for the change from a string to number. But my programming is a little rusty. If anyone can help I was be forever grateful. I mean the alternative is to sit here and copy and paste all day.

ABBEY CT

1700
1700
1703
1703

ABERDEEN LN

1305
1313
1321
1321

View Replies!   View Related
Clear 1 Column Of Data
how do I specify in the code to clear Just column A?

View Replies!   View Related
If Column F Has “Out” And Column K Has Any Contents Copy The Row
I’d like to check each row in Column F and Column K of Sheet Check. If Column F has the contents “Out” and Column K has any contents inside its cell, I’d like to copy that row and insert it into Sheet Alert. As a result the same row will exist in Sheet Check and Sheet Alert. This code will cut the row out of Sheet Check and paste the row into Sheet Alert if the contents “Out” is found in Column F.

View Replies!   View Related
Delete Or Clear A Row If Cell In Column Is Blank
Is there a way to delete or clear a row on exit if no end date has gone into it. i.e. if the user clicks on the X button in the top right hand corner.

Every time the user clicks on start the date goes into the next empty row, if finish is clicked then the end date will go into the cell next to it. See example below. Here the user has started and ended correctly

column
AB
StartEnd
24/10/09 24/10/09
24/10/09 24/10/09

In the example below the user has forgotten to click on the finish button when they first clicked on start, they exited excel instead and no end date was inputted. When the user clicked on start again the start date went to the row below, however as there was no end date the last time, this time when they clicked on end button, then end date went to the first BLANK CELL

column
AB
StartEnd
24/10/09 24/10/09
24/10/09

I would want the delete row or clear row option, which ever would work best, to happen if the user clicked on the X in top right and corner or Exited excel via File.

Ideally I would like the row cleared and not deleted, I have read Clare Watts thread and we both seems to be having a similar problem, I have used some of the examples from her thread but non seem to work. So I now wish to go with a delete or clear row option on exit, if possible.

The row changes every time. The column for deleting or clearing would be A to AB. The end date goes in to Column B

So if the user clicked on start but did not click on the Finish Button then the last row with no end date would be deleted or cleared on exit from column A to AB

column
AB
StartEnd
24/10/09 24/10/09
24/10/09(This is deleted or Cleared of exit via X top right hand corner)


View Replies!   View Related
Clear Cells Based On Another Column (renamed For Erik)
if A7="in" delete contents of Q7
the contents in the a column are "in" or "out"
the contents of the Q column are all different so it will have to be cell based
i will have to apply this to the whole sheet

View Replies!   View Related
MACRO To Move Contents To The End Of Another Column
I am just getting started and have over 1000 items in the list. I want to be able to run a macro that would take the root portion of the image link and then replace the 'imagename.jpg' with 'modelnumber.jpg'

So start with
Column 1 www.photobucket.com/a/aa/a/imagename.jpg
Column 2 LAT-NR460

and end up with
Column 1 www.photobucket.com/a/aa/a/LAT-NR460.jpg
Column 2 LAT-NR460

Column 1 could start empty or just with the root.

View Replies!   View Related
VBA Code To Copy The Contents Of Column
What is the proper VBA code to copy the contents of column T and column W (beginning at row 2 and ending at the last nonempty cell) in sheet 1 to column D and column E in sheet 3? Column T and column W always contain the same number of nonempty cells.


View Replies!   View Related
Filling Combo Box With Contents Of A Column
Is there a way that I can make a macro that populates ComboBox1 of sheet 1 with the values in the B column, where the number of elements in the B column might be any value?

For example, if there are values in B2, B4, and B8, I want ComboBox1 to show those three values.

View Replies!   View Related
Copyright © 2005-08 www.BigResource.com, All rights reserved