Test post for parsing of code tags

S

Simon Lloyd

Just a test to see which code tags get parsed, no need to respond thank
VBA tags

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object
ByVal Target As Range
Application.screenupdating= fals
Worksheets("usage").Visible = Fals
If Worksheets("Usage").Visible = True The
Exit Su
End I
With ThisWorkbook.Worksheets("usage").Cells(Rows.Count, "A").End(xlUp
.offset(1, 0).Value = Target.Text & Target.Addres
.offset(1, 1).Value = Sh.Nam
.offset(1, 2).Value = Format(Now, "dd mmm yyyy, hh:mm"
.offset(1, 3).Value = environ("username"
End Wit
Application.screenupdating= tru
End Su

Code tags

Code
-------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range
Application.screenupdating= fals
Worksheets("usage").Visible = Fals
If Worksheets("Usage").Visible = True The
Exit Su
End I
With ThisWorkbook.Worksheets("usage").Cells(Rows.Count, "A").End(xlUp
.offset(1, 0).Value = Target.Text & Target.Addres
.offset(1, 1).Value = Sh.Nam
.offset(1, 2).Value = Format(Now, "dd mmm yyyy, hh:mm"
.offset(1, 3).Value = environ("username"
End Wit
Application.screenupdating= tru
End Su
-------------------

--
Simon Lloy

Regards
Simon Lloy
'Microsoft Office Help' (http://www.thecodecage.com
 
S

Simon Lloyd

Test complete, below is as shown in the newsgroups
Just a test to see which code tags get parsed, no need to respond thank
VBA tags

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object
ByVal Target As Range
Application.screenupdating= fals
Worksheets("usage").Visible = Fals
If Worksheets("Usage").Visible = True The
Exit Su
End I
With ThisWorkbook.Worksheets("usage").Cells(Rows.Count, "A").End(xlUp
.offset(1, 0).Value = Target.Text & Target.Addres
.offset(1, 1).Value = Sh.Nam
.offset(1, 2).Value = Format(Now, "dd mmm yyyy, hh:mm"
.offset(1, 3).Value = environ("username"
End Wit
Application.screenupdating= tru
End Su

Code tags

Code
-------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVa
Target As Range
Application.screenupdating= fals
Worksheets("usage").Visible = Fals
If Worksheets("Usage").Visible = True The
Exit Su
End I
With ThisWorkbook.Worksheets("usage").Cells(Rows.Count
"A").End(xlUp
.offset(1, 0).Value = Target.Text & Target.Addres
.offset(1, 1).Value = Sh.Nam
.offset(1, 2).Value = Format(Now, "dd mmm yyyy, hh:mm"
.offset(1, 3).Value = environ("username"
End Wit
Application.screenupdating= tru
End Su
-------------------


--
Simon Lloy

Regards
Simon Lloy
'Microsoft Office Help' ('http://www.thecodecage.com
(http://www.thecodecage.com/)

Just a test to see which code tags get parsed, no need to respond thank
VBA tags

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object
ByVal Target As Range
Application.screenupdating= fals
Worksheets("usage").Visible = Fals
If Worksheets("Usage").Visible = True The
Exit Su
End I
With ThisWorkbook.Worksheets("usage").Cells(Rows.Count, "A").End(xlUp
.offset(1, 0).Value = Target.Text & Target.Addres
.offset(1, 1).Value = Sh.Nam
.offset(1, 2).Value = Format(Now, "dd mmm yyyy, hh:mm"
.offset(1, 3).Value = environ("username"
End Wit
Application.screenupdating= tru
End Su

Code tags Code
-------------------
Application.screenupdating= fals
Worksheets("usage").Visible = Fals
If Worksheets("Usage").Visible = True The
Exit Su
End I
With ThisWorkbook.Worksheets("usage").Cells(Rows.Count, "A").End(xlUp
.offset(1, 0).Value = Target.Text & Target.Addres
.offset(1, 1).Value = Sh.Nam
.offset(1, 2).Value = Format(Now, "dd mmm yyyy, hh:mm"
.offset(1, 3).Value = environ("username"
End Wit
Application.screenupdating= tru
End Su -------------------

--
Simon Lloy

Regards
Simon Lloy
'Microsoft Office Help' (http://www.thecodecage.com
 
S

Simon Lloyd

Third te
VBA tags
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object
ByVal Target As Range
Application.screenupdating= fals
Worksheets("usage").Visible = Fals
If Worksheets("Usage").Visible = True The
Exit Su
End I
With ThisWorkbook.Worksheets("usage").Cells(Rows.Count, "A").End(xlUp
.offset(1, 0).Value = Target.Text & Target.Addres
.offset(1, 1).Value = Sh.Nam
.offset(1, 2).Value = Format(Now, "dd mmm yyyy, hh:mm"
.offset(1, 3).Value = environ("username"
End Wit
Application.screenupdating= tru
End Su

Code tags

Code
-------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range
Application.screenupdating= fals
Worksheets("usage").Visible = Fals
If Worksheets("Usage").Visible = True The
Exit Su
End I
With ThisWorkbook.Worksheets("usage").Cells(Rows.Count, "A").End(xlUp
.offset(1, 0).Value = Target.Text & Target.Addres
.offset(1, 1).Value = Sh.Nam
.offset(1, 2).Value = Format(Now, "dd mmm yyyy, hh:mm"
.offset(1, 3).Value = environ("username"
End Wit
Application.screenupdating= tru
End Su
-------------------

Second test for adjustments - still no need to reply

vba tags

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object
ByVal Target As Range
Application.screenupdating= fals
Worksheets("usage").Visible = Fals
If Worksheets("Usage").Visible = True The
Exit Su
End I
With ThisWorkbook.Worksheets("usage").Cells(Rows.Count, "A").End(xlUp
.offset(1, 0).Value = Target.Text & Target.Addres
.offset(1, 1).Value = Sh.Nam
.offset(1, 2).Value = Format(Now, "dd mmm yyyy, hh:mm"
.offset(1, 3).Value = environ("username"
End Wit
Application.screenupdating= tru
End Su

Code tags
Code
-------------------
Application.screenupdating= fals
Worksheets("usage").Visible = Fals
If Worksheets("Usage").Visible = True The
Exit Su
End I
With ThisWorkbook.Worksheets("usage").Cells(Rows.Count, "A").End(xlUp
.offset(1, 0).Value = Target.Text & Target.Addres
.offset(1, 1).Value = Sh.Nam
.offset(1, 2).Value = Format(Now, "dd mmm yyyy, hh:mm"
.offset(1, 3).Value = environ("username"
End Wit
Application.screenupdating= tru
End Su -------------------

--
Simon Lloy

Regards
Simon Lloy
'Microsoft Office Help' (http://www.thecodecage.com
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top