StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POVBA .findnext not working. Runtime error 91 object variable or with block variable not set
primarykey
Id
17024088
data
AcceptedAnswerId
17025707
AnswerCount
1
ClosedDate
CommentCount
0
CommunityOwnedDate
CreationDate
2013-06-10T12:38:08.347
FavoriteCount
2
LastActivityDate
2015-10-16T15:38:36.480
LastEditDate
2013-06-10T15:08:03.840
LastEditorUserId
2455545
OwnerUserId
2455545
ParentId
0
PostTypeId
1
Score
1
ViewCount
4264
LastEditorDisplayName
text
Body
I am trying to execute a search where it searches through a column for "REQM" (no quotes) and set the range of the found cell to d. Then call another sub function that finds where to enter the data into. My FindEntryArea sub function works fine and my first find works great but when it tries to findnext it is not working properly. <pre><code>Sub FindLoop() Dim re as Range Set re = Sheets(1).Range("T:T") With re Set d = .Find("REQM", LookIn:=xlFormulas, LookAt:=xlWhole) MsgBox (d.Row) Call FindEntryArea Do Set d = .FindNext(d) MsgBox (d.Row) Call FindEntryArea Loop While Not d Is Nothing End With End Sub </code></pre> Trying to figure out the error I used msgbox to print out the row of the range that was being found this worked fine for the first cell but did not work for the findnext. I get object variable or with block variable not set. I am fairly new to VBA and this is my first time using findnext so any guidance would be appreciated. Also re is my range and there are plenty of other cells that should be found within it. Thanks. EDIT: Main code and findloop <pre><code>Public re As Range Public d As variant Sub MainCode() Dim r as Range Set re = Worksheets("Summary all PIIDB").Range("T:T") Set r = Worksheets("Summary all PIIDB") With r Call FindLoop End With End Sub Sub FindLoop() With re Set d = .Find("REQM", LookIn:=xlFormulas, LookAt:=xlWhole) MsgBox (d.Row) 'Call FindEntryArea Set d = .FindNext(d) MsgBox (d.Row) 'Call FindEntryArea End With End Sub </code></pre> I removed the loop just to get findnext working first and yet I am still struggling.
Tags
<vba><find><range><runtime-error><with-statement>
Title
VBA .findnext not working. Runtime error 91 object variable or with block variable not set
singulars
PostAcceptedAnswerId
1. PO
 singulars
 PostTypePostTypeId
 PTAnswer
PostParentId
1. This table or related slice is empty.
PostTypePostTypeId
1. PTQuestion
UserLastEditorUserId
1. USMark
UserOwnerUserId
1. USMark
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. This table or related slice is empty.
PostsParentIdCreationDate
1. PO
 singulars
 PostTypePostTypeId
 PTAnswer
VotesPostIdCreationDate
1. VO
 singulars
 PostPostId
 POVBA .findnext not working. Runtime error 91 object variable or with block variable not set
 UserUserId
 This table or related slice is empty.
 VoteTypeVoteTypeId
 VTUpMod
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.