#1
|
|||
|
|||
Help with Code
After I run this macro again, I get the same values. Can someone tell me how to reset the specified range "Table," so that I can add another range and calculate new values?
Code:
Sub MacroTry1() ' ' MacroTry1 Macro Dim Specifiedrange As Range Set Specifiedrange = Application.InputBox("Specify the range:", Type:=8) Specifiedrange.Name = "Table" ActiveCell.FormulaR1C1 = "=COUNTIF(Table,"">0"")" Range("E2").Select ActiveCell.FormulaR1C1 = "=COUNT(Table)" Range("F2").Select ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]" Range("D3").Select End Sub Last edited by macropod; 02-10-2017 at 11:17 PM. Reason: Added code tags |
#2
|
||||
|
||||
I haven't been back here in a while, AJacLo; I don't know what you mean by "the same values". The same as what? I guess you're referring to a previous thread, but you don't cite it here.
As I read your code, it asks the user to specify a range. It puts in some random cell—the cell that happened to be active when you started the program—a formula counting the number of non-zero values in the range. Then in E2 it puts the number of values (zero or non-zero) in the same range. In F2 it puts the difference between the E2 and D2. If the user started the program while D2 was active, then that third figure shows the number of zero values in the specified range. Of course I may be misreading it. But to help I still gotta know "the same values as what"? |
#3
|
|||
|
|||
Option Explicit
Sub MacroTry1() ' ' MacroTry1 Macro Dim Specifiedrange As Range Set Specifiedrange = Application.InputBox("Specify the range:", Type:=8) Specifiedrange.Name = "Table" ActiveCell.FormulaR1C1 = "=COUNTIF(Table,"">0"")" Range("E2").Select ActiveCell.FormulaR1C1 = "=COUNT(Table)" Range("F2").Select ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]" Range("D3").Select Set Specifiedrange = Nothing '<--- ???? End Sub |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
VBA Code to search for field codes with certain text before the Field code and to change style | welcometocandyland | Word VBA | 4 | 02-08-2017 06:53 PM |
QR-code | qrcode | Word | 3 | 05-26-2015 06:38 AM |
code to run once only | gerrymac | Word VBA | 6 | 07-26-2014 12:19 AM |
Where does my code go? | rbaldwin | Word VBA | 3 | 03-14-2012 02:31 PM |