ultiple if Statements

[Newman Emanouel]

Hello

I need a little help with some vb code.

I have a excel sheet with multiple columns. One particular column has
account numbers say column "A" I need to write some code that will look at
column "A" and if for example cell A1 has "5120" in it then add the word Rent
into Columb "B".

It sounds really simple but I am having a lot of problems in executing. Any
help with some code would be very appreciated.

Thanks

Regards

Newman

[Bob Phillips]

Sub Test()
Dim iLastRow As Long
Dim i As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To iLastRow
If Cells(i,"A").Value = 5120 Then
Cells(i,"B").Value = "Rent"
End If
Next i

End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Newman Emanouel" <[email protected]> wrote in message
news:[email protected]...
> Hello
>
> I need a little help with some vb code.
>
> I have a excel sheet with multiple columns. One particular column has
> account numbers say column "A" I need to write some code that will look at
> column "A" and if for example cell A1 has "5120" in it then add the word
Rent
> into Columb "B".
>
> It sounds really simple but I am having a lot of problems in executing.
Any
> help with some code would be very appreciated.
>
> Thanks
>
> Regards
>
> Newman
>

[Newman Emanouel]

Bob

Thanks this works great but, I need to incorporate the case statement as
there are multiple account numbers to code. For example 5120, 5215, 6587 all
belong to the "Wages" category. Can you help please


"Bob Phillips" wrote:

> Sub Test()
> Dim iLastRow As Long
> Dim i As Long
>
> iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
> For i = 1 To iLastRow
> If Cells(i,"A").Value = 5120 Then
> Cells(i,"B").Value = "Rent"
> End If
> Next i
>
> End Sub
>
>
> --
> HTH
>
> Bob Phillips
>
> (replace somewhere in email address with gmail if mailing direct)
>
> "Newman Emanouel" <[email protected]> wrote in message
> news:[email protected]...
> > Hello
> >
> > I need a little help with some vb code.
> >
> > I have a excel sheet with multiple columns. One particular column has
> > account numbers say column "A" I need to write some code that will look at
> > column "A" and if for example cell A1 has "5120" in it then add the word
> Rent
> > into Columb "B".
> >
> > It sounds really simple but I am having a lot of problems in executing.
> Any
> > help with some code would be very appreciated.
> >
> > Thanks
> >
> > Regards
> >
> > Newman
> >
>
>
>

[Bob Phillips]

Sub Test()
Dim iLastRow As Long
Dim i As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To iLastRow
If Cells(i,"A").Value = 5120 Then
Cells(i,"B").Value = "Rent"
ElseIf Cells(i,"A").Value = 5215 Then
Cells(i,"B").Value = "Food"
'etc
End If
Next i

End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Newman Emanouel" <[email protected]> wrote in message
news:[email protected]...
> Bob
>
> Thanks this works great but, I need to incorporate the case statement as
> there are multiple account numbers to code. For example 5120, 5215, 6587
all
> belong to the "Wages" category. Can you help please
>
>
> "Bob Phillips" wrote:
>
> > Sub Test()
> > Dim iLastRow As Long
> > Dim i As Long
> >
> > iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
> > For i = 1 To iLastRow
> > If Cells(i,"A").Value = 5120 Then
> > Cells(i,"B").Value = "Rent"
> > End If
> > Next i
> >
> > End Sub
> >
> >
> > --
> > HTH
> >
> > Bob Phillips
> >
> > (replace somewhere in email address with gmail if mailing direct)
> >
> > "Newman Emanouel" <[email protected]> wrote in message
> > news:[email protected]...
> > > Hello
> > >
> > > I need a little help with some vb code.
> > >
> > > I have a excel sheet with multiple columns. One particular column has
> > > account numbers say column "A" I need to write some code that will
look at
> > > column "A" and if for example cell A1 has "5120" in it then add the
word
> > Rent
> > > into Columb "B".
> > >
> > > It sounds really simple but I am having a lot of problems in
executing.
> > Any
> > > help with some code would be very appreciated.
> > >
> > > Thanks
> > >
> > > Regards
> > >
> > > Newman
> > >
> >
> >
> >