VBA# if statement# copy to next cell

[Rasika21]

Hello,

I would like to know how to run if condition statement for specific column.
Below mentioned is data and criteria I want to apply. Basically I want to update Points as per Membership package and give deadline to use points. I can use if statement for first transaction through VBA coding but I dont know how to do it for whole data.
Databse
[TABLE="width: 636"]
<tbody>[TR]
[TD]Bill Date[/TD]
[TD]Guestname[/TD]
[TD]Membership Name[/TD]
[TD]Points[/TD]
[TD]Start Date[/TD]
[TD]End Date[/TD]
[/TR]
[TR]
[TD]18-08-17[/TD]
[TD]sadhvi s[/TD]
[TD]You First(++) Membership[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]22-08-17[/TD]
[TD]Avtar Kaur[/TD]
[TD]You First(++) Membership[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]23-08-17[/TD]
[TD]MANOJ .[/TD]
[TD]You First Membership[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]20-08-17[/TD]
[TD]Sheersha Arun[/TD]
[TD]You First Membership[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]22-07-17[/TD]
[TD]Deepali .[/TD]
[TD]You First Membership[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]20-08-17[/TD]
[TD]sushmita .[/TD]
[TD]You First Membership[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]21-08-17[/TD]
[TD]Pankaj .[/TD]
[TD]You First Membership[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
Criteria

[TABLE="width: 443"]
<tbody>[TR]
[TD]Membership Name[/TD]
[TD]Points[/TD]
[TD]Start Date[/TD]
[TD]End Date[/TD]
[/TR]
[TR]
[TD]You First(++) Membership[/TD]
[TD]400[/TD]
[TD]`=Billdate+7[/TD]
[TD]`=Billdate+60[/TD]
[/TR]
[TR]
[TD]You First(+) Membership[/TD]
[TD]350[/TD]
[TD]`=Billdate+7[/TD]
[TD]`=Billdate+60[/TD]
[/TR]
[TR]
[TD]You First Membership[/TD]
[TD]300[/TD]
[TD]`=Billdate+7[/TD]
[TD]`=Billdate+60[/TD]
[/TR]
</tbody>[/TABLE]

 

[mumps]

Assuming that your data is in columns A to F, make sure that columns A, E and F are formatted as 'Date'. Try the following macro:
Sub

copyData()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Dim MN As Range
    For Each MN In Range("C2:C" & LastRow)
        Select Case MN.Value
            Case "You First(++) Membership"
                MN.Offset(0, 1) = "400"
                MN.Offset(0, 2) = MN.Offset(0, -2) + 7
                MN.Offset(0, 3) = MN.Offset(0, -2) + 60
            Case "You First(+) Membership"
                MN.Offset(0, 1) = "300"
                MN.Offset(0, 2) = MN.Offset(0, -2) + 7
                MN.Offset(0, 3) = MN.Offset(0, -2) + 60
            Case "You First Membership"
                MN.Offset(0, 1) = "300"
                MN.Offset(0, 2) = MN.Offset(0, -2) + 7
                MN.Offset(0, 3) = MN.Offset(0, -2) + 60
        End Select
    Next MN
    Application.ScreenUpdating = True
End Sub

 

[Rasika21]

Yessss it worked, Thank you soooo muchhhh..

 

[mumps]

You are very difficult.

 

[mumps]

My apologies. I meant you are "very welcome." I typed it on my cell phone and sometimes the autocorrect is not your friend!!

 

[Rasika21]

Haha