This is the macro I'm using now:

Sub copy_it()
Dim r As Range,r1 As Range, r2 As Range
Workbooks ("TMSDL.XLS").Activate
s = InputBox("Enter Search Value:")
For Each r in ActiveSheet.UsedRange
If r.Value = s Then
Set r1 = Range(r, r.Offset(0,8))
Set r2 = Workbooks("TMSPhaomReport.xls").Worksheet("TMSDL") .Range("A1")

r1.Copy r2
Exit sub
End If
Next

I still learning how to use this but the problem is when I run this Macro it
doesn't do anything. I'm guessing because r doesn't equal s but not really
sure. Can anyone help me out?

--
Message posted via http://www.officekb.com

Unless you do something special, this line is case sensitive:

If r.Value = s Then

So ASDF won't match asdf or AsDf or ASDf or ASdF or...

maybe it would be as simple as:

if lcase(r.value) = lcase(s) then



"Hinojosa via OfficeKB.com" wrote:

This is the macro I'm using now:

Sub copy_it()
Dim r As Range,r1 As Range, r2 As Range
Workbooks ("TMSDL.XLS").Activate
s = InputBox("Enter Search Value:")
For Each r in ActiveSheet.UsedRange
If r.Value = s Then
Set r1 = Range(r, r.Offset(0,8))
Set r2 = Workbooks("TMSPhaomReport.xls").Worksheet("TMSDL") .Range("A1")

r1.Copy r2
Exit sub
End If
Next

I still learning how to use this but the problem is when I run this Macro it
doesn't do anything. I'm guessing because r doesn't equal s but not really
sure. Can anyone help me out?

--
Message posted via http://www.officekb.com

--

Dave Peterson

Yes sir i have tried with all caps and all lowercase but still it just
doesn't do anything.

Dave Peterson wrote:
Unless you do something special, this line is case sensitive:

If r.Value = s Then

So ASDF won't match asdf or AsDf or ASDf or ASdF or...

maybe it would be as simple as:

if lcase(r.value) = lcase(s) then

This is the macro I'm using now:

[quoted text clipped - 18 lines]
--
Message posted via http://www.officekb.com


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200610/1

Maybe there's a difference in what you type and what's in the cell???

(Leading/trailing/extra embedded spaces???)

"Hinojosa via OfficeKB.com" wrote:

Yes sir i have tried with all caps and all lowercase but still it just
doesn't do anything.

Dave Peterson wrote:
Unless you do something special, this line is case sensitive:

If r.Value = s Then

So ASDF won't match asdf or AsDf or ASDf or ASdF or...

maybe it would be as simple as:

if lcase(r.value) = lcase(s) then

This is the macro I'm using now:

[quoted text clipped - 18 lines]
--
Message posted via http://www.officekb.com


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200610/1

--

Dave Peterson