Rearrange Data

**Madan** · 03-09-2010, 05:59 AM

Hi All,

Please help me to get the desired result in the attached spreadsheet.

Thanks in advance
Madan

**contaminated** · 03-09-2010, 06:18 AM

Hi Try this macro out

Sub RearrangeData()
    Dim MyRange As Range, Cell As Range
    
    Set MyRange = Range("D4:D179")
    Range("D4").Delete shift:=xlUp
    Application.ScreenUpdating = False
    For Each Cell In MyRange
        If Cell = vbNullString Then
            Range(Cell.Offset(0, -1).Address & ":" & _
                    Cell.Address).Delete shift:=xlUp
        End If
    Next Cell
    Application.ScreenUpdating = False
End Sub

**Madan** · 03-09-2010, 06:31 AM

Thanks.
But the macro doesn't seem to work properly.

Is it possible to rearrange the data without using macros?

Madan

**teylyn** · 03-09-2010, 06:40 AM

Madan, please take the trouble to explain your issue in the text on the post, not only in the attachment. This will help our members decide whether they want to download the attachment or not.

thanks.

**Madan** · 03-10-2010, 12:38 AM

Hi Teylyn,

I have the existing data wherein ProductA(in cell B3) has two subproducts, namely ProductAA(in cell C4) and ProductAB(in cell C8).
Again Product AA has multiple products(number of products will change everytime) which is specified in cells D5 to D7.

I would like to rearrange my data in such a way that there is no blank cell next to ProductA(in Cell C3).
The same holds good for ProductAA, ProductAB.

I am not well versed with macros, hence, it would be better if i can use some excel functions to achieve this.

Hope this clarifes my issue.

Regards
Madan

Thread: Rearrange Data

Thread Tools

Display

Rearrange Data

Re: Rearrange Data

Re: Rearrange Data

Re: Rearrange Data

Re: Rearrange Data

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions