Thread: Database macro
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Jacob Skaria Jacob Skaria is offline
external usenet poster
 
Posts: 8,520
Default Database macro

Rachel,

Try something like..Adjust to suit your requirement/

Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ActiveWorkbook.Sheets("Sheet1")
Set ws2 = ActiveWorkbook.Sheets("Sheet2")

'Sheet1. Assuming remarks is to be in Col A
ws1.Range("B" & ActiveCell.Row) = "Remarks"

'Sheet2.Check for the code in ColA and if exists get the row number
If WorksheetFunction.CountIf(ws2.Range("A:A"), "code") 0 Then
lngRow = WorksheetFunction.Match("code", ws2.Range("A:A"), 0)
'Write remarks in ColB
Range("B" & lngRow) = "Remarks"
End If

If this post helps click Yes
---------------
Jacob Skaria


"Rachel" wrote:

Help! I need a macro code in such a way that when you type a word in a
USERFORM it reflects the word typed on that form in 2 seperate worksheets
(database) wherein it is linked to the same details.

To elaborate, I have 3 worksheets. Worksheet 1 contains LOOKUP function
wherein you search for a particular reference code then it appears. You then
click on that reference code and a userform pops out with a box for REMARKS.
Is there a code which I can use so that the remark entered into this box is
reflected in worksheet 2 and 3 which is a database that contains a list of
different reference codes but the remarks will have to be placed on the
particular reference code that was looked up in worksheet 1. THANKS!