Macro to move two cells up deleting the two above cell

[bumperjoe]

hello,
I need to move a cell (A2) and it's adjacent cell(B2) up and delete the two cells above it (A1) and (B1)



Thanks

 

[footoo]

Re: how to use a macro to move two cells up deleting the two above cell

Select A1:B1, Delete/Shift Cells UP

 

[My Aswer Is This]

Re: how to use a macro to move two cells up deleting the two above cell

Range("A1:B1").Delete xlShiftUp

 

[bumperjoe]

Re: how to use a macro to move two cells up deleting the two above cell

Range("A1:B1").Delete xlShiftUp

how can you do it wherever the curser is being put.. I have to be moving up the sheet at thousands of different cells

 

[My Aswer Is This]

Re: how to use a macro to move two cells up deleting the two above cell

Your wanting to do this one at a time?

So if you click on A20 you want to delete A19 and B19 and shift up.
Is that what you want.

Why not explain what criteria you use for deciding what cells to delete and we could write script to do all one thousand at one click of a button.

 

[My Aswer Is This]

Re: how to use a macro to move two cells up deleting the two above cell

If you really want to do this one at a time use this script.
Double click on cell in column ("A") of the row you want to delete.
Script will delete and shiftup columns A and B

This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Cancel = True
Dim ans As Long
ans = Target.Row
Range(Cells(ans, 1), Cells(ans, 2)).Delete xlShiftUp
End If
End Sub

 

[footoo]

Re: how to use a macro to move two cells up deleting the two above cell

Sub Dlt ()
If Selection.Cells.Count>1 Then Exit Sub
Selection(0).resize(,2).Delete xlShiftUp
End Sub

 

[bumperjoe]

Re: how to use a macro to move two cells up deleting the two above cell

If you really want to do this one at a time use this script.
Double click on cell in column ("A") of the row you want to delete.
Script will delete and shiftup columns A and B

This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Cancel = True
Dim ans As Long
ans = Target.Row
Range(Cells(ans, 1), Cells(ans, 2)).Delete xlShiftUp
End If
End Sub

thank you. it work so great!! sorry I was not clearer in the original post. I forget people cannot read minds
One more question. What do you change to make it start in say column D or E

 

[My Aswer Is This]

Re: how to use a macro to move two cells up deleting the two above cell

Well if you want this to apply to columns 1 4 and 6 then use this

Look at top line of code and you will see:
Target.column = 1 or 4 or 5

Change these if needed.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Modified 1-31-18 1:35 PM EST
If Target.Column = 1 Or Target.Column = 4 Or Target.Column = 5 Then
Cancel = True
ActiveCell.Resize(, 2).Delete xlShiftUp
End If
End Sub

 

[bumperjoe]

Re: how to use a macro to move two cells up deleting the two above cell

that is awesome. thanks again joe