searching and extracting information from a database

[Daryl]

I am trying to search/find information in a database and return information from that row but not all information in all columns to my working datbase. I can copy/move the database sheet to the same workbook. Example: search for information from cell A1 on sheet named "model" in the worksheet named "data", once a match is found in "data" copy or move the data from columns c,d,e,i,o,x and the same row and put in my worksheet named "model". ----thanks in advance ---From: mayesdl

 

[BrianB]

You can probably adapt this :-

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