ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   Macros with variable data (https://www.excelbanter.com/excel-worksheet-functions/146804-macros-variable-data.html)

jeannie v

Macros with variable data
 
Hi Gary:

I used your macro and it worked great....now, though, I want to create a
macro to do almost the same thing, except I want it to retrieve more than 1
field of data for the person...Can I tweak this one to do what I want?

I want it to say say: If "Doe, Jane" is found by auto-filter in Column A
from
Cell A2:A160 in Worksheet 2 , Take the data in Column A through Column L and
copy to Worksheet 1 "Jane D" in Cells A4 to L14.

How can i do that? You are terrific and I'm so new to this, I really
appreciate it.

--
jeannie v

ShaneDevenshire

Macros with variable data
 
Hi,

You should either include the code you have or you should put this question
on the previous thread.

--
Thanks,
Shane Devenshire


"jeannie v" wrote:

Hi Gary:

I used your macro and it worked great....now, though, I want to create a
macro to do almost the same thing, except I want it to retrieve more than 1
field of data for the person...Can I tweak this one to do what I want?

I want it to say say: If "Doe, Jane" is found by auto-filter in Column A
from
Cell A2:A160 in Worksheet 2 , Take the data in Column A through Column L and
copy to Worksheet 1 "Jane D" in Cells A4 to L14.

How can i do that? You are terrific and I'm so new to this, I really
appreciate it.

--
jeannie v


Trevor Shuttleworth

Macros with variable data
 
Jeannie

Not sure of the relevance of AutoFilter.

Another option is to search for the cell, extend the range and copy and
paste the data to sheet1

Dim JaneCell As Range

On Error Resume Next
Set JaneCell = Nothing
Set JaneCell = Cells.Find( _
What:="doe, jane", _
After:=Range("A1"), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
On Error GoTo 0

If JaneCell Is Nothing Then
MsgBox "No Jane Doe"
Exit Sub
End If

JaneCell.Resize(1, 12).Copy Sheets("Sheet1").Range("A4")


Regards

Trevor


"jeannie v" wrote in message
...
Hi Gary:

I used your macro and it worked great....now, though, I want to create a
macro to do almost the same thing, except I want it to retrieve more than
1
field of data for the person...Can I tweak this one to do what I want?

I want it to say say: If "Doe, Jane" is found by auto-filter in Column A
from
Cell A2:A160 in Worksheet 2 , Take the data in Column A through Column L
and
copy to Worksheet 1 "Jane D" in Cells A4 to L14.

How can i do that? You are terrific and I'm so new to this, I really
appreciate it.

--
jeannie v





All times are GMT +1. The time now is 09:46 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com