software

I was given this code from another post quot;How do I convert a cell(s) from
the formula to it's contents?quot; .

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column lt;gt; 1 Then Exit Sub
With Sheets(quot;Output_5Tabquot;)
.Range(Target.Address).Value = Target.Value
End With
End Sub

When I change in my input sheet quot;Int_5Tabquot; I get no indication that
anything is happening in the output file quot;Output_5Tabquot;???
Any recommendations ?

Maybe write to the statusbar?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column lt;gt; 1 Then Exit Sub
With Sheets(quot;Sheet2quot;) 'quot;Output_5Tabquot;)
.Range(Target.Address).Value = Target.Value
Application.StatusBar = Target.Address amp; quot; copied to Output_5Tabquot;
End With
End Sub
--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

quot;ZZBCquot; gt; wrote in message
...
gt; I was given this code from another post quot;How do I convert a cell(s) from
gt; the formula to it's contents?quot; .
gt;
gt; Private Sub Worksheet_Change(ByVal Target As Range)
gt; If Target.Column lt;gt; 1 Then Exit Sub
gt; With Sheets(quot;Output_5Tabquot;)
gt; .Range(Target.Address).Value = Target.Value
gt; End With
gt; End Sub
gt;
gt; When I change in my input sheet quot;Int_5Tabquot; I get no indication that
gt; anything is happening in the output file quot;Output_5Tabquot;???
gt; Any recommendations ?
Bob Phillips wrote:

gt;Maybe write to the statusbar?
gt;
gt;Private Sub Worksheet_Change(ByVal Target As Range)
gt; If Target.Column lt;gt; 1 Then Exit Sub
gt; With Sheets(quot;Sheet2quot;) 'quot;Output_5Tabquot;)
gt; .Range(Target.Address).Value = Target.Value
gt; Application.StatusBar = Target.Address amp; quot; copied to Output_5Tabquot;
gt; End With
gt;End Sub
gt;
gt;
gt;
gt;--
gt;
gt;HTH
gt;
gt;Bob Phillips
gt;
gt;(remove nothere from the email address if mailing direct)
gt;
gt;quot;ZZBCquot; gt; wrote in message
...
gt;
gt;
gt;gt;I was given this code from another post quot;How do I convert a cell(s) from
gt;gt;the formula to it's contents?quot; .
gt;gt;
gt;gt;Private Sub Worksheet_Change(ByVal Target As Range)
gt;gt; If Target.Column lt;gt; 1 Then Exit Sub
gt;gt; With Sheets(quot;Output_5Tabquot;)
gt;gt; .Range(Target.Address).Value = Target.Value
gt;gt; End With
gt;gt;End Sub
gt;gt;
gt;gt;When I change in my input sheet quot;Int_5Tabquot; I get no indication that
gt;gt;anything is happening in the output file quot;Output_5Tabquot;???
gt;gt;Any recommendations ?
gt;gt;
gt;gt;
gt;
gt;
gt;
gt;
Got NOTHING!
so, I guess the Macro is not firing ?
I read something at one time about 'turning on Macros' ... ??? ... could
something like that be the problem?
I am running Win 98 SE, and Excell 2000Bob
In troubleshooting, like you are doing, just put a MsgBox command as the
first line of your macro. Remove the line after you get things working.
Use a line like:
MsgBox quot;It's running!quot;
Then, if the macro fires, the first thing it does is display the message
box. HTH Otto
quot;ZZBCquot; gt; wrote in message
...
gt; Bob Phillips wrote:
gt;
gt;gt;Maybe write to the statusbar?
gt;gt;
gt;gt;Private Sub Worksheet_Change(ByVal Target As Range)
gt;gt; If Target.Column lt;gt; 1 Then Exit Sub
gt;gt; With Sheets(quot;Sheet2quot;) 'quot;Output_5Tabquot;)
gt;gt; .Range(Target.Address).Value = Target.Value
gt;gt; Application.StatusBar = Target.Address amp; quot; copied to Output_5Tabquot;
gt;gt; End With
gt;gt;End Sub
gt;gt;
gt;gt;
gt;gt;
gt;gt;--
gt;gt;
gt;gt;HTH
gt;gt;
gt;gt;Bob Phillips
gt;gt;
gt;gt;(remove nothere from the email address if mailing direct)
gt;gt;
gt;gt;quot;ZZBCquot; gt; wrote in message
...
gt;gt;
gt;gt;gt;I was given this code from another post quot;How do I convert a cell(s) from
gt;gt;gt;the formula to it's contents?quot; .
gt;gt;gt;
gt;gt;gt;Private Sub Worksheet_Change(ByVal Target As Range)
gt;gt;gt; If Target.Column lt;gt; 1 Then Exit Sub
gt;gt;gt; With Sheets(quot;Output_5Tabquot;)
gt;gt;gt; .Range(Target.Address).Value = Target.Value
gt;gt;gt; End With
gt;gt;gt;End Sub
gt;gt;gt;
gt;gt;gt;When I change in my input sheet quot;Int_5Tabquot; I get no indication that
gt;gt;gt;anything is happening in the output file quot;Output_5Tabquot;???
gt;gt;gt;Any recommendations ?
gt;gt;gt;
gt;gt;
gt;gt;
gt;gt;
gt; Got NOTHING!
gt; so, I guess the Macro is not firing ?
gt; I read something at one time about 'turning on Macros' ... ??? ... could
gt; something like that be the problem?
gt; I am running Win 98 SE, and Excell 2000
gt;
Otto Moehrbach wrote:

gt;Bob
gt; In troubleshooting, like you are doing, just put a MsgBox command as the
gt;first line of your macro. Remove the line after you get things working.
gt;Use a line like:
gt;MsgBox quot;It's running!quot;
gt;Then, if the macro fires, the first thing it does is display the message
gt;box. HTH Otto
gt;quot;ZZBCquot; gt; wrote in message
...
gt;
gt;
gt;gt;Bob Phillips wrote:
gt;gt;
gt;gt;
gt;gt;
gt;gt;gt;Maybe write to the statusbar?
gt;gt;gt;
gt;gt;gt;Private Sub Worksheet_Change(ByVal Target As Range)
gt;gt;gt; If Target.Column lt;gt; 1 Then Exit Sub
gt;gt;gt; With Sheets(quot;Sheet2quot;) 'quot;Output_5Tabquot;)
gt;gt;gt; .Range(Target.Address).Value = Target.Value
gt;gt;gt; Application.StatusBar = Target.Address amp; quot; copied to Output_5Tabquot;
gt;gt;gt; End With
gt;gt;gt;End Sub
gt;gt;gt;
gt;gt;gt;
gt;gt;gt;
gt;gt;gt;--
gt;gt;gt;
gt;gt;gt;HTH
gt;gt;gt;
gt;gt;gt;Bob Phillips
gt;gt;gt;
gt;gt;gt;(remove nothere from the email address if mailing direct)
gt;gt;gt;
gt;gt;gt;quot;ZZBCquot; gt; wrote in message
...
gt;gt;gt;
gt;gt;gt;
gt;gt;gt;
gt;gt;gt;gt;I was given this code from another post quot;How do I convert a cell(s) from
gt;gt;gt;gt;the formula to it's contents?quot; .
gt;gt;gt;gt;
gt;gt;gt;gt;Private Sub Worksheet_Change(ByVal Target As Range)
gt;gt;gt;gt; If Target.Column lt;gt; 1 Then Exit Sub
gt;gt;gt;gt; With Sheets(quot;Output_5Tabquot;)
gt;gt;gt;gt; .Range(Target.Address).Value = Target.Value
gt;gt;gt;gt; End With
gt;gt;gt;gt;End Sub
gt;gt;gt;gt;
gt;gt;gt;gt;When I change in my input sheet quot;Int_5Tabquot; I get no indication that
gt;gt;gt;gt;anything is happening in the output file quot;Output_5Tabquot;???
gt;gt;gt;gt;Any recommendations ?
gt;gt;gt;gt;
gt;gt;gt;gt;
gt;gt;gt;gt;
gt;gt;gt;
gt;gt;gt;
gt;gt;gt;
gt;gt;Got NOTHING!
gt;gt;so, I guess the Macro is not firing ?
gt;gt;I read something at one time about 'turning on Macros' ... ??? ... could
gt;gt;something like that be the problem?
gt;gt;I am running Win 98 SE, and Excell 2000
gt;gt;
gt;gt;
gt;gt;
gt;
gt;
gt;
gt;
Thanks!

Are you sure you have the worksheet event code in a worksheet code module?

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

quot;ZZBCquot; gt; wrote in message
...
gt; Bob Phillips wrote:
gt;
gt; gt;Maybe write to the statusbar?
gt; gt;
gt; gt;Private Sub Worksheet_Change(ByVal Target As Range)
gt; gt; If Target.Column lt;gt; 1 Then Exit Sub
gt; gt; With Sheets(quot;Sheet2quot;) 'quot;Output_5Tabquot;)
gt; gt; .Range(Target.Address).Value = Target.Value
gt; gt; Application.StatusBar = Target.Address amp; quot; copied to Output_5Tabquot;
gt; gt; End With
gt; gt;End Sub
gt; gt;
gt; gt;
gt; gt;
gt; gt;--
gt; gt;
gt; gt;HTH
gt; gt;
gt; gt;Bob Phillips
gt; gt;
gt; gt;(remove nothere from the email address if mailing direct)
gt; gt;
gt; gt;quot;ZZBCquot; gt; wrote in message
gt; ...
gt; gt;
gt; gt;
gt; gt;gt;I was given this code from another post quot;How do I convert a cell(s) from
gt; gt;gt;the formula to it's contents?quot; .
gt; gt;gt;
gt; gt;gt;Private Sub Worksheet_Change(ByVal Target As Range)
gt; gt;gt; If Target.Column lt;gt; 1 Then Exit Sub
gt; gt;gt; With Sheets(quot;Output_5Tabquot;)
gt; gt;gt; .Range(Target.Address).Value = Target.Value
gt; gt;gt; End With
gt; gt;gt;End Sub
gt; gt;gt;
gt; gt;gt;When I change in my input sheet quot;Int_5Tabquot; I get no indication that
gt; gt;gt;anything is happening in the output file quot;Output_5Tabquot;???
gt; gt;gt;Any recommendations ?
gt; gt;gt;
gt; gt;gt;
gt; gt;
gt; gt;
gt; gt;
gt; gt;
gt; Got NOTHING!
gt; so, I guess the Macro is not firing ?
gt; I read something at one time about 'turning on Macros' ... ??? ... could
gt; something like that be the problem?
gt; I am running Win 98 SE, and Excell 2000
gt;
Bob Phillips wrote:

gt;Are you sure you have the worksheet event code in a worksheet code module?
gt;
gt;--
gt;
gt;HTH
gt;
gt;Bob Phillips
gt;
gt;(remove nothere from the email address if mailing direct)
gt;
gt;quot;ZZBCquot; gt; wrote in message
...
gt;
gt;
gt;gt;Bob Phillips wrote:
gt;gt;
gt;gt;
gt;gt;
gt;gt;gt;Maybe write to the statusbar?
gt;gt;gt;
gt;gt;gt;Private Sub Worksheet_Change(ByVal Target As Range)
gt;gt;gt; If Target.Column lt;gt; 1 Then Exit Sub
gt;gt;gt; With Sheets(quot;Sheet2quot;) 'quot;Output_5Tabquot;)
gt;gt;gt; .Range(Target.Address).Value = Target.Value
gt;gt;gt; Application.StatusBar = Target.Address amp; quot; copied to Output_5Tabquot;
gt;gt;gt; End With
gt;gt;gt;End Sub
gt;gt;gt;
gt;gt;gt;
gt;gt;gt;
gt;gt;gt;--
gt;gt;gt;
gt;gt;gt;HTH
gt;gt;gt;
gt;gt;gt;Bob Phillips
gt;gt;gt;
gt;gt;gt;(remove nothere from the email address if mailing direct)
gt;gt;gt;
gt;gt;gt;quot;ZZBCquot; gt; wrote in message
...
gt;gt;gt;
gt;gt;gt;
gt;gt;gt;
gt;gt;gt;
gt;gt;gt;gt;I was given this code from another post quot;How do I convert a cell(s) from
gt;gt;gt;gt;the formula to it's contents?quot; .
gt;gt;gt;gt;
gt;gt;gt;gt;Private Sub Worksheet_Change(ByVal Target As Range)
gt;gt;gt;gt; If Target.Column lt;gt; 1 Then Exit Sub
gt;gt;gt;gt; With Sheets(quot;Output_5Tabquot;)
gt;gt;gt;gt; .Range(Target.Address).Value = Target.Value
gt;gt;gt;gt; End With
gt;gt;gt;gt;End Sub
gt;gt;gt;gt;
gt;gt;gt;gt;When I change in my input sheet quot;Int_5Tabquot; I get no indication that
gt;gt;gt;gt;anything is happening in the output file quot;Output_5Tabquot;???
gt;gt;gt;gt;Any recommendations ?
gt;gt;gt;gt;
gt;gt;gt;gt;
gt;gt;gt;gt;
gt;gt;gt;gt;
gt;gt;gt;
gt;gt;gt;
gt;gt;gt;
gt;gt;gt;
gt;gt;Got NOTHING!
gt;gt;so, I guess the Macro is not firing ?
gt;gt;I read something at one time about 'turning on Macros' ... ??? ... could
gt;gt;something like that be the problem?
gt;gt;I am running Win 98 SE, and Excell 2000
gt;gt;
gt;gt;
gt;gt;
gt;
gt;
gt;
gt;
Thanks for taking the time to make a suggestion!
I found the problem ... I had the security level set to high ... macros
not turned on .... a real DUMMY!