Re: $$Excel-Macros$$ Find a same word in the worksheets multiple times using vba code
paste words in sheet2 and change range as per ur requirement
Sub loop_word()
Dim cl As Range
'
For Each cl In Sheets("Sheet2").Range("a1:a2")
Call find_word(cl.Value)
Next
End Sub
Sub find_word(wrd)
'https://msdn.microsoft.com/en-us/library/office/ff839746.aspx
With Worksheets("Sheet1").UsedRange
Set c = .Find(wrd, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Color = vbYellow
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
On Tue, Apr 12, 2016 at 1:09 AM, Priyanka Jaswal <
priyankajaswal...@gmail.com> wrote:
> In the below code , a word apple has been written , in my sheet i cant
> define words, it consists of 1000 words and i cant put any specific word,
> is there any way of to put it across like
>
> *Dim wordto find as string wordtofind=*" "
> , thanks
> On Monday, April 11, 2016, Ashish Koul wrote:
>
>> Sub sample()
>> 'https://msdn.microsoft.com/en-us/library/office/ff839746.aspx
>> Dim wordtofind As String
>> wordtofind = "apple"
>>
>> With Worksheets(1).UsedRange
>> Set c = .Find(wordtofind, LookIn:=xlValues)
>> If Not c Is Nothing Then
>> firstAddress = c.Address
>> Do
>> c.Interior.Color = vbYellow
>> Set c = .FindNext(c)
>> Loop While Not c Is Nothing And c.Address <> firstAddress
>> End If
>> End With
>> End Sub
>>
>>
>> On Mon, Apr 11, 2016 at 8:30 PM, Priyanka Jaswal <
>> priyankajaswal...@gmail.com> wrote:
>>
>>> I want to highlight that particular word so for example if there is a
>>> word retail in multiple columns and rows it should be highlighted with
>>> yellow color everywhr , only that word not a cell row or column, thanks
>>>
>>>
>>> On Monday, April 11, 2016, Ashish Koul wrote:
>>>
after match wht u wanna do highlight cell ?
On Sun, Apr 10, 2016 at 10:04 PM, Priya
wrote:
> Hi
>
> I am writing a code to look for same word in the worksheets , where
> ever it is written in the worksheet, (basically need all the rows where
> that particular word is written ). The data is huge and I cant set a code
> specific to a word. The issue I am getting is that I only get one row
> from
> all the results, whereas there are multiple rows and columns which
> includes
> that particular keyword. Could you help.
>
> Private Sub CommandButton1_Click()
> Dim MyNewValue As Variant
> Dim FoundCell As Object
> Dim Counter As Long
> Dim Flag As Boolean
> Dim SearchString As Variant
> '-
> '- Initialise Components
> Flag = False
> Worksheets("Sector Results").Rows("2:" & Rows.Count).ClearContents
> Worksheets("Function Results").Rows("2:" &
> Rows.Count).ClearContents
> Worksheets("Sector Results").Visible = False
> Worksheets("Function Results").Visible = False
> '-
> '- SET SEARCH KEY
> SearchString = TextBox2.Value()
> If SearchString = "" Then End
> Counter = 0
>
> '
> '- FIND ALL MATCHING CELLS IN SECTOR KEYWORD SHEET
> On Error Resume Next
> Set ws = Worksheets("Sector Keywords").Range("B:E")
> Set FoundCell = ws.Cells.Find(what:=SearchString,
> SearchOrder:=xlByRows, SearchDirection:=xlNext)
> If Not FoundCell Is Nothing Then
> FirstAddress = FoundCell.Address
> Do
> Counter = Counter + 1
> '
> '- what to do if found
> FoundCell.EntireRow.Copy Destination:=Sheets("Sector
> Results").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
>
> '
> Set FoundCell = ws.Cells.Find(what:=SearchString,
> After:=FoundCell, SearchOrder:=xlByRows, SearchDirection:=xlNext)
> Loop While Not FoundCell Is Nothing _
> And FoundCell.Address <> FirstAddress
> Worksheets("Sector Results").Visible = True
>
> Flag = True
> End If
>
> '
> '- FIND ALL MATCHING CELLS IN FUNCTION KEYWORD SHEET
> Set ws = Worksheets("Function Keywords").Range("B:E")
> Set FoundCell = ws.Cells.Find(what:=SearchString)
> If Not FoundCell Is Nothing Then
> FirstAddress = FoundCell.Address
> Do
> Counter = Counter + 1
> '
> '- what to do if found
> FoundCell.EntireRow.Copy Destination:=Sheets("Function
> Results").Cells(Rows.
$$Excel-Macros$$ Nesting And/OR/or other functions within an Index-Match array formula
Dear Experts: In the attached spreadsheet, I have an array formula which I would like to increase its dynamics. Currently, cells C7 and C8 require exact matches for "term", but is it possible to make the formulas in C7 and C8 return results for any "term" value above 12 just as it would return for exactly 12? (In other words, for any term value less than 12 (or "variable" value), an exact match would be required, but for anything 12 or above, the returned value should be the same as for exactly a "term" value of 12) Thank you in advance!!! M.P. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at https://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. Index Match challenge.xlsm Description: application/vnd.ms-excel.sheet.macroenabled.12
Re: $$Excel-Macros$$ Formula to extract date from cell
Can anyone pls help me into this... On Apr 4, 2016 2:57 PM, "Secret Shot" wrote: > Dear Experts, > > I have some text in a cell like "Date Range: 3/31/16 - 3/31/16" > > I want to extract the date in a another cell like date not as text only. > > Can any one help me with any dynamic formula which can extract the date > from this cell text considering where the date can me change daily, > sometime date will be in 2 digit and sometime it will be in 3 digits. and > same with the months. > > Pls help./ > > -- > Pankaj Pandey > Bangalore > > -- > Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s > =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ > https://www.facebook.com/discussexcel > > FORUM RULES > > 1) Use concise, accurate thread titles. Poor thread titles, like Please > Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice > will not get quick attention or may not be answered. > 2) Don't post a question in the thread of another member. > 3) Don't post questions regarding breaking or bypassing any security > measure. > 4) Acknowledge the responses you receive, good or bad. > 5) Jobs posting is not allowed. > 6) Sharing copyrighted material and their links is not allowed. > > NOTE : Don't ever post confidential data in a workbook. Forum owners and > members are not responsible for any loss. > --- > You received this message because you are subscribed to the Google Groups > "MS EXCEL AND VBA MACROS" group. > To unsubscribe from this group and stop receiving emails from it, send an > email to excel-macros+unsubscr...@googlegroups.com. > To post to this group, send email to excel-macros@googlegroups.com. > Visit this group at https://groups.google.com/group/excel-macros. > For more options, visit https://groups.google.com/d/optout. > -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at https://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
Re: $$Excel-Macros$$ Find a same word in the worksheets multiple times using vba code
In the below code , a word apple has been written , in my sheet i cant
define words, it consists of 1000 words and i cant put any specific word,
is there any way of to put it across like
*Dim wordto find as string wordtofind=*" "
, thanks
On Monday, April 11, 2016, Ashish Koul wrote:
> Sub sample()
> 'https://msdn.microsoft.com/en-us/library/office/ff839746.aspx
> Dim wordtofind As String
> wordtofind = "apple"
>
> With Worksheets(1).UsedRange
> Set c = .Find(wordtofind, LookIn:=xlValues)
> If Not c Is Nothing Then
> firstAddress = c.Address
> Do
> c.Interior.Color = vbYellow
> Set c = .FindNext(c)
> Loop While Not c Is Nothing And c.Address <> firstAddress
> End If
> End With
> End Sub
>
>
> On Mon, Apr 11, 2016 at 8:30 PM, Priyanka Jaswal <
> priyankajaswal...@gmail.com
> > wrote:
>
>> I want to highlight that particular word so for example if there is a
>> word retail in multiple columns and rows it should be highlighted with
>> yellow color everywhr , only that word not a cell row or column, thanks
>>
>>
>> On Monday, April 11, 2016, Ashish Koul > > wrote:
>>
>>> after match wht u wanna do highlight cell ?
>>>
>>> On Sun, Apr 10, 2016 at 10:04 PM, Priya
>>> wrote:
>>>
Hi
I am writing a code to look for same word in the worksheets , where
ever it is written in the worksheet, (basically need all the rows where
that particular word is written ). The data is huge and I cant set a code
specific to a word. The issue I am getting is that I only get one row from
all the results, whereas there are multiple rows and columns which includes
that particular keyword. Could you help.
Private Sub CommandButton1_Click()
Dim MyNewValue As Variant
Dim FoundCell As Object
Dim Counter As Long
Dim Flag As Boolean
Dim SearchString As Variant
'-
'- Initialise Components
Flag = False
Worksheets("Sector Results").Rows("2:" & Rows.Count).ClearContents
Worksheets("Function Results").Rows("2:" & Rows.Count).ClearContents
Worksheets("Sector Results").Visible = False
Worksheets("Function Results").Visible = False
'-
'- SET SEARCH KEY
SearchString = TextBox2.Value()
If SearchString = "" Then End
Counter = 0
'
'- FIND ALL MATCHING CELLS IN SECTOR KEYWORD SHEET
On Error Resume Next
Set ws = Worksheets("Sector Keywords").Range("B:E")
Set FoundCell = ws.Cells.Find(what:=SearchString,
SearchOrder:=xlByRows, SearchDirection:=xlNext)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'
'- what to do if found
FoundCell.EntireRow.Copy Destination:=Sheets("Sector
Results").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
'
Set FoundCell = ws.Cells.Find(what:=SearchString,
After:=FoundCell, SearchOrder:=xlByRows, SearchDirection:=xlNext)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address <> FirstAddress
Worksheets("Sector Results").Visible = True
Flag = True
End If
'
'- FIND ALL MATCHING CELLS IN FUNCTION KEYWORD SHEET
Set ws = Worksheets("Function Keywords").Range("B:E")
Set FoundCell = ws.Cells.Find(what:=SearchString)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'
'- what to do if found
FoundCell.EntireRow.Copy Destination:=Sheets("Function
Results").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
'
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address <> FirstAddress
Worksheets("Function Results").Visible = True
Worksheets("Function Results").Activate
Flag = True
End If
If Flag Then
MsgBox ("Result Found")
Else
MsgBox ("No Result Found")
End If
End Sub
Private Sub TextBox2_Change()
Worksheets("Sector Results").Visible = False
Worksheets("Function Results").Visible = False
End Sub
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do yo
$$Excel-Macros$$ Urgent need Edifecs Developer in Chattanooga, TN and Windsor, Connecticut
Hi Partner, Hope you are doing great … Please send resume to ma...@genuineitllc.com *Title : Edifecs Developer.* *Location: Chattanooga, TN and Windsor, Connecticut* *Duration: 6+ Months* JD: · Minimum 5-6 years of relevant experience in Healthcare EDI, Edifecs. · Strong EDIFECS or EDI Transaction Management · Strong knowledge of both EDIFECS and X12 standards • XEngine 8.5 • XEServer 8.5 • Specbuilder 8.5 • EAM 8.5 • Transaction Manager • Rules studio • Map builder • Ramp manager • Strong Java knowledge --- *With Warm Regards * *Madhu Roy* GenuineIT LLC *Certified Women Owned Business* Making IT Happen… Ph: 832 539 3475 Fax: 281-605-5969 *E-Mail* :ma...@genuineitllc.com *Gmail *: *nandimadhu74 , madhu.genuineitllc* *YM *: madhu_recruiter Looking ahead to work with you for better Business prospects According to Bill S.1618 Title III passed by the 105th US Congress, this message is not considered as "Spam" as we have included the contact information. If you wish to be removed from our mailing list, please respond with "remove" in the subject field. We apologize for any inconvenience caused. Please consider the environment before printing this e-mail -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at https://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
Re: $$Excel-Macros$$ Find a same word in the worksheets multiple times using vba code
Sub sample()
'https://msdn.microsoft.com/en-us/library/office/ff839746.aspx
Dim wordtofind As String
wordtofind = "apple"
With Worksheets(1).UsedRange
Set c = .Find(wordtofind, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Color = vbYellow
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
On Mon, Apr 11, 2016 at 8:30 PM, Priyanka Jaswal <
priyankajaswal...@gmail.com> wrote:
> I want to highlight that particular word so for example if there is a
> word retail in multiple columns and rows it should be highlighted with
> yellow color everywhr , only that word not a cell row or column, thanks
>
>
> On Monday, April 11, 2016, Ashish Koul wrote:
>
>> after match wht u wanna do highlight cell ?
>>
>> On Sun, Apr 10, 2016 at 10:04 PM, Priya
>> wrote:
>>
>>> Hi
>>>
>>> I am writing a code to look for same word in the worksheets , where ever
>>> it is written in the worksheet, (basically need all the rows where that
>>> particular word is written ). The data is huge and I cant set a code
>>> specific to a word. The issue I am getting is that I only get one row from
>>> all the results, whereas there are multiple rows and columns which includes
>>> that particular keyword. Could you help.
>>>
>>> Private Sub CommandButton1_Click()
>>> Dim MyNewValue As Variant
>>> Dim FoundCell As Object
>>> Dim Counter As Long
>>> Dim Flag As Boolean
>>> Dim SearchString As Variant
>>> '-
>>> '- Initialise Components
>>> Flag = False
>>> Worksheets("Sector Results").Rows("2:" & Rows.Count).ClearContents
>>> Worksheets("Function Results").Rows("2:" & Rows.Count).ClearContents
>>> Worksheets("Sector Results").Visible = False
>>> Worksheets("Function Results").Visible = False
>>> '-
>>> '- SET SEARCH KEY
>>> SearchString = TextBox2.Value()
>>> If SearchString = "" Then End
>>> Counter = 0
>>>
>>> '
>>> '- FIND ALL MATCHING CELLS IN SECTOR KEYWORD SHEET
>>> On Error Resume Next
>>> Set ws = Worksheets("Sector Keywords").Range("B:E")
>>> Set FoundCell = ws.Cells.Find(what:=SearchString,
>>> SearchOrder:=xlByRows, SearchDirection:=xlNext)
>>> If Not FoundCell Is Nothing Then
>>> FirstAddress = FoundCell.Address
>>> Do
>>> Counter = Counter + 1
>>> '
>>> '- what to do if found
>>> FoundCell.EntireRow.Copy Destination:=Sheets("Sector
>>> Results").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
>>>
>>> '
>>> Set FoundCell = ws.Cells.Find(what:=SearchString,
>>> After:=FoundCell, SearchOrder:=xlByRows, SearchDirection:=xlNext)
>>> Loop While Not FoundCell Is Nothing _
>>> And FoundCell.Address <> FirstAddress
>>> Worksheets("Sector Results").Visible = True
>>>
>>> Flag = True
>>> End If
>>>
>>> '
>>> '- FIND ALL MATCHING CELLS IN FUNCTION KEYWORD SHEET
>>> Set ws = Worksheets("Function Keywords").Range("B:E")
>>> Set FoundCell = ws.Cells.Find(what:=SearchString)
>>> If Not FoundCell Is Nothing Then
>>> FirstAddress = FoundCell.Address
>>> Do
>>> Counter = Counter + 1
>>> '
>>> '- what to do if found
>>> FoundCell.EntireRow.Copy Destination:=Sheets("Function
>>> Results").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
>>>
>>> '
>>> Set FoundCell = ws.Cells.FindNext(FoundCell)
>>> Loop While Not FoundCell Is Nothing _
>>> And FoundCell.Address <> FirstAddress
>>> Worksheets("Function Results").Visible = True
>>> Worksheets("Function Results").Activate
>>> Flag = True
>>> End If
>>>
>>> If Flag Then
>>> MsgBox ("Result Found")
>>> Else
>>> MsgBox ("No Result Found")
>>> End If
>>> End Sub
>>>
>>> Private Sub TextBox2_Change()
>>> Worksheets("Sector Results").Visible = False
>>> Worksheets("Function Results").Visible = False
>>> End Sub
>>>
>>> --
>>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
>>> It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>>> https://www.facebook.com/discussexcel
>>>
>>> FORUM RULES
>>>
>>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>>> will not get quick attention or may not be answered.
>>> 2) Don't post a question in the thread of another member.
>>> 3) Do
Re: $$Excel-Macros$$ Find a same word in the worksheets multiple times using vba code
I want to highlight that particular word so for example if there is a word
retail in multiple columns and rows it should be highlighted with yellow
color everywhr , only that word not a cell row or column, thanks
On Monday, April 11, 2016, Ashish Koul wrote:
> after match wht u wanna do highlight cell ?
>
> On Sun, Apr 10, 2016 at 10:04 PM, Priya > wrote:
>
>> Hi
>>
>> I am writing a code to look for same word in the worksheets , where ever
>> it is written in the worksheet, (basically need all the rows where that
>> particular word is written ). The data is huge and I cant set a code
>> specific to a word. The issue I am getting is that I only get one row from
>> all the results, whereas there are multiple rows and columns which includes
>> that particular keyword. Could you help.
>>
>> Private Sub CommandButton1_Click()
>> Dim MyNewValue As Variant
>> Dim FoundCell As Object
>> Dim Counter As Long
>> Dim Flag As Boolean
>> Dim SearchString As Variant
>> '-
>> '- Initialise Components
>> Flag = False
>> Worksheets("Sector Results").Rows("2:" & Rows.Count).ClearContents
>> Worksheets("Function Results").Rows("2:" & Rows.Count).ClearContents
>> Worksheets("Sector Results").Visible = False
>> Worksheets("Function Results").Visible = False
>> '-
>> '- SET SEARCH KEY
>> SearchString = TextBox2.Value()
>> If SearchString = "" Then End
>> Counter = 0
>>
>> '
>> '- FIND ALL MATCHING CELLS IN SECTOR KEYWORD SHEET
>> On Error Resume Next
>> Set ws = Worksheets("Sector Keywords").Range("B:E")
>> Set FoundCell = ws.Cells.Find(what:=SearchString,
>> SearchOrder:=xlByRows, SearchDirection:=xlNext)
>> If Not FoundCell Is Nothing Then
>> FirstAddress = FoundCell.Address
>> Do
>> Counter = Counter + 1
>> '
>> '- what to do if found
>> FoundCell.EntireRow.Copy Destination:=Sheets("Sector
>> Results").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
>>
>> '
>> Set FoundCell = ws.Cells.Find(what:=SearchString,
>> After:=FoundCell, SearchOrder:=xlByRows, SearchDirection:=xlNext)
>> Loop While Not FoundCell Is Nothing _
>> And FoundCell.Address <> FirstAddress
>> Worksheets("Sector Results").Visible = True
>>
>> Flag = True
>> End If
>>
>> '
>> '- FIND ALL MATCHING CELLS IN FUNCTION KEYWORD SHEET
>> Set ws = Worksheets("Function Keywords").Range("B:E")
>> Set FoundCell = ws.Cells.Find(what:=SearchString)
>> If Not FoundCell Is Nothing Then
>> FirstAddress = FoundCell.Address
>> Do
>> Counter = Counter + 1
>> '
>> '- what to do if found
>> FoundCell.EntireRow.Copy Destination:=Sheets("Function
>> Results").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
>>
>> '
>> Set FoundCell = ws.Cells.FindNext(FoundCell)
>> Loop While Not FoundCell Is Nothing _
>> And FoundCell.Address <> FirstAddress
>> Worksheets("Function Results").Visible = True
>> Worksheets("Function Results").Activate
>> Flag = True
>> End If
>>
>> If Flag Then
>> MsgBox ("Result Found")
>> Else
>> MsgBox ("No Result Found")
>> End If
>> End Sub
>>
>> Private Sub TextBox2_Change()
>> Worksheets("Sector Results").Visible = False
>> Worksheets("Function Results").Visible = False
>> End Sub
>>
>> --
>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
>> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>> https://www.facebook.com/discussexcel
>>
>> FORUM RULES
>>
>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>> will not get quick attention or may not be answered.
>> 2) Don't post a question in the thread of another member.
>> 3) Don't post questions regarding breaking or bypassing any security
>> measure.
>> 4) Acknowledge the responses you receive, good or bad.
>> 5) Jobs posting is not allowed.
>> 6) Sharing copyrighted material and their links is not allowed.
>>
>> NOTE : Don't ever post confidential data in a workbook. Forum owners and
>> members are not responsible for any loss.
>> ---
>> You received this message because you are subscribed to the Google Groups
>> "MS EXCEL AND VBA MACROS" group.
>> To unsubscribe from this group and stop receiving emails from it, send an
>> email to excel-macros+unsubscr...@googlegroups.com
>>
>> .
>> To post to this group,
$$Excel-Macros$$ IMMEDIATE NEED: IBM WCM Lead Developer/Architect, Dallas, TX
Hi Partner, Hope you are doing great … Please send resume to ma...@genuineitllc.com *Position: IBM WCM Lead Developer/Architect* *Location: Dallas, TX.* *Dutation: 6+ Months* *Job Description:* ü Minimum 6+ years of experience on *IBM Web Content Management(WCM)* ü WCM specialist/programmer who knows how to customize workflow, authoring templates. ü WCM expert who knows how to configure WCM to be release friendly/efficient, Taxonomy design, ü Knows how to make WCM publish to the file system through configuration or SPI modification. ü This person should also be ready to code to create Proof of concepts. ü Help design CMS to assume support for current functions. ü Help extend CMS to support future Portal 8 functionality and document design for portal 6 and portal 8 --- *With Warm Regards * *Madhu Roy* GenuineIT LLC *Certified Women Owned Business* Making IT Happen… Ph: 832 539 3475 Fax: 281-605-5969 *E-Mail* :ma...@genuineitllc.com *Gmail *: *nandimadhu74 , madhu.genuineitllc* *YM *: madhu_recruiter Looking ahead to work with you for better Business prospects According to Bill S.1618 Title III passed by the 105th US Congress, this message is not considered as "Spam" as we have included the contact information. If you wish to be removed from our mailing list, please respond with "remove" in the subject field. We apologize for any inconvenience caused. Please consider the environment before printing this e-mail -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at https://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
Re: $$Excel-Macros$$ Find a same word in the worksheets multiple times using vba code
after match wht u wanna do highlight cell ?
On Sun, Apr 10, 2016 at 10:04 PM, Priya wrote:
> Hi
>
> I am writing a code to look for same word in the worksheets , where ever
> it is written in the worksheet, (basically need all the rows where that
> particular word is written ). The data is huge and I cant set a code
> specific to a word. The issue I am getting is that I only get one row from
> all the results, whereas there are multiple rows and columns which includes
> that particular keyword. Could you help.
>
> Private Sub CommandButton1_Click()
> Dim MyNewValue As Variant
> Dim FoundCell As Object
> Dim Counter As Long
> Dim Flag As Boolean
> Dim SearchString As Variant
> '-
> '- Initialise Components
> Flag = False
> Worksheets("Sector Results").Rows("2:" & Rows.Count).ClearContents
> Worksheets("Function Results").Rows("2:" & Rows.Count).ClearContents
> Worksheets("Sector Results").Visible = False
> Worksheets("Function Results").Visible = False
> '-
> '- SET SEARCH KEY
> SearchString = TextBox2.Value()
> If SearchString = "" Then End
> Counter = 0
>
> '
> '- FIND ALL MATCHING CELLS IN SECTOR KEYWORD SHEET
> On Error Resume Next
> Set ws = Worksheets("Sector Keywords").Range("B:E")
> Set FoundCell = ws.Cells.Find(what:=SearchString,
> SearchOrder:=xlByRows, SearchDirection:=xlNext)
> If Not FoundCell Is Nothing Then
> FirstAddress = FoundCell.Address
> Do
> Counter = Counter + 1
> '
> '- what to do if found
> FoundCell.EntireRow.Copy Destination:=Sheets("Sector
> Results").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
>
> '
> Set FoundCell = ws.Cells.Find(what:=SearchString,
> After:=FoundCell, SearchOrder:=xlByRows, SearchDirection:=xlNext)
> Loop While Not FoundCell Is Nothing _
> And FoundCell.Address <> FirstAddress
> Worksheets("Sector Results").Visible = True
>
> Flag = True
> End If
>
> '
> '- FIND ALL MATCHING CELLS IN FUNCTION KEYWORD SHEET
> Set ws = Worksheets("Function Keywords").Range("B:E")
> Set FoundCell = ws.Cells.Find(what:=SearchString)
> If Not FoundCell Is Nothing Then
> FirstAddress = FoundCell.Address
> Do
> Counter = Counter + 1
> '
> '- what to do if found
> FoundCell.EntireRow.Copy Destination:=Sheets("Function
> Results").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
>
> '
> Set FoundCell = ws.Cells.FindNext(FoundCell)
> Loop While Not FoundCell Is Nothing _
> And FoundCell.Address <> FirstAddress
> Worksheets("Function Results").Visible = True
> Worksheets("Function Results").Activate
> Flag = True
> End If
>
> If Flag Then
> MsgBox ("Result Found")
> Else
> MsgBox ("No Result Found")
> End If
> End Sub
>
> Private Sub TextBox2_Change()
> Worksheets("Sector Results").Visible = False
> Worksheets("Function Results").Visible = False
> End Sub
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at https://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>
--
*Regards*
*Ashish Koul*
*Visit*
http://www.excelvbamacros.in
Like Us on Facebook
Join Us on Facebook
