If B = "EFTPOS" move A2 to A3, C2 to C3 then delete row 2. Loop to end of sheet

Paulod · Mar 25th 2014

[TABLE="width: 500, align: left"]

[tr]

[TD="align: center"][/TD]
[TD="align: center"]A
[/TD]
[TD="align: center"]B
[/TD]
[TD="align: center"]C
[/TD]

[/tr]

[tr]

[td]

1

[/td]

[td]

date

[/td]

[td]

transaction details

[/td]

[td]

amount

[/td]

[/tr]

[tr]

[td]

2

[/td]

[td]

26.3.2014

[/td]

[td]

EFTPOS

[/td]

[td]

100.00

[/td]

[/tr]

[tr]

[td]

3

[/td]

[td][/td]

[td]

Supermarket

[/td]

[td][/td]

[/tr]

[tr]

[td]

4

[/td]

[td][/td]

[td]

EFTPOS

[/td]

[td]

50.00

[/td]

[/tr]

[tr]

[td]

5

[/td]

[td][/td]

[td]

Tyre Shop

[/td]

[td][/td]

[/tr]

[tr]

[td]

6

[/td]

[td]

25.3.2014

[/td]

[td]

EFTPOS

[/td]

[td]

105.67

[/td]

[/tr]

[tr]

[td]

7

[/td]

[td][/td]

[td]

Mobil

[/td]

[td][/td]

[/tr]

[tr]

[td]

8

[/td]

[td]

24.3.2014

[/td]

[td]

Bakery

[/td]

[td]

8.50

[/td]

[/tr]

[/TABLE]

[TABLE="width: 500, align: left"]

[tr]

[TD="align: center"][/TD]
[TD="align: center"]A
[/TD]
[TD="align: center"]B
[/TD]
[TD="align: center"]C
[/TD]

[/tr]

[tr]

[td]

1

[/td]

[td]

date

[/td]

[td]

transaction details

[/td]

[td]

amount

[/td]

[/tr]

[tr]

[td]

2

[/td]

[td]

26.3.2014

[/td]

[td]

Supermarket

[/td]

[td]

100.00

[/td]

[/tr]

[tr]

[td]

3

[/td]

[td][/td]

[td]

Tyre Shop

[/td]

[td]

50.00

[/td]

[/tr]

[tr]

[td]

4

[/td]

[td]

25.3.2014

[/td]

[td]

Mobil

[/td]

[td]

105.67

[/td]

[/tr]

[tr]

[td]

5

[/td]

[td]

24.3.2014

[/td]

[td]

Bakery

[/td]

[td]

8.50

[/td]

[/tr]

[/TABLE]

**KjBox** · Mar 26th 2014

Re: If B = "EFTPOS" move A2 to A3, C2 to C3 then delete row 2. Loop to end of sheet

Welcome to Ozgrid.

Try this:

Code

Option Explicit


Sub test()


Dim rCel As Range, s


For Each rCel In Range("b2", Range("b" & Rows.Count).End(xlUp))
    If  rCel = "EFTPOS" Then
        rCel.Offset(1, -1) = rCel.Offset(, -1)
        rCel.Offset(1, 1) = rCel.Offset(, 1)
        rCel.EntireRow.Delete
    End If
Next


End Sub

Display More

Paulod · Mar 26th 2014

Re: If B = "EFTPOS" move A2 to A3, C2 to C3 then delete row 2. Loop to end of sheet

Thank you so much, it worked perfectly. One day I hope to be able to repay you!!!

If B = "EFTPOS" move A2 to A3, C2 to C3 then delete row 2. Loop to end of sheet

Participate now!

Share