Two Quick Questions

[Chuckles123]

o When inputting numerical data via a TextBox, is there anyway to hav
the data displayed in comma-separated (000's) format? I assume th
answer is not.

o My spreadsheet has a variable number of rows; there is a summary a
the end. Is there anyway, after the macros have executed, for
certain row in the summary to be displayed very near the exact middl
of the screen?

Thanks for your input.
Chuckles12

 

[Tom Ogilvy]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
if isnumeric(Textbox1.Text) then
Textbox1.Text = Format(Textbox1.Text,"#,##0")
End if
End Sub

Application.goto Cells(rows.count,1)End(xlup).Offset(-10,1), True

 

[Rob van Gelder]

Format(123456789, "#,##0")


I can't say I've done a lot with the Window object, so there might be a
better way.

Sub test()
Dim rng As Range, lngRows As Long

Set rng = Range("A300")

rng.Select
With ActiveWindow.VisibleRange
ActiveWindow.SmallScroll (.Rows.Count / 2) - (.Rows.Count -
(rng.Row - .Row))
End With
End Sub