Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
how can i create a macro
how can i create a macro that in column "D", look for first cell with a
value, go down until blank cell, delete three rows down, and continue the same procedure. lets say: column D row 5 100 row 6 200 row 7 blank row 8 500 row 9 blank row 10 400 row 11 80 row 12 blank row 13 90 row 14 blank row 15 100 row 16 300 result should be: column D row 5 100 row 6 200 row 400 row 80 row 100 row 300 thanks a lot |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
how can i create a macro
Not sure what your trying to do but I was able to replicate your example
Sandy Sub TripleDelete() Dim MyRange As Range, MyCells As Object, i As Integer Set MyRange = [D:D] For Each MyCells In MyRange If MyCells.Value = Empty Then Range(MyCells.Address, _ MyCells.Offset(2, 0).Address).EntireRow.Delete End If Next MyCells End Sub "andresg1975" wrote: how can i create a macro that in column "D", look for first cell with a value, go down until blank cell, delete three rows down, and continue the same procedure. lets say: column D row 5 100 row 6 200 row 7 blank row 8 500 row 9 blank row 10 400 row 11 80 row 12 blank row 13 90 row 14 blank row 15 100 row 16 300 result should be: column D row 5 100 row 6 200 row 400 row 80 row 100 row 300 thanks a lot |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
how can i create a macro
This should accomplish your purpose.
Sub test() Range("D5").activate Do If Activecell = "" then Range(Activecell, Activecell.Offset(2,0)).select Selection.EntireRow.Delete shift:=xlUp else Activecell.Offset(1,0).Activate end if Loop until (whatever conditions you wish to set) End Sub -- Pops Jackson "andresg1975" wrote: how can i create a macro that in column "D", look for first cell with a value, go down until blank cell, delete three rows down, and continue the same procedure. lets say: column D row 5 100 row 6 200 row 7 blank row 8 500 row 9 blank row 10 400 row 11 80 row 12 blank row 13 90 row 14 blank row 15 100 row 16 300 result should be: column D row 5 100 row 6 200 row 400 row 80 row 100 row 300 thanks a lot |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
how can i create a macro
I want to loop until there is no more cells with values
how can i do that, thanks a lot "Pops Jackson" wrote: This should accomplish your purpose. Sub test() Range("D5").activate Do If Activecell = "" then Range(Activecell, Activecell.Offset(2,0)).select Selection.EntireRow.Delete shift:=xlUp else Activecell.Offset(1,0).Activate end if Loop until (whatever conditions you wish to set) End Sub -- Pops Jackson "andresg1975" wrote: how can i create a macro that in column "D", look for first cell with a value, go down until blank cell, delete three rows down, and continue the same procedure. lets say: column D row 5 100 row 6 200 row 7 blank row 8 500 row 9 blank row 10 400 row 11 80 row 12 blank row 13 90 row 14 blank row 15 100 row 16 300 result should be: column D row 5 100 row 6 200 row 400 row 80 row 100 row 300 thanks a lot |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Create a macro to create excel line graph with coloured pointers anddata lables | Charts and Charting in Excel | |||
Using a macro to create a macro in another workbook | Excel Worksheet Functions | |||
could any one please tell me how can i create a macro that runs other macro | Excel Programming | |||
how to create a macro that runs other macro in the same workbook | Excel Programming | |||
Use existing macro to create another macro | Excel Programming |