Thread
:
Excel VBA Selection.Delete Shift:=xlToLeft
View Single Post
#
2
Posted to microsoft.public.excel.programming
Dave Peterson
external usenet poster
Posts: 35,218
Excel VBA Selection.Delete Shift:=xlToLeft
Something like:
Option Explicit
Sub testme()
Dim wks As Worksheet
Dim myRng As Range
Dim myCell As Range
Set wks = Worksheets("sheet1")
With wks
Set myRng = .Range("d1", .Cells(.Rows.Count, "D").End(xlUp))
For Each myCell In myRng.Cells
Select Case LCase(myCell.Value)
Case Is = "a"
'G:H
.Cells(myCell.Row, "G").Resize(1, 2).Delete shift:=xlToLeft
Case Is = "t"
'H:J
.Cells(myCell.Row, "H").Resize(1, 3).Delete shift:=xlToLeft
Case Else
Beep
End Select
Next myCell
End With
End Sub
wrote:
I have a table and in the column D there are values that could either
be "A" or "T".
What I would like is a macro that could go though each value in column
D and if
The value is "A" Then for that row would shift the data in the row
left...
Range("G4:H4").Select ' Not limited to row 4 but to that specific
row
Selection.Delete Shift:=xlToLeft
Else
If The value is "T" Then for that row would shift the data in the row
left...
Range("H4:J4").Select ' Not limited to row 4 but to that specific
row
Selection.Delete Shift:=xlToLeft
Is this doable?
Brenda...Many thanks.
--
Dave Peterson
Reply With Quote
Dave Peterson
View Public Profile
Find all posts by Dave Peterson