Solved: Find Text Position

[fabio.geraci]

hello guys,

I have made some changes to a VB code that I found on this forum, it works great, but for some reason that I cannot understand it stops at Rws=16,

please find details in the attachement. the macro runs from VALUE, insert in the first MSGBOX "data", in the 2nd bottom and in the 3rd "VALUE"


Attachment 3958


Thanks

[Bob Phillips]

What is the For i ... Next loop after the output sheet name supposed to be doing?

[fabio.geraci]

It is for setting the Cell where I want the output (R.ROW, R.COlumn) written.

Cheers

[Bob Phillips]

Doesn't make any sense to me, I would expect something along these lines

[vba]

Sub FindIt()
Dim FindAddress As String
Dim R As Range
Dim DelRange As Range
Dim Rws As Integer
Dim i As Integer
Dim DestWb As Workbook
Dim DestWs As Worksheet
Dim Tempbook As Workbook

Sheets(InputBox("Enter DATA SheetName:", "Inputbox")).Select

With Range("a2:i1000")

Set R = .Find(InputBox("Enter WORD to Look for:", "Inputbox"))

If Not R Is Nothing Then

FindAddress = R.Address
Sheets(InputBox("Enter OUTPUT SheetName:", "Inputbox")).Select
Do

i = i + 1
Cells(i, 1) = R.Row
Cells(i, 2) = R.Column
Set R = .FindNext(R)
Loop While Not R Is Nothing And R.Address <> FindAddress
End If
End With
End Sub
[/vba]

[p45cal]

Also it's worth being aware of the following:
The .find method has arguments that you can pass to it; from help:
.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
The settings for LookIn, LookAt, SearchOrder, and MatchByte are saved each time you use this method. If you don’t specify values for these arguments the next time you call the method, the saved values are used.

In this case you may only need to set LookIn and LookAt explicitly.

[fabio.geraci]

Thanks guys, as I said in a previous post I am a newbee on VB and I learn as I go.

thanks again

[Bob Phillips]

So, are you sorted?

[fabio.geraci]

XLD

sorry for late reply, one more question:

in your code How "i" know where to start and where to finish?

cheers

[Bob Phillips]

It is just a counter, it starts initialised at 0 and gets incremented for every found record.

[fabio.geraci]

Ok then, I have used p45cal suggestion and i can narrow down the search.

Issue is solved.


thanks for help