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

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

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

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

=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

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

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