About Us

Newbie

Brilliant - works a treat

Thanks

"BrianB " wrote in message
...
You can change this as required :-

'-------------------------------------------
Dim MyValue As Variant
Dim FoundCell As Object
Dim FromSheet As Worksheet
Dim FromRow As Long
Dim ToSheet As Worksheet
Dim ToRow As Long
'---------------------
Sub transfer_data()
'- select cell containing search value
'- and run this macro from there
Set ToSheet = Workbooks("Book1.xls").Worksheets("Sheet1")
'**amend**
Set FromSheet = ActiveSheet
'------------------
MyValue = ActiveCell.Value
FromRow = ActiveCell.Row
'------------------
'- **nb. set correct column to search
Set FoundCell = ToSheet.Columns(1).Find(MyValue, LookIn:=xlValues)
If FoundCell Is Nothing Then
MsgBox (MyValue & " not found.")
Else
ToRow = FoundCell.Row
'- transfer additional data. **Change column numbers as
required.
ToSheet.Cells(ToRow, 5).Value = FromSheet.Cells(FromRow,
2).Value
ToSheet.Cells(ToRow, 6).Value = FromSheet.Cells(FromRow,
3).Value
End If
End Sub
'-------------------------------------------------

---
Message posted from http://www.ExcelForum.com/

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Always print to a specific location	Tommy-B[_2_]	Excel Discussion (Misc queries)	0	June 15th 07 06:29 PM
How To always print to a specific Location	Tommy-B[_2_]	Excel Discussion (Misc queries)	0	June 15th 07 06:27 PM
Save to specific location	LB79	Excel Discussion (Misc queries)	2	August 25th 05 11:02 AM
Need help in calculation at specific location	Lewis Koh	Excel Worksheet Functions	10	July 31st 05 04:35 PM
ListBox Result to a Specific Cell Location	Randal W. Hozeski	Excel Programming	1	December 30th 03 02:23 AM

Menu

About Us