test post no need to reply

[Simon Lloyd]

Test for cade tags parsing and view in the newsgroups
VBA tags:
ication.screenupdating= false
Worksheets("usage").Visible = False
If Worksheets("Usage").Visible = True Then
Exit Sub
End If
With ThisWorkbook.Worksheets("usage").Cells(Rows.Count, "A").End(xlUp)
offset(1, 0).Value = Target.Text & Target.Address
offset(1, 1).Value = Sh.Name
offset(1, 2).Value = Format(Now, "dd mmm yyyy, hh:mm")
offset(1, 3).Value = environ("username")
End With
Application.screenupdating= true
End Sub

Code tags:

Code:
--------------------
ication.screenupdating= false
Worksheets("usage").Visible = False
If Worksheets("Usage").Visible = True Then
Exit Sub
End If
With ThisWorkbook.Worksheets("usage").Cells(Rows.Count, "A").End(xlUp)
.offset(1, 0).Value = Target.Text & Target.Address
.offset(1, 1).Value = Sh.Name
.offset(1, 2).Value = Format(Now, "dd mmm yyyy, hh:mm")
.offset(1, 3).Value = environ("username")
End With
Application.screenupdating= true
End Sub
--------------------


--
Simon Lloyd

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

 

[Peter T]

Why not use the Test group for your test postings.

AFAIK the MS groups do not look for tags, either in NNTP or WebNews (not
sure about any of the numerous third mirrors, one of which I assume you are
posting from), however I understand some words do get inadvertently
filtered.

Regards,
Peter T

 

[Simon Lloyd]

Sorry for the annoyance Peter, our forums use nntp to post to the
newsgroups, i've noticed that when code is posted all the line breaks
are being stripped, but when someone replies the line breaks are
reinstated as your post is testament to.

I would post to the test forum but the forum i am posting in only posts
out to a specific forum. this one!

Again sorry for the annoyance

Why not use the Test group for your test postings.

AFAIK the MS groups do not look for tags, either in NNTP or WebNews
(not
sure about any of the numerous third mirrors, one of which I assume you
are
posting from), however I understand some words do get inadvertently
filtered.

Regards,
Peter T



Microsoft Office Discussion' (http://www.thecodecage.com))

--
Simon Lloyd

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

 

[Simon Lloyd]

Just realised you said some words get filtered out, that didn't happe
in my code it was just shoddy copying, here's the code in full, i
should appear ok

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

Sorry for the annoyance Peter, our forums use nntp to post to th
newsgroups, i've noticed that when code is posted all the line break
are being stripped, but when someone replies the line breaks ar
reinstated as your post is testament to

I would post to the test forum but the forum i am posting in only post
out to a specific forum. this one

Again sorry for the annoyance :

--
Simon Lloy

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