Cell Population
 

Hi all,

I am currently tring to create a Macro Which populates any cell in Column
B based on what is entered in the adjacent cell in Column C. For example, if
I enter any one of 601, 609, 623 or 631 in Column C, the cell next to it in
Column B returns the word "Fees". Any other number returns nothing.

Thanks in advance for your help.

Regards

Cell Population
 

Launch VBE using Alt+F11. From the tree view double click 'This Workbook'.
Drop down and get the sheet change event..

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 3 Then
Select Case Target.Value
Case 601, 609, 623 Or 631
Cells(Target.Row, 2) = "Fees"
End Select
End If
End Sub

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


"Chiccada" wrote:

Hi all,

I am currently tring to create a Macro Which populates any cell in Column
B based on what is entered in the adjacent cell in Column C. For example, if
I enter any one of 601, 609, 623 or 631 in Column C, the cell next to it in
Column B returns the word "Fees". Any other number returns nothing.

Thanks in advance for your help.

Regards

Cell Population
 

Right click your sheet tab, view code and paste this in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 3 Or Target.Cells.Count 1 Or _
IsEmpty(Target) Then Exit Sub
Select Case Target
Case 601, 609, 623, 631
Target.Offset(, -1) = "Fees"
End Select
End Sub


Mike

"Chiccada" wrote:

Hi all,

I am currently tring to create a Macro Which populates any cell in Column
B based on what is entered in the adjacent cell in Column C. For example, if
I enter any one of 601, 609, 623 or 631 in Column C, the cell next to it in
Column B returns the word "Fees". Any other number returns nothing.

Thanks in advance for your help.

Regards

Cell Population
 

Oops

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 3 Then
Select Case Target.Value
Case 601, 609, 623, 631
Cells(Target.Row, 2) = "Fees"
End Select
End If
End Sub

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


"Jacob Skaria" wrote:

Launch VBE using Alt+F11. From the tree view double click 'This Workbook'.
Drop down and get the sheet change event..

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 3 Then
Select Case Target.Value
Case 601, 609, 623 Or 631
Cells(Target.Row, 2) = "Fees"
End Select
End If
End Sub

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


"Chiccada" wrote:

Hi all,

I am currently tring to create a Macro Which populates any cell in Column
B based on what is entered in the adjacent cell in Column C. For example, if
I enter any one of 601, 609, 623 or 631 in Column C, the cell next to it in
Column B returns the word "Fees". Any other number returns nothing.

Thanks in advance for your help.

Regards

Cell Population
 

=IF(OR(C1=601,C1=609,C1=623,C1=31),"fees","")
--
Gary''s Student - gsnu200843


"Chiccada" wrote:

Hi all,

I am currently tring to create a Macro Which populates any cell in Column
B based on what is entered in the adjacent cell in Column C. For example, if
I enter any one of 601, 609, 623 or 631 in Column C, the cell next to it in
Column B returns the word "Fees". Any other number returns nothing.

Thanks in advance for your help.

Regards

Cell Population
 

Thanks Mike, much appreciated.

Regards,

Rik

"Mike H" wrote:

Right click your sheet tab, view code and paste this in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 3 Or Target.Cells.Count 1 Or _
IsEmpty(Target) Then Exit Sub
Select Case Target
Case 601, 609, 623, 631
Target.Offset(, -1) = "Fees"
End Select
End Sub


Mike

"Chiccada" wrote:

Hi all,

I am currently tring to create a Macro Which populates any cell in Column
B based on what is entered in the adjacent cell in Column C. For example, if
I enter any one of 601, 609, 623 or 631 in Column C, the cell next to it in
Column B returns the word "Fees". Any other number returns nothing.

Thanks in advance for your help.

Regards

Cell Population
 

Your welcome

"Chiccada" wrote:

Thanks Mike, much appreciated.

Regards,

Rik

"Mike H" wrote:

Right click your sheet tab, view code and paste this in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 3 Or Target.Cells.Count 1 Or _
IsEmpty(Target) Then Exit Sub
Select Case Target
Case 601, 609, 623, 631
Target.Offset(, -1) = "Fees"
End Select
End Sub


Mike

"Chiccada" wrote:

Hi all,

I am currently tring to create a Macro Which populates any cell in Column
B based on what is entered in the adjacent cell in Column C. For example, if
I enter any one of 601, 609, 623 or 631 in Column C, the cell next to it in
Column B returns the word "Fees". Any other number returns nothing.

Thanks in advance for your help.

Regards