thanks a lot Harmeet Singh ;)
it works perfectly !
On Feb 21, 4:23 pm, Harmeet Singh <harmeet.hew...@gmail.com> wrote:
> try this
>
> Sub ggg()
>
> Dim MyColumn As String
> Dim MyRange As Range, MyRange1 As Range
> MyColumn = "A"
> myvalue = "Main"
> lastrow = Cells(Rows.Count, MyColumn).End(xlUp).Row
> Set MyRange = Range(MyColumn & "1:" & MyColumn & lastrow)
> Range(MyColumn & "1").Select
>
> For i = 1 To lastrow
> If Range(MyColumn & i).Value = myvalue Then
> Range(MyColumn & i).Offset(0, 1).Delete Shift:=xlToLeft
> Range(MyColumn & i).Offset(0, 2).Delete Shift:=xlToLeft
>
> End If
> Next i
> End Sub
>
>
>
> On Sat, Feb 21, 2009 at 1:57 AM, Mehdi_21 <meh.i...@gmail.com> wrote:
>
> > hello everyone
> > i want to delete every 2 cells in a row containing the value "MAIN" in
> > column "A" , the two cells are located in the columns B and C always.
>
> > whenever we find "Main" at a row in column "A" the program should
> > delete value in column "B" and "C" and shift to the left the value in
> > column "D'
>
> > the table is like this one
>
> > A B C D
> > 1 Main value value value
> > 2 '
> > 3 '
> > '
> > n' Main value value value
>
> > i tried this but it doesn't seems to work
>
> > ' Dim MyColumn As String
> > 'Dim MyRange As Range, MyRange1 As Range
> > 'MyColumn = "A"
> > 'myvalue = "MAIN"
> > 'lastrow = Cells(Rows.Count, MyColumn).End(xlUp).Row
> > 'Set MyRange = Range(MyColumn & "1:" & MyColumn & lastrow)
> > 'For Each c In MyRange
> > 'If (c.Value) = myvalue Then
>
> > ' here's where the code displays an error
> > Range("B*:C*").Delete Shift:=xlToLeft
> > ' End If
> > 'Next
>
> > End Sub
>
> --
> Thanks & Regards,
>
> Harmeet Singh
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
If you find any spam message in the group, please send an email to Ayush @
jainayus...@gmail.com
-~----------~----~----~----~------~----~------~--~---
