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