Solved

Clearing Cells

Posted on 2011-02-23
8
295 Views
Last Modified: 2012-05-11
EE Professionals,

I have a set of cells that I want to clear or "reset" with a Macro.  Currently I was looking at using;
Sub clearstrategicpriorities()
Dim i As Integer
With Worksheets("Strategic_Priorities")
    .Range("A4:D43").ClearContents
End With
End Sub

The problem is that the Cells have formulas in them so I don't want to use "clearcontents".  What can I use as a command that will allow me to clear the text out of the cells or reset them, without disturbing the formulas?

Thank you,

b.
0
Comment
Question by:Bright01
  • 4
  • 4
8 Comments
 
LVL 37

Expert Comment

by:Neil Russell
ID: 34959313
The formulas display results. How can you clear the DISPLAYED results but not the formula? I dont quite understand your aim?

If you have a forula in a cell it will display the result

What are you aiming to do?
0
 

Author Comment

by:Bright01
ID: 34959439
OK..... Here's the story; I just looked at what I was trying to do based on your comments.  I don't really need to delete the cells that have the formulas in them.  I must clear the contents of the cell that forces the text (that the formulas pull in) to clear.  So here's the issue, When I use my macro;

Sub clearstrategicpriorities()
Dim i As Integer
With Worksheets("Strategic_Priorities")
    .Range("B1").Delete
    .Range("A4:A43").ClearContents
    .Range("C4:C43").ClearContents
End With
End Sub

The Range(B1).Delete statement causes problems. If I simply go to the cell and backspace the Text out of B1, I have no problems.  So I think I need another word other than Delete or Clear Contents.....

Does that make sense?

B.
0
 
LVL 37

Expert Comment

by:Neil Russell
ID: 34959462
Can you upload an example sheet with comments on what you need to achieve?

.Range("B1").ClearContents sounds like ALL you need to me IF THAT is the cell that the others are pulling the text from.
0
Enterprise Mobility and BYOD For Dummies

Like “For Dummies” books, you can read this in whatever order you choose and learn about mobility and BYOD; and how to put a competitive mobile infrastructure in place. Developed for SMBs and large enterprises alike, you will find helpful use cases, planning, and implementation.

 

Author Comment

by:Bright01
ID: 34959666
I was afraid you'd ask that!  Yep..... "the beast" is attached.  So, save a copy, than do three things;

1.) Use the drop down box to select one of three industries.  You will see that the Text changes based on the industry selected.
2.) I have a really cool Macro that puts a drop down box only where/when text is evident (Col. A and C).... you can see it when you change Industries (H,M.L).
3.) If you hit reset, it screws up the entire sheet and you even lose the list box.

What I'm trying to do is to reset the Industry (which removes the text) without losing the ability to "auto-resize" and also remove the sensitive list boxes (Col. A and C) until a new industry is selected.  

B.
Clearcontents-macro.xlsm
0
 
LVL 37

Expert Comment

by:Neil Russell
ID: 34961982
Chabge the formula in B4 to be...

=IF(OR(ISBLANK(B1), ISERROR(Priority_Formulas!E4) ),"",INDEX(PriorityDB!$E:$E,MATCH(Strategic_Priorities!$B$1&Priority_Formulas!E4,INDEX(PriorityDB!$A:$A&PriorityDB!$B:$B,0),0)))

And then change your code in module 1 to be......




Sub clearstrategicpriorities()
Dim i As Integer
    Application.EnableEvents = False
   
    With Worksheets("Strategic_Priorities")
        .Range("B1").ClearContents
        .Range("A4:A43").ClearContents
        .Range("C4:C43").ClearContents
    End With
    Application.EnableEvents = True
End Sub




Try that.
0
 
LVL 37

Accepted Solution

by:
Neil Russell earned 500 total points
ID: 34962042
Sorry I forgot the validations....

 
Sub clearstrategicpriorities()
Dim i As Integer
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    With Worksheets("Strategic_Priorities")
        .Range("B1").ClearContents
        .Range("A4:A43").ClearContents
        .Range("A4:A43").Validation.Delete
        .Range("C4:C43").ClearContents
        .Range("C4:C43").Validation.Delete
    End With
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

Open in new window

0
 

Author Comment

by:Bright01
ID: 34968015
On a flight from Beijing....will try this on Friday when I land.

Thank you!
0
 

Author Closing Comment

by:Bright01
ID: 35043345
Neil,

Excellent!  It worked!  I am terribly sorry for not getting back with you sooner.  This travel is killing me but hey "the life we choose"!  Anyway, very nice work Neil.

Best regards,

B.
0

Featured Post

Use Case: Protecting a Hybrid Cloud Infrastructure

Microsoft Azure is rapidly becoming the norm in dynamic IT environments. This document describes the challenges that organizations face when protecting data in a hybrid cloud IT environment and presents a use case to demonstrate how Acronis Backup protects all data.

Question has a verified solution.

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

Suggested Solutions

MS Access 2003 or later To MySQL Migration Project Hello All, this is my second article in the category of MS-OFFICE Automation. In internet I am not able to find any comprehensive resource on the Migration of MS Access back-end to MySQL so I fin…
Lync meeting or Lync conferencing is what many organizations would like to deploy to allow them save money. But companies are now giving up for various reasons, one of which is that they cannot join external meetings (non-federated company meetings)…
The viewer will learn how to create a normally distributed random variable in Excel, use a normal distribution to simulate the return on an investment over a period of years, Create a Monte Carlo simulation using a normal random variable, and calcul…
The viewer will learn how to create two correlated normally distributed random variables in Excel, use a normal distribution to simulate the return on different levels of investment in each of the two funds over a period of ten years, and, create a …

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