PDA

View Full Version : Amazing Excel Add-in: DataPig Excel Explosion


Dave Schwartz
05-26-2018, 11:58 PM
Several people have asked in recent days about how to move data around in Excel. Fraser Rawlinson suggested this product and, based upon his recommendation, I just went ahead and blew the whole $14.95.

I've not even used it yet but the functions sound truly wonderful.

Split your Data into Separate Tabs
Split your Data into Separate Workbooks
Exploding Access and SQL Server Data
Automating Excel Explosion via VBA



First, just the DataPig Articles (http://www.datapigtechnologies.com/ExcelMain.htm) are amazing (although the website is a little rough).


Here is a link to the add-on: DataPig Excel Explosion (http://www.datapigtechnologies.com/ExcelExplosion.htm).

NorCalGreg
05-27-2018, 02:49 AM
Any help I can be.....let me know, please.

Tom
05-30-2018, 09:13 AM
Looks like a good site, but I am not able to view anything because I will not use Flash Player. Anyone have a suggestion for a work-around, or am I forced to use a bad device? I tried to save link as, but it won't work.

highnote
07-19-2018, 02:33 PM
Looks like a good site, but I am not able to view anything because I will not use Flash Player. Anyone have a suggestion for a work-around, or am I forced to use a bad device? I tried to save link as, but it won't work.

I have several browsers installed. I only have flash on one of them and will use that browser if I need to watch a flash formatted video. Pain in the ass.:ThmbDown:

DeltaLover
07-19-2018, 03:09 PM
Flash? Let it die please!

mikesal57
07-20-2018, 09:55 AM
Sub Sort()
Dim lastrow As Long, LastCol As Integer, i As Long, iStart As Long, iEnd As Long
Dim ws As Worksheet
Application.ScreenUpdating = False
With ActiveSheet
lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
LastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
.Range(.Cells(2, 1), Cells(lastrow, LastCol)).Sort Key1:=Range("X2"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
iStart = 2
For i = 2 To lastrow
If .Range("X" & i).Value <> .Range("X" & i + 1).Value Then
iEnd = i
Sheets.Add after:=Sheets(Sheets.Count)
Set ws = ActiveSheet
On Error Resume Next
ws.Name = .Range("X" & iStart).Value
On Error GoTo 0
ws.Range(Cells(1, 1), Cells(1, LastCol)).Value = .Range(.Cells(1, 1), .Cells(1, LastCol)).Value
.Range(.Cells(iStart, 1), .Cells(iEnd, LastCol)).Copy Destination:=ws.Range("A2")
iStart = iEnd + 1
End If
Next i
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Guys...

This will take an excel sheet and sort it by what ever column you want...
In this example...I had all tracks mixed up in one whole sheet...
After i ran this macro, I now have Tracks sorted by tabs(see bottom)...
Just replace the "X" with whatever column you want to break out

enjoy
Mike