Re: $$Excel-Macros$$ VBA Code for search any string (text) & filter data automatic

[amar takale]

Dear Paul Sir,

Good Morning.
Thank you so much for your code, for the effort and time dedicated.And your
explanation is too good but bcos of less understanding VBA coding I cant
get all information but any way i sort out my issue.Currently i Use Excel
2003 & future planning to work on excel 2007. So then I can use both file
as per my requirement?

 I have also some question here
1) I want change data validation as name range not put single name by
comm,then i will use name range & add many place in name range only.
2) can I put countif formula in sheet (F2) with cell match C2 & D2.Actually
requirement is that if place is match & email ID match then count how many
email ID there.Example like "in 'Mumbai' how may 'Hotmail ID' there are &
count it" also wildcard match.

Thanks again sir

Regards
Amar


On Fri, Nov 4, 2016 at 5:46 PM, Paul Schreiner 
wrote:

>
> *See answers below:*
>
>
> On Friday, November 4, 2016 2:00 AM, amar takale 
> wrote:
>
>
> Dear Paul Sir,
>
> This is fabulous work!
> I think this must be flashing on the front page! :D. And I am Extremely
> sorry for so late reply bcos of diwali vacation. I am VBA learner so only
> basic knowledge of VBA coding.
>
> I have some Question here:
>
> 1) Can I use this code in excel 2007 after giving change specific range as
> per in your code in excel 2007.
>
> *This code was written in Excel 2010.  Since I didn't know which version
> you were using, I saved it as Excel97-2003, which could be opened in
> whatever version you were using.*
> *As you can see, I wrote it in Excel 2010, saved it as Excel97, so yes, it
> should work perfectly in Excel2007.*
> *In fact, the fact that you've tested it means that it DOES!*
> *Your Excel2007 opened the Excel97 file and converted it internally.*
> *Keep in mind that in Excel2007, to preserve the macros, you must save it
> as .xlsm or .xlsb.*
> *Personally, I prefer .xlsb.*
> *It loads and runs faster than .xlsm for large data sets.*
>
> 2) what is relation E column with code ( Can I delete this column,then
> code work proper?) and what is relation "flag" word with code ( Can I
> delete this word)
>
> *You wanted to be able to enter multiple words in the "Search any string"
> box.*
> *The problem is: The Autofilter only allows 2 "search strings".*
> *So, I set up a "helper" column to hold a "display flag".*
> *In the macro, I loop through all rows and if the value in the "EmailID"
> column contains all search strings, it sets the "Flag" column to "X"*
> *After all rows are processed, this column is filtered to only show
> non-blank cells.*
>
> *If you prefer, we can change this macro to remove background color from
> the cells in column D, then set the color to something specific when all
> strings are matched, then filter on that color.*
>
> 3) in module1 code I found there are show specific word
> (Criteria1:="Chenai" & "=*hotmail*") why it show only specific criteria
> word show.Code work for all country & email ID na? I check it & find it
> work for all proper way as per my requiment.
>
> *Albert  Einstein was quoted as saying: “Never memorize something that you
> can look up.”*
> *I have no idea if he actually said that, but I've always followed that
> advice.*
> *I don't have enough brain cells to waste trying to remember the syntax of
> every Method and Procedure in VBA.*
> *Instead, I just have to know where to look it up.*
> *I often use Excel's macro recorder to collect the commands necessary to
> perform the steps I wish to accomplish.*
> *In this case, I recorded the steps of clearing the filters (Macro2 had:
> "Activesheet.ShowAllData")*
> *and Macro1 had the steps to set the filter for column 3 to "Chenai" and
> column 4 to "Hotmail"*
> *notice that "Hotmail" had (*) in front and behind?*
> *That is what was necessary for when I selected the filter to "contain"
> "Hotmail".*
> *where Chenai was the complete cell value.*
>
> *So, since in your final worksheet, the data may have more than 50 lines,
> I replaced the recorded "$A$4:$D$51" with the Named Range "Data".*
> *And "Chenai" became the value of the Named Range "SearchPlace":*
> *Criteria1:=ActiveSheet.Range("SearchPlace").Value*
> *I normally delete these to avoid confusion. (Oops!)*
>
> Thanks ones again Paul sir
>
> *Attached, I've made a couple of corrections (I'd forgotten to reset the
> flags before re-filtering!)*
> *I also used "Color" instead of a "Helper Column".*
>
> *Let me know if you have further questions.*
>
> Regards
> Amar
>
>
>
> On Fri, Oct 28, 2016 at 5:11 PM, Paul Schreiner 
> wrote:
>
> OK, here's something to look at.
>
> I'm not sure if you'll need help implementing it, but here's how it works:
>
> There are several "Named Ranges".
> For instance, your entire list is called "Data" in order to manage the
> Filters.
> The cell for "place" is called "SearchPlace"
> and the cell for strings is called "SearchString".
> You'll need these Named 

Re: $$Excel-Macros$$ Excel active x control command button to duplicate text in entire row and column?

[Nadal Mir]

Here is the file you request. thanks

On Sat, Nov 5, 2016 at 12:25 AM, Paul Schreiner 
wrote:

> Yes, it could be done with an IF() function,
> but that would have to be duplicated and it would execute in each row
> whenever changes are made.
> Even if the changes were not done to the row involved.
>
> We can make a Change event so that whenever a cell is changed, it
> evaluates the other cells in the same row and updates column V.
>
> Can you send me your file so that I don't have to re-create the file in
> order to write and test it?
> (or at least one sheet)
>
> *Paul*
> -
>
>
>
>
>
>
>
> *“Do all the good you can,By all the means you can,In all the ways you
> can,In all the places you can,At all the times you can,To all the people
> you can,As long as ever you can.” - John Wesley*
> -
>
>
> On Friday, November 4, 2016 10:32 AM, Nadal Mir 
> wrote:
>
>
> Hi Paul
>
> thanks thanks thanks a lot. the code is working well now. my problem is
> solved now
>
> but i need another help here
>
> how to make COLUMN V automatic turn to ''PASSED" when COLUMN AC to AH is
> all passed
>
> and
>
>  automatic turn to ''FAILED" when  one of the COLUMN AC to AH got one
> failed.
>
> please see attached picture
>
> if i not mistaken it can be done by using ''IF STATEMENT'' or you got
> another idea to done  it
>
> thanks in advance
>
>
>
>
> On Fri, Nov 4, 2016 at 8:26 PM, Paul Schreiner 
> wrote:
>
>
> *Is this what you're looking for**?*
>
> For Each Rng In Range("AC3:AH30")
> If (Rng.Value = "Failed") Then
> If (Not Rng.EntireRow.Hidden) Then
> With Rng.Interior
>.Pattern = xlNone
> .TintAndShade = 0
> .PatternTintAndShade = 0
> End With
> Rng.FormulaR1C1 = "Passed"
> End If
> End If
> Next Rng
>
>
> On Friday, November 4, 2016 4:18 AM, Nadal Mir 
> wrote:
>
>
> Hi paul these is two code u gave to me. I try to combine it but come out
> with error. Please help to arrange these 2 code
> Private Sub CommandButton1_Click()
> Dim rng As Range
>
> For Each rng In Range("AC3:AH30")
> If (rng.Value = "Failed") Then
> With rng.Interior
> .Pattern = xlNone
> .TintAndShade = 0
> .PatternTintAndShade = 0
> End With
> rng.FormulaR1C1 = "Passed"
> End If
> Next rng
> End Sub
> -- -- --
> If (Rng.Value = "Failed") Then
> If (Not Rng.EntireRow.Hidden) Then
> With Rng.Interior
> .Pattern = xlNone
> .TintAndShade = 0
> .PatternTintAndShade = 0
> End With
> Rng.FormulaR1C1 = "Passed"
> End If
> End If
>
> On 3 Nov 2016 7:31 p.m., "Paul Schreiner"  wrote:
>
> the loop is checking all cells, regardless of whether they are visible or
> not.
> So, you need to "test" to see if they are hidden.
>
> In the loop, add:
> If (Not Rng.EntireRow.Hidden) Then
>
> like:
>
> If (Rng.Value = "Failed") Then
> If (Not Rng.EntireRow.Hidden) Then
> With Rng.Interior
> .Pattern = xlNone
> .TintAndShade = 0
> .PatternTintAndShade = 0
> End With
> Rng.FormulaR1C1 = "Passed"
> End If
> End If
>
> *Paul*
> -- ---
>
>
>
>
>
>
>
> *“Do all the good you can,By all the means you can,In all the ways you
> can,In all the places you can,At all the times you can,To all the people
> you can,As long as ever you can.” - John Wesley*--
> ---
>
>
> On Wednesday, November 2, 2016 9:50 PM, Nadal Mir 
> wrote:
>
>
> Hai paul. Thanks the code is working. But im facing another problem.
>
> If i filter out some data to exclude from the macro. The macro also turn
> the data from failed to passed.
>
> So my question. How to exclude filtered data from running along with the
> macro.
>
> *when I Filter some "failed" data out from the range, the macro also turn
> it to "passed".
>
> How to exclude that?
>
> Thanks in advance
>
>
> --
> 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 

Re: $$Excel-Macros$$ Help with Proper Syntax for Range function with variables

[Johnny]

Thank you Ashish it works perfectly. I will save this info so I don't 
repeat my question in the future. Much appreciated. -- John


On Friday, November 4, 2016 at 4:08:49 PM UTC-4, ashish wrote:

> try 
>
> Range("A" & bottom & ":M" & bottom).Select
>
> On Sat, Nov 5, 2016 at 1:34 AM, Johnny  
> wrote:
>
>> I searched for the answer to this before posting. I know what I'm trying 
>> to do can work, it's just that the syntax is kicking my butt
>>
>> I find the bottom row number (in my case 462) using Column E in this 
>> example, and I'd like to select the Range from Column A to Column M with 
>> that row number.
>>
>> Dim bottom As Integer
>> Dim r As Integer
>> bottom = Cells(Rows.Count, "E").End(xlUp).Row
>> *Range("A & bottom:" & M & bottom).Select* < This is the offending 
>> error. I know it's a misplaced colon or quote...
>>
>> *** I'm basically needing to write: *range(A462:M462).select*, but using 
>> the variable "bottom"
>>
>> Thanks for your help!
>>
>> John
>>
>> -- 
>> 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...@googlegroups.com .
>> To post to this group, send email to excel-...@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 
>
>
> P Before printing, think about the environment.
>
>  
>

-- 
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$$ Help with Proper Syntax for Range function with variables

[Ashish Koul]

try

Range("A" & bottom & ":M" & bottom).Select

On Sat, Nov 5, 2016 at 1:34 AM, Johnny  wrote:

> I searched for the answer to this before posting. I know what I'm trying
> to do can work, it's just that the syntax is kicking my butt
>
> I find the bottom row number (in my case 462) using Column E in this
> example, and I'd like to select the Range from Column A to Column M with
> that row number.
>
> Dim bottom As Integer
> Dim r As Integer
> bottom = Cells(Rows.Count, "E").End(xlUp).Row
> *Range("A & bottom:" & M & bottom).Select* < This is the offending
> error. I know it's a misplaced colon or quote...
>
> *** I'm basically needing to write: *range(A462:M462).select*, but using
> the variable "bottom"
>
> Thanks for your help!
>
> John
>
> --
> 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 


P Before printing, think about the environment.

-- 
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.

$$Excel-Macros$$ Help with Proper Syntax for Range function with variables

[Johnny]

I searched for the answer to this before posting. I know what I'm trying to 
do can work, it's just that the syntax is kicking my butt

I find the bottom row number (in my case 462) using Column E in this 
example, and I'd like to select the Range from Column A to Column M with 
that row number.

Dim bottom As Integer
Dim r As Integer
bottom = Cells(Rows.Count, "E").End(xlUp).Row
*Range("A & bottom:" & M & bottom).Select* < This is the offending 
error. I know it's a misplaced colon or quote...

*** I'm basically needing to write: *range(A462:M462).select*, but using 
the variable "bottom"

Thanks for your help!

John

-- 
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$$ Excel active x control command button to duplicate text in entire row and column?

[Paul Schreiner]

Yes, it could be done with an IF() function,but that would have to be 
duplicated and it would execute in each row whenever changes are made.Even if 
the changes were not done to the row involved.
We can make a Change event so that whenever a cell is changed, it evaluates the 
other cells in the same row and updates column V.
Can you send me your file so that I don't have to re-create the file in order 
to write and test it?(or at least one sheet)
Paul-
“Do all the good you can,
By all the means you can,
In all the ways you can,
In all the places you can,
At all the times you can,
To all the people you can,
As long as ever you can.” - John Wesley
- 

On Friday, November 4, 2016 10:32 AM, Nadal Mir  
wrote:
 

 Hi Paul
thanks thanks thanks a lot. the code is working well now. my problem is solved 
now
but i need another help here
how to make COLUMN V automatic turn to ''PASSED" when COLUMN AC to AH is all 
passed 
and 
 automatic turn to ''FAILED" when  one of the COLUMN AC to AH got one failed. 
please see attached picture 

if i not mistaken it can be done by using ''IF STATEMENT'' or you got another 
idea to done  it
thanks in advance




On Fri, Nov 4, 2016 at 8:26 PM, Paul Schreiner  wrote:

 Is this what you're looking for?
For Each Rng In Range("AC3:AH30")
    If (Rng.Value = "Failed") Then
    If (Not Rng.EntireRow.Hidden) Then
    With Rng.Interior
   .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    Rng.FormulaR1C1 = "Passed"
    End If
    End If
Next Rng
 

On Friday, November 4, 2016 4:18 AM, Nadal Mir  wrote:
 

 Hi paul these is two code u gave to me. I try to combine it but come out with 
error. Please help to arrange these 2 code
Private Sub CommandButton1_Click()
Dim rng As Range
    
    For Each rng In Range("AC3:AH30")
    If (rng.Value = "Failed") Then
    With rng.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    rng.FormulaR1C1 = "Passed"
    End If
    Next rng
End Sub-- -- -- If 
(Rng.Value = "Failed") Then
    If (Not Rng.EntireRow.Hidden) Then
    With Rng.Interior    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    Rng.FormulaR1C1 = "Passed"
    End If
    End If
On 3 Nov 2016 7:31 p.m., "Paul Schreiner"  wrote:

the loop is checking all cells, regardless of whether they are visible or 
not.So, you need to "test" to see if they are hidden.
In the loop, add:If (Not Rng.EntireRow.Hidden) Then
like:
    If (Rng.Value = "Failed") Then
    If (Not Rng.EntireRow.Hidden) Then
    With Rng.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    Rng.FormulaR1C1 = "Passed"
    End If
    End If
Paul-- ---
“Do all the good you can,
By all the means you can,
In all the ways you can,
In all the places you can,
At all the times you can,
To all the people you can,
As long as ever you can.” - John Wesley
-- --- 

On Wednesday, November 2, 2016 9:50 PM, Nadal Mir  
wrote:
 

 Hai paul. Thanks the code is working. But im facing another problem.

If i filter out some data to exclude from the macro. The macro also turn the 
data from failed to passed.

So my question. How to exclude filtered data from running along with the macro. 

*when I Filter some "failed" data out from the range, the macro also turn it to 
"passed". 

How to exclude that?

Thanks in advance

-- 
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 

Re: $$Excel-Macros$$ Excel active x control command button to duplicate text in entire row and column?

[Nadal Mir]

Hi Paul

thanks thanks thanks a lot. the code is working well now. my problem is
solved now

but i need another help here

how to make COLUMN V automatic turn to ''PASSED" when COLUMN AC to AH is
all passed

and

 automatic turn to ''FAILED" when  one of the COLUMN AC to AH got one
failed.

please see attached picture

if i not mistaken it can be done by using ''IF STATEMENT'' or you got
another idea to done  it

thanks in advance




On Fri, Nov 4, 2016 at 8:26 PM, Paul Schreiner 
wrote:

>
> *Is this what you're looking for**?*
>
> For Each Rng In Range("AC3:AH30")
> If (Rng.Value = "Failed") Then
> If (Not Rng.EntireRow.Hidden) Then
> With Rng.Interior
>.Pattern = xlNone
> .TintAndShade = 0
> .PatternTintAndShade = 0
> End With
> Rng.FormulaR1C1 = "Passed"
> End If
> End If
> Next Rng
>
>
> On Friday, November 4, 2016 4:18 AM, Nadal Mir 
> wrote:
>
>
> Hi paul these is two code u gave to me. I try to combine it but come out
> with error. Please help to arrange these 2 code
> Private Sub CommandButton1_Click()
> Dim rng As Range
>
> For Each rng In Range("AC3:AH30")
> If (rng.Value = "Failed") Then
> With rng.Interior
> .Pattern = xlNone
> .TintAndShade = 0
> .PatternTintAndShade = 0
> End With
> rng.FormulaR1C1 = "Passed"
> End If
> Next rng
> End Sub
> --
> If (Rng.Value = "Failed") Then
> If (Not Rng.EntireRow.Hidden) Then
> With Rng.Interior
> .Pattern = xlNone
> .TintAndShade = 0
> .PatternTintAndShade = 0
> End With
> Rng.FormulaR1C1 = "Passed"
> End If
> End If
>
> On 3 Nov 2016 7:31 p.m., "Paul Schreiner"  wrote:
>
> the loop is checking all cells, regardless of whether they are visible or
> not.
> So, you need to "test" to see if they are hidden.
>
> In the loop, add:
> If (Not Rng.EntireRow.Hidden) Then
>
> like:
>
> If (Rng.Value = "Failed") Then
> If (Not Rng.EntireRow.Hidden) Then
> With Rng.Interior
> .Pattern = xlNone
> .TintAndShade = 0
> .PatternTintAndShade = 0
> End With
> Rng.FormulaR1C1 = "Passed"
> End If
> End If
>
> *Paul*
> -- ---
>
>
>
>
>
>
>
> *“Do all the good you can,By all the means you can,In all the ways you
> can,In all the places you can,At all the times you can,To all the people
> you can,As long as ever you can.” - John Wesley*--
> ---
>
>
> On Wednesday, November 2, 2016 9:50 PM, Nadal Mir 
> wrote:
>
>
> Hai paul. Thanks the code is working. But im facing another problem.
>
> If i filter out some data to exclude from the macro. The macro also turn
> the data from failed to passed.
>
> So my question. How to exclude filtered data from running along with the
> macro.
>
> *when I Filter some "failed" data out from the range, the macro also turn
> it to "passed".
>
> How to exclude that?
>
> Thanks in advance
>
>
> --
> 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+unsubscribe@ 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 @ 
> 

Re: $$Excel-Macros$$ Excel active x control command button to duplicate text in entire row and column?

[Paul Schreiner]

 Is this what you're looking for?
For Each Rng In Range("AC3:AH30")
    If (Rng.Value = "Failed") Then
    If (Not Rng.EntireRow.Hidden) Then
    With Rng.Interior
   .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    Rng.FormulaR1C1 = "Passed"
    End If
    End If
Next Rng
 

On Friday, November 4, 2016 4:18 AM, Nadal Mir  wrote:
 

 Hi paul these is two code u gave to me. I try to combine it but come out with 
error. Please help to arrange these 2 code
Private Sub CommandButton1_Click()
Dim rng As Range
    
    For Each rng In Range("AC3:AH30")
    If (rng.Value = "Failed") Then
    With rng.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    rng.FormulaR1C1 = "Passed"
    End If
    Next rng
End Sub-- If 
(Rng.Value = "Failed") Then
    If (Not Rng.EntireRow.Hidden) Then
    With Rng.Interior    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    Rng.FormulaR1C1 = "Passed"
    End If
    End If
On 3 Nov 2016 7:31 p.m., "Paul Schreiner"  wrote:

the loop is checking all cells, regardless of whether they are visible or 
not.So, you need to "test" to see if they are hidden.
In the loop, add:If (Not Rng.EntireRow.Hidden) Then
like:
    If (Rng.Value = "Failed") Then
    If (Not Rng.EntireRow.Hidden) Then
    With Rng.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    Rng.FormulaR1C1 = "Passed"
    End If
    End If
Paul-- ---
“Do all the good you can,
By all the means you can,
In all the ways you can,
In all the places you can,
At all the times you can,
To all the people you can,
As long as ever you can.” - John Wesley
-- --- 

On Wednesday, November 2, 2016 9:50 PM, Nadal Mir  
wrote:
 

 Hai paul. Thanks the code is working. But im facing another problem.

If i filter out some data to exclude from the macro. The macro also turn the 
data from failed to passed.

So my question. How to exclude filtered data from running along with the macro. 

*when I Filter some "failed" data out from the range, the macro also turn it to 
"passed". 

How to exclude that?

Thanks in advance

-- 
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+unsubscribe@ 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 a topic in the Google 
Groups "MS EXCEL AND VBA MACROS" group.
To unsubscribe from this topic, visit https://groups.google.com/d/ 
topic/excel-macros/ 85Ww3m1Wd5U/unsubscribe.
To unsubscribe from this 

Re: $$Excel-Macros$$ VBA Code for search any string (text) & filter data automatic

[Paul Schreiner]

 See answers below: 

On Friday, November 4, 2016 2:00 AM, amar takale  
wrote:
 

 Dear Paul Sir,

This is fabulous work! 
I think this must be flashing on the front page! :D. And I am Extremely sorry 
for so late reply bcos of diwali vacation. I am VBA learner so only basic 
knowledge of VBA coding.

I have some Question here:
1) Can I use this code in excel 2007 after giving change specific range as per 
in your code in excel 2007.
This code was written in Excel 2010.  Since I didn't know which version you 
were using, I saved it as Excel97-2003, which could be opened in whatever 
version you were using.As you can see, I wrote it in Excel 2010, saved it as 
Excel97, so yes, it should work perfectly in Excel2007.In fact, the fact that 
you've tested it means that it DOES!Your Excel2007 opened the Excel97 file and 
converted it internally.Keep in mind that in Excel2007, to preserve the macros, 
you must save it as .xlsm or .xlsb.Personally, I prefer .xlsb.It loads and runs 
faster than .xlsm for large data sets.

2) what is relation E column with code ( Can I delete this column,then code 
work proper?) and what is relation "flag" word with code ( Can I delete this 
word)
You wanted to be able to enter multiple words in the "Search any string" 
box.The problem is: The Autofilter only allows 2 "search strings".So, I set up 
a "helper" column to hold a "display flag".In the macro, I loop through all 
rows and if the value in the "EmailID" column contains all search strings, it 
sets the "Flag" column to "X"After all rows are processed, this column is 
filtered to only show non-blank cells.

If you prefer, we can change this macro to remove background color from the 
cells in column D, then set the color to something specific when all strings 
are matched, then filter on that color.

3) in module1 code I found there are show specific word (Criteria1:="Chenai" & 
"=*hotmail*") why it show only specific criteria word show.Code work for all 
country & email ID na? I check it & find it work for all proper way as per my 
requiment.
Albert  Einstein was quoted as saying: “Never memorize something that you can 
look up.”I have no idea if he actually said that, but I've always followed that 
advice.I don't have enough brain cells to waste trying to remember the syntax 
of every Method and Procedure in VBA.Instead, I just have to know where to look 
it up.I often use Excel's macro recorder to collect the commands necessary to 
perform the steps I wish to accomplish.In this case, I recorded the steps of 
clearing the filters (Macro2 had: "Activesheet.ShowAllData")and Macro1 had the 
steps to set the filter for column 3 to "Chenai" and column 4 to 
"Hotmail"notice that "Hotmail" had (*) in front and behind?That is what was 
necessary for when I selected the filter to "contain" "Hotmail".where Chenai 
was the complete cell value.
So, since in your final worksheet, the data may have more than 50 lines, I 
replaced the recorded "$A$4:$D$51" with the Named Range "Data".And "Chenai" 
became the value of the Named Range "SearchPlace":
Criteria1:=ActiveSheet.Range("SearchPlace").ValueI normally delete these to 
avoid confusion. (Oops!)

Thanks ones again Paul sir
Attached, I've made a couple of corrections (I'd forgotten to reset the flags 
before re-filtering!)I also used "Color" instead of a "Helper Column".

Let me know if you have further questions.

RegardsAmar



On Fri, Oct 28, 2016 at 5:11 PM, Paul Schreiner  wrote:

OK, here's something to look at.
I'm not sure if you'll need help implementing it, but here's how it works:
There are several "Named Ranges".For instance, your entire list is called 
"Data" in order to manage the Filters.The cell for "place" is called 
"SearchPlace" and the cell for strings is called "SearchString".You'll need 
these Named Ranges to implement this code in your workbook.
I created a macro to update a pull-down list of search "Places".Selecting from 
this list will filter your list by this "Place".(only one place can be selected)

The list updates with a "Calculate" event.
Using a "Change" event, I convert the search string to a word array (space 
delimited).If only one word is present, column "D" is filtered for records that 
contain this word.
If multiple words are found, then the macro loops through records and updates 
the "Flag"column (E) if all words are found IN COLUMN D!Then filters the data 
on column "E".
Take a look and see if it works the way you envisioned.
If not, let me know.
also, let me know if you need help implementing it in your own workbook.
Paul-- ---
“Do all the good you can,
By all the means you can,
In all the ways you can,
In all the places you can,
At all the times you can,
To all the people you can,
As long as ever you can.” - John Wesley
-- --- 

On Wednesday, October 26, 2016 12:23 AM, amar takale  

Re: $$Excel-Macros$$ Excel active x control command button to duplicate text in entire row and column?

[Nadal Mir]

Hi paul these is two code u gave to me. I try to combine it but come out
with error. Please help to arrange these 2 code

Private Sub CommandButton1_Click()
Dim rng As Range

For Each rng In Range("AC3:AH30")
If (rng.Value = "Failed") Then
With rng.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
rng.FormulaR1C1 = "Passed"
End If
Next rng
End Sub

--

If (Rng.Value = "Failed") Then
If (Not Rng.EntireRow.Hidden) Then
With Rng.Interior

.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Rng.FormulaR1C1 = "Passed"
End If
End If

On 3 Nov 2016 7:31 p.m., "Paul Schreiner"  wrote:

> the loop is checking all cells, regardless of whether they are visible or
> not.
> So, you need to "test" to see if they are hidden.
>
> In the loop, add:
> If (Not Rng.EntireRow.Hidden) Then
>
> like:
>
> If (Rng.Value = "Failed") Then
> If (Not Rng.EntireRow.Hidden) Then
> With Rng.Interior
> .Pattern = xlNone
> .TintAndShade = 0
> .PatternTintAndShade = 0
> End With
> Rng.FormulaR1C1 = "Passed"
> End If
> End If
>
> *Paul*
> -
>
>
>
>
>
>
>
> *“Do all the good you can,By all the means you can,In all the ways you
> can,In all the places you can,At all the times you can,To all the people
> you can,As long as ever you can.” - John Wesley*
> -
>
>
> On Wednesday, November 2, 2016 9:50 PM, Nadal Mir 
> wrote:
>
>
> Hai paul. Thanks the code is working. But im facing another problem.
>
> If i filter out some data to exclude from the macro. The macro also turn
> the data from failed to passed.
>
> So my question. How to exclude filtered data from running along with the
> macro.
>
> *when I Filter some "failed" data out from the range, the macro also turn
> it to "passed".
>
> How to exclude that?
>
> Thanks in advance
>
>
> --
> 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 a topic in the
> Google Groups "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this topic, visit https://groups.google.com/d/
> topic/excel-macros/85Ww3m1Wd5U/unsubscribe.
> To unsubscribe from this group and all its topics, 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 

Re: $$Excel-Macros$$ Excel active x control command button to duplicate text in entire row and column?

[Nadal Mir]

Hi paul these is two code u gave to me. I try to combine it but come out
with error. Please help to arrange these 2 code

Private Sub CommandButton1_Click()
Dim rng As Range

For Each rng In Range("AC3:AH30")
If (rng.Value = "Failed") Then
With rng.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
rng.FormulaR1C1 = "Passed"
End If
Next rng
End Sub

--

If (Rng.Value = "Failed") Then
If (Not Rng.EntireRow.Hidden) Then
With Rng.Interior

.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Rng.FormulaR1C1 = "Passed"
End If
End If

On 3 Nov 2016 7:31 p.m., "Paul Schreiner"  wrote:

> the loop is checking all cells, regardless of whether they are visible or
> not.
> So, you need to "test" to see if they are hidden.
>
> In the loop, add:
> If (Not Rng.EntireRow.Hidden) Then
>
> like:
>
> If (Rng.Value = "Failed") Then
> If (Not Rng.EntireRow.Hidden) Then
> With Rng.Interior
> .Pattern = xlNone
> .TintAndShade = 0
> .PatternTintAndShade = 0
> End With
> Rng.FormulaR1C1 = "Passed"
> End If
> End If
>
> *Paul*
> -
>
>
>
>
>
>
>
> *“Do all the good you can,By all the means you can,In all the ways you
> can,In all the places you can,At all the times you can,To all the people
> you can,As long as ever you can.” - John Wesley*
> -
>
>
> On Wednesday, November 2, 2016 9:50 PM, Nadal Mir 
> wrote:
>
>
> Hai paul. Thanks the code is working. But im facing another problem.
>
> If i filter out some data to exclude from the macro. The macro also turn
> the data from failed to passed.
>
> So my question. How to exclude filtered data from running along with the
> macro.
>
> *when I Filter some "failed" data out from the range, the macro also turn
> it to "passed".
>
> How to exclude that?
>
> Thanks in advance
>
>
> --
> 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 a topic in the
> Google Groups "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this topic, visit https://groups.google.com/d/
> topic/excel-macros/85Ww3m1Wd5U/unsubscribe.
> To unsubscribe from this group and all its topics, 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 

$$Excel-Macros$$ LabVIEW Training : Free Demo Classes

[alice angela]

Learn the recommended techniques to reduce development time and improve 
application performance and scalability. LabVIEW courses are available in 
several formats to fit your needs, including instructor-led in the 
classroom, instructor-led online, on-site at your location, and self-paced.

LabVIEW Training ables you to draw a code and extend your graphical design 
capabilities for measurement and automation. LabVIEW is unmatched in 
helping you reduce test times, deliver business insights based on collected 
data, and translate ideas into reality.


Users preparing to develop embedded control and monitoring applications 
using LabVIEW Real-Time and LabVIEW FPGA with CompactRIO, Single-Board RIO, 
PXI, or R Series multifunction RIO devices. Users who need the performance 
and reliability of Real-Time and FPGA hardware targets


LabVIEW TRAINING, Learn #LabVIEW 

 
#Training 

 
through #Online 

 
under specialized Online Trainers.


#LabVIEWTraining 





Free Demo classes!


http://mindmajix.com/labview-training 





Contact Info: 





   - USA : +1 201 378 0518
   - INDIA: +91 9246333245
   - i...@mindmajix.com


-- 
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$$ VBA Code for search any string (text) & filter data automatic

[amar takale]

Dear Paul Sir,

This is fabulous work!
I think this must be flashing on the front page! :D. And I am Extremely
sorry for so late reply bcos of diwali vacation. I am VBA learner so only
basic knowledge of VBA coding.


I have some Question here:


1) Can I use this code in excel 2007 after giving change specific range as
per in your code in excel 2007.


2) what is relation E column with code ( Can I delete this column,then code
work proper?) and what is relation "flag" word with code ( Can I delete
this word)


3) in module1 code I found there are show specific word
(Criteria1:="Chenai" & "=*hotmail*") why it show only specific criteria
word show.Code work for all country & email ID na? I check it & find it
work for all proper way as per my requiment.


Thanks ones again Paul sir


Regards

Amar




On Fri, Oct 28, 2016 at 5:11 PM, Paul Schreiner 
wrote:

> OK, here's something to look at.
>
> I'm not sure if you'll need help implementing it, but here's how it works:
>
> There are several "Named Ranges".
> For instance, your entire list is called "Data" in order to manage the
> Filters.
> The cell for "place" is called "SearchPlace"
> and the cell for strings is called "SearchString".
> You'll need these Named Ranges to implement this code in your workbook.
>
> I created a macro to update a pull-down list of search "Places".
> Selecting from this list will filter your list by this "Place".
> (only one place can be selected)
>
>
> [image: Inline image]
> The list updates with a "Calculate" event.
>
> Using a "Change" event, I convert the search string to a word array (space
> delimited).
> If only one word is present, column "D" is filtered for records that
> contain this word.
>
> If multiple words are found, then the macro loops through records and
> updates the "Flag"
> column (E) if all words are found IN COLUMN D!
> Then filters the data on column "E".
>
> Take a look and see if it works the way you envisioned.
>
> If not, let me know.
>
> also, let me know if you need help implementing it in your own workbook.
>
> *Paul*
> -
>
>
>
>
>
>
>
> *“Do all the good you can,By all the means you can,In all the ways you
> can,In all the places you can,At all the times you can,To all the people
> you can,As long as ever you can.” - John Wesley*
> -
>
>
> On Wednesday, October 26, 2016 12:23 AM, amar takale 
> wrote:
>
>
> Dear Hilary sir pls look into this matter.
>
> Also from Paul sir expect lot.
>
> On Mon, Oct 24, 2016 at 5:42 PM, amar takale  wrote:
>
> Dear Sir
>
> Thanks for reply.but my requirement not this way (And I am use excel
> 2003). I want to search any string from specific cell (D2) then data filter
> on that basis like wildcard criteria.
>
> My search criteria like hotmail,gmail,water,emirates, net,.com,.ae ,wave
> etc from D2 & then filter data
>
>
> Regards
> Amar
>
> On Mon, Oct 24, 2016 at 4:18 PM, Hilary Lomotey  wrote:
>
> See attached, HTH. Cheers
>
> On Mon, Oct 24, 2016 at 5:35 AM, amar takale  wrote:
>
> Dear Friends
> any one help me on this issue
>
> On Fri, Oct 21, 2016 at 12:09 PM, amar takale 
> wrote:
>
>
> --
> 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/discu
> ssexcel
>
> 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+unsubscribe@googl egroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at https://groups.google.com/grou p/excel-macros.
> For more options, visit https://groups.google.com/d/op tout.
>
>
> --
> 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/discu
> ssexcel 
>
> 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