Question : Need a routine to find value in Access table and post value on sheet in appropriate cell

Excel 2003
Access 2003
"C:\DATA\MyGreen.mdb"
Table called "tblGreen"
2 fields
1- tblSku - text -100
2. tblGreenSku - text -100

"C:\DATA\Green.xls"
I have a sheet "tblFinal"
Headers in Row 1 always
Column A could at anytime contain any number of rows

ColumnA ColumnB ColumnC
Sku comments Green Sku
1A123 YES
2ER45 YES
6TY78 MAYBE
4R5T6 COULD BE

WHAT I NEED:

I need a sub routine to :
Take each Value in ColumnA
See if it exists in table "tblGreen"
in field tblSku - text -100
if it does post the value in
"tblGreenSku" in ColumnC

If not fille the cell with "No Green"

EXAMPLE DATA IN :
tblGreen"
tblSku tblGreenSku
1A123 2AW34
2ER45 4RE56
4R5T6 4RT51
etc....

RESULT:
ColumnA ColumnB ColumnC
Sku comments Green Sku
1A123 YES 2AW34
2ER45 YES 4RE56
6TY78 MAYBE NO GREEN
4R5T6 COULD BE 4RT51

Thanks
fordraiders

Answer : Need a routine to find value in Access table and post value on sheet in appropriate cell

Okay...here is the code which will do what you are looking for....Now to run this code you need to do following things....

1...Go to your workbook....do a alt+f11...in that...and then open the vba project for your workbook...and then go to--Insert-->Module...and paste the code there...

2...go to tools-->References-->and search for these two libraries which are:-
a...Microsoft Activex data objects x.x(This will be as per your version some number given) library
b...Microsoft DAO x.x(This will be as per your version some number given) object library

Check both of these two libraries and hit ok...

Post that close the vb editor by alt+f4 and come back to your sheet where you have values listed...for instance if its sheet1 then come over to sheet1...

Do a Alt+f8 and run the macro ssearch... and it will do what you are looking for...

Enclosed is the workbook and database as well for your reference where the code that i gave to you is working...I changed the path already in the macro as per path that you told...

Incase if its not working...please check whether your field names are same as mentioned in my database table...

Saurabh...

                       
         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

           
           
             Sub ssearch()
 
Dim dB As DAO.Database
Dim Rec As DAO.Recordset
Dim xsearch As String
Dim rng As Range, cell As Range
Set rng = Range("A2:A" & Cells(65536, "A").End(xlUp).Row)
 
For Each cell In rng
If (cell.Value <> "") Then
 
xsearch = "SELECT  tblGreen.tblGreenSku FROM tblGreen Where tblgreen.tblSku=""" & cell.Value & """;"
 
Set dB = OpenDatabase("C:\DATA\MyGreen.mdb")
Set Rec = dB.OpenRecordset(xsearch)
 
cell.Offset(0, 2).CopyFromRecordset Rec
If (Trim(cell.Offset(0, 2).Value) = "") Then
cell.Offset(0, 2).Value = "NO GREEN"
End If
End If
Next cell
 
 
Rec.Close
dB.Close
Set Rec = Nothing
Set dB = Nothing
End Sub
           
         

Open in New Window Select All

Search.zip (14 KB) (File Type Details)

data...