Text in a cell visable on screen but BUT doesn't get printed

[T.I.M.]

[Fixed]
How can I show the 1st 3 rows off the ,,first'' worksheet, on each new worksheet?

So it's some sort of Header?
[Fixed]


And another question:
How can I enter text in a cell that I can see on screen but doesn't get printed?
I don't like that comment thing in Excel, because you only see the/that comment when the corresponding cell is active.



great thanks,
Tim

 

[T.I.M.]

Re: Text in a cell visable on screen but BUT doesn't get pri

It's doesn't do anything???

I Use the DUTCH version of Excel 2002 with Windows XP Pro

 

[Scott Huish]

Re: Text in a cell visable on screen but BUT doesn't get pri

If the name of your TextBox is not TextBox1, you will need to change that reference in the code.
Right Click on the sheet name tab for the sheet that the text box is on. Click on View Code. Paste this code in the white area:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Or Target.Address = "$B$1" Then
myrange = ActiveSheet.Range("A1:B1")
TextBox1.Text = Application.WorksheetFunction.Sum(myrange)
End If
End Sub

 

[Scott Huish]

Re: Text in a cell visable on screen but BUT doesn't get pri

As far as protecting it, try this:

In the Worksheet section for the sheet that the text box is on:

Private Sub TextBox1_GotFocus()
TextBox1.Enabled = False
End Sub

Private Sub TextBox1_LostFocus()
TextBox1.Enabled = True
End Sub

In the ThisWorbook section:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Sheet1").TextBox1.Enabled = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets("Sheet1").TextBox1.Enabled = True
End Sub

 

[T.I.M.]

Re: Text in a cell visable on screen but BUT doesn't get pri

If the name of your TextBox is not TextBox1, you will need to change that reference in the code.
Right Click on the sheet name tab for the sheet that the text box is on. Click on View Code. Paste this code in the white area:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Or Target.Address = "$B$1" Then
myrange = ActiveSheet.Range("A1:B1")
TextBox1.Text = Application.WorksheetFunction.Sum(myrange)
End If
End Sub

The textbox still doesn't show anything???
=> empty...the textbox is just white?

Private Sub TextBox1_Change()
End Sub

this one is auto-created => delete? or keep it empty?

 

[Scott Huish]

Re: Text in a cell visable on screen but BUT doesn't get pri

You can delete this:

Private Sub TextBox1_Change() 
End Sub

Make sure that this code is in the Worksheet section for the sheet that the text box is on and that you are not in design mode, when you try it. The value in the textbox should change when you type values into A1 or B1.

Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Address = "$A$1" Or Target.Address = "$B$1" Then 
myrange = ActiveSheet.Range("A1:B1") 
TextBox1.Text = Application.WorksheetFunction.Sum(myrange) 
End If 
End Sub