Solved

Clear contents of cells with an empty string

Posted on 2011-09-22
2
157 Views
Last Modified: 2012-05-12
Dear Experts:

I would like to CLEAR the CONTENTS of all the cells in colum 'F' where the entered formula has produced an empty string "".

Help is much appreciated. Thank you very much in advance.

Regards, Andreas

0
Comment
Question by:AndreasHermle
2 Comments
 
LVL 24

Accepted Solution

by:
StephenJR earned 500 total points
ID: 36579148
This perhaps?
Sub x()

Dim r As Range

For Each r In Columns(6).SpecialCells(xlCellTypeFormulas)
    If r.Value = "" Then r.Clearcontents
Next r

End Sub

Open in new window

0
 

Author Closing Comment

by:AndreasHermle
ID: 36579225
Hi Stephen,

that's it. Thank you very much for your help.

Regards, Andreas
0

Featured Post

Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Drop Down List with Unique/Distinct Values (Part II - ComboBox or ListBox and Data Validation List Bonus!) David Miller (dlmille) Intro This article focuses on delivering unique, sorted lists to list objects (e.g., ComboBox, ListBox) and Dat…
This article will guide you to convert a grid from a picture into Excel format using Microsoft OneNote and no other 3rd party application.
This Micro Tutorial will demonstrate how to use longer labels with horizontal bar charts instead of the vertical column chart.
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

773 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question