Database macro
 

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!

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!

Database macro
 

Hi Jacob,

Thank you for this, but how can I modify the code in such a way that REMARKS
is reflected on two worksheets? THANKS! Sorry newbie on macro

Rachel

"Jacob Skaria" wrote:

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!

Database macro
 

Rachel, in the below code "remarks" is being written to both sheet1 and sheet2.

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


"Rachel" wrote:

Hi Jacob,

Thank you for this, but how can I modify the code in such a way that REMARKS
is reflected on two worksheets? THANKS! Sorry newbie on macro

Rachel

"Jacob Skaria" wrote:

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!