?
Solved

Clearing Cells

Posted on 2011-02-23
8
Medium Priority
?
299 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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
Migrating Your Company's PCs

To keep pace with competitors, businesses must keep employees productive, and that means providing them with the latest technology. This document provides the tips and tricks you need to help you migrate an outdated PC fleet to new desktops, laptops, and tablets.

 

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 2000 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

Will your db performance match your db growth?

In Percona’s white paper “Performance at Scale: Keeping Your Database on Its Toes,” we take a high-level approach to what you need to think about when planning for database scalability.

Question has a verified solution.

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

This very simple solution applies to a narrow cross-section of the "needs to close" variety. In this case, the full message in Event Viewer was in applog, Event ID 1000: Faulting application iexplore.exe, version 8.0.6001.18702, faulting module …
User Beware!  This is a rather permanent solution to removing your email from an exchange server.  The only way to truly go back is to have your exchange administrator restore your mailbox from backups.  This is usually the option of last resort.  A…
The viewer will learn how to simulate a series of coin tosses with the rand() function and learn how to make these “tosses” depend on a predetermined probability. Flipping Coins in Excel: Enter =RAND() into cell A2: Recalculate the random variable…
The view will learn how to download and install SIMTOOLS and FORMLIST into Excel, how to use SIMTOOLS to generate a Monte Carlo simulation of 30 sales calls, and how to calculate the conditional probability based on the results of the Monte Carlo …

741 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