StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
primarykey
Id
16890821
data
AcceptedAnswerId
0
AnswerCount
0
ClosedDate
CommentCount
0
CommunityOwnedDate
CreationDate
2013-06-03T06:06:16.377
FavoriteCount
0
LastActivityDate
2013-06-03T06:06:16.377
LastEditDate
LastEditorUserId
0
OwnerUserId
1418533
ParentId
16639610
PostTypeId
2
Score
1
ViewCount
0
LastEditorDisplayName
text
Body
<p>I backed up, slowed down and went to some basic programming principles, as slow as they feel at times.</p> <ol> <li>Flowchart</li> <li>Pseudocode</li> <li>prototype</li> <li>test</li> <li>repeat 3 and 4 as needed.</li> </ol> <p>I found that the following code did EXACTLY what I needed. I share it for any who follow.</p> <pre><code>Sub countFoo() Dim startCell As Range Dim preCell As Range Dim counter As Integer Dim startPoint As Range, endPoint As Range Dim fileName As String, delimitingCharacter As String, SQLpre As String, SQLpost As String Dim SQL As String Dim outfile As Integer fileName = "update_foo.sql" SQLpre = "UPDATE foo SET foodata = " SQLpost = " WHERE details = '" outfile = FreeFile() Open fileName For Output As outfile counter = 1 Set startPoint = Cells(2, 4) startPoint.Activate Debug.Print "Start Point:" & startPoint.Address Debug.Print startPoint.Value Set startCell = ActiveCell Set preCell = startCell.Offset(-1, 0) Do While startCell.Value <> "END" If (startCell.Value = preCell.Value) Then counter = counter + 1 Set preCell = startCell Set startCell = startCell.Offset(1, 0) ElseIf ((startCell.Value <> preCell.Value) Or (startCell.Value = "END")) Then startCell.Offset(-1, 3).Value = counter If counter > 1 Then startCell.Offset(-1, 0).Interior.Color = 5296274 startCell.Offset(-1, 1).Interior.Color = 5296274 startCell.Offset(-1, 2).Interior.Color = 5296274 startCell.Offset(-1, 3).Font.Bold = True With startCell.Offset(-1, 3).Interior .Pattern = xlGray8 .PatternColor = 65535 .Color = 5296274 End With End If SQL = SQLpre & counter & SQLpost & startCell.Offset(-1, 0).Value & "';" Print #outfile, SQL counter = 1 Set preCell = startCell Set startCell = startCell.Offset(1, 0) End If Loop Close #outfile End Sub </code></pre>
Tags
Title
singulars
PostAcceptedAnswerId
1. This table or related slice is empty.
PostParentId
1. POHow do I count occurrences of a pattern of data in Excel?
  singulars
  PostTypePostTypeId
  PTQuestion
PostTypePostTypeId
1. PTAnswer
UserLastEditorUserId
1. This table or related slice is empty.
UserOwnerUserId
1. USKen Ingram
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. POHow do I count occurrences of a pattern of data in Excel?
  singulars
  PostTypePostTypeId
  PTQuestion
PostsParentIdCreationDate
1. This table or related slice is empty.
VotesPostIdCreationDate
1. VO
  singulars
  PostPostId
  PO
  UserUserId
  This table or related slice is empty.
  VoteTypeVoteTypeId
  VTAcceptedByOriginator
CommentsPostId
1. This table or related slice is empty.

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.