Find a string
I am trying to find the row in which a string occurs but I just do not
understand how. Can you complete this for me? Sub zTest() sDName = "D01-007" iDRow = .Find(sDName, LookIn:=Range(Cells(6, 2), Cells(30, 2))) End Sub Francis Hookham |
Find a string
Perhaps a look in the vba help index for FIND would have been of assistance.
This finds if that is the only thing in the cell ( you did not specify) Sub zTest() sdname = "D01-007" 'iDRow = .Find(sDName, LookIn:=Range(Cells(6, 2), Cells(30, 2))).Row x = Range(Cells(6, 2), Cells(30, 2)).Find(sdname).Row MsgBox x End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Francis Hookham" wrote in message ... I am trying to find the row in which a string occurs but I just do not understand how. Can you complete this for me? Sub zTest() sDName = "D01-007" iDRow = .Find(sDName, LookIn:=Range(Cells(6, 2), Cells(30, 2))) End Sub Francis Hookham |
Find a string
Sub zTest()
Dim sDname as String, r as Range, r1 as Range sDName = "D01-007" set r = Range(Cells(6, 2), Cells(30, 2)) set r1 =r.Find(sDName) if not r1 is nothing then msgbox r1.address else msgbox "Not found" End if End Sub Regards, Tom Ogilvy "Francis Hookham" wrote: I am trying to find the row in which a string occurs but I just do not understand how. Can you complete this for me? Sub zTest() sDName = "D01-007" iDRow = .Find(sDName, LookIn:=Range(Cells(6, 2), Cells(30, 2))) End Sub Francis Hookham |
Find a string
Many thanks Tom - I am most grateful.
I'll try both your and Don's answer - yours prompts me to error check which I shall do. Francis "Tom Ogilvy" wrote in message ... Sub zTest() Dim sDname as String, r as Range, r1 as Range sDName = "D01-007" set r = Range(Cells(6, 2), Cells(30, 2)) set r1 =r.Find(sDName) if not r1 is nothing then msgbox r1.address else msgbox "Not found" End if End Sub Regards, Tom Ogilvy "Francis Hookham" wrote: I am trying to find the row in which a string occurs but I just do not understand how. Can you complete this for me? Sub zTest() sDName = "D01-007" iDRow = .Find(sDName, LookIn:=Range(Cells(6, 2), Cells(30, 2))) End Sub Francis Hookham |
Find a string
Many thanks Don - I did look in Find but wasn't bright enough to realise I
should put .Row at the end. How you MVPs put up with people like me I do not know - it is a fantastic service - perhaps in my small way I do the same thing at a much lower level when my club members ask me such things as why do they keep loosing everything when, in Word, they type a uppercase A (they press CTRL instead of shift and then over type everything! Thanks Francis "Don Guillett" wrote in message ... Perhaps a look in the vba help index for FIND would have been of assistance. This finds if that is the only thing in the cell ( you did not specify) Sub zTest() sdname = "D01-007" 'iDRow = .Find(sDName, LookIn:=Range(Cells(6, 2), Cells(30, 2))).Row x = Range(Cells(6, 2), Cells(30, 2)).Find(sdname).Row MsgBox x End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Francis Hookham" wrote in message ... I am trying to find the row in which a string occurs but I just do not understand how. Can you complete this for me? Sub zTest() sDName = "D01-007" iDRow = .Find(sDName, LookIn:=Range(Cells(6, 2), Cells(30, 2))) End Sub Francis Hookham |
All times are GMT +1. The time now is 01:36 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com