VBA Code: Breaking a large wksh into multiple wkshts by identifier in column A

L

livingston1122

New Member
Joined
Mar 2, 2015
Messages
6
Hi there!
I have a large worksheet that gets pulled monthly that I need to break out into separate worksheets and then further into individual client workbooks. I have created a macro that adds an identifier (Job#) in Column A. Ideally, this code would blast each row associated with an individual Job# into a separate tab, labeled as that Job#. The range needs to be col A:X, however each column within that range, does not necessarily have a value, nevertheless, all columns must export.

If this could go a step further and save all job#'s associated with a specific client to a separate workbook, that would be ideal. I can add a column A or B to the sheet to identify the client, as necessary.

Any help would be wonderful! I've gotten close but my range stops at column D and my sheet names are random ( some Sheet#, some Job#).
THANK YOU!!
Stephanie
 

Excel Facts

Excel Joke
Why can't spreadsheets drive cars? They crash too often!
Sort by date Sort by votes
Hi,
Assuming your master worksheets has a header row then you can use Advanced Filter to copy data to individual tabs.

See if this code goes in right direction for you:
Place all code in standard module:

Code: 
 Option Explicit

Sub FilterData()
    Dim ws1Master As Worksheet, wsNew As Worksheet, wsFilter As Worksheet
    Dim Datarng As Range, FilterRange As Range, objRange As Range
    Dim rowcount As Long
    Dim colcount As Integer, FilterCol As Integer, FilterRow As Long
    Dim SheetName As String




    'master sheet
    Set ws1Master = ActiveSheet


    'set the Column you
    'are filtering
top:
    On Error Resume Next
    Set objRange = Application.InputBox("Select Field Name To Filter", "Range Input", , , , , , 8)
    On Error GoTo 0
    If objRange Is Nothing Then
        Exit Sub
    ElseIf objRange.Columns.Count > 1 Then
        GoTo top
    End If


    FilterCol = objRange.Column
    FilterRow = objRange.Row


    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With


    On Error GoTo progend


    'add filter sheet
    Set wsFilter = Sheets.Add
    With ws1Master
        .Activate
        .Unprotect Password:=""  'add password if needed
        
        rowcount = .Cells(.Rows.Count, FilterCol).End(xlUp).Row
        colcount = .Cells(FilterRow, .Columns.Count).End(xlToLeft).Column


        If FilterCol > colcount Then
            Err.Raise 65000, "", "FilterCol Setting Is Outside Data Range.", "", 0
        End If


        Set Datarng = .Range(.Cells(FilterRow, 1), .Cells(rowcount, colcount))
        'extract Unique values from FilterCol
        .Range(.Cells(FilterRow, FilterCol), _
               .Cells(rowcount, _
                      FilterCol)).AdvancedFilter _
                      Action:=xlFilterCopy, _
                      CopyToRange:=wsFilter.Range("A1"), _
                      Unique:=True
        rowcount = wsFilter.Cells(wsFilter.Rows.Count, "A").End(xlUp).Row
        'set Criteria
        wsFilter.Range("B1").Value = wsFilter.Range("A1").Value


        For Each FilterRange In wsFilter.Range("A2:A" & rowcount)
            'check for blank cell in range
            If Len(FilterRange.Value) > 0 Then
                'add the FilterRange to criteria
                wsFilter.Range("B2").Value = FilterRange.Value
                SheetName = RTrim(Left(FilterRange.Value, 31))
                'if FilterRange sheet exists
                'update it
                If SheetExists(SheetName) Then
                    Sheets(SheetName).Cells.Clear
                Else
                    'add new sheet
                    Set wsNew = Sheets.Add(after:=Worksheets(Worksheets.Count))
                    wsNew.Name = SheetName
                End If
                Datarng.AdvancedFilter Action:=xlFilterCopy, _
                                       CriteriaRange:=wsFilter.Range("B1:B2"), _
                                       CopyToRange:=Sheets(SheetName).Range("A1"), _
                                       Unique:=False


            End If
        Next
        .Select
    End With


progend:
    wsFilter.Delete
    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With
    If Err > 0 Then
        MsgBox (Error(Err)), 16, "Error"
        Err.Clear
    End If
End Sub


Function SheetExists(ByVal sh As String) As Boolean
'stock function
    On Error Resume Next
    SheetExists = CBool(Len(Worksheets(sh).Name) > 0)
    On Error GoTo 0
End Function

When run, an input box appears, just select the field heading (Job#) with mouse then press OK – In same workbook, sheets will, if they do not already exist, be created in selected fields name & data copied to them.

Hope Helpful

Dave
 
Upvote 0
Hi Dave,
Thank you so much! This is gets me SUPER close. Somehow I lost the data in column X as well as some summary info at the top (all still designated with the identifier in Column A.

[TABLE="width: 1412"]
<tbody>[TR]
[TD][/TD]
[TD][/TD]
[TD]Below you can see the main headers ( in black) all those rows copied over, however the Red cells ( still within rows designated by Col A) did not. [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD="colspan: 2"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]Sheet1 ( main sheet) [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2"][/TD]
[TD="colspan: 2"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2"][/TD]
[TD="colspan: 2"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][TABLE="width: 1412"]
<tbody>[TR]
[TD]Job#[/TD]
[TD]Task ID[/TD]
[TD]Type[/TD]
[TD]Unique Auto [/TD]
[TD]Date[/TD]
[TD][/TD]
[TD]Description[/TD]
[TD][/TD]
[TD][/TD]
[TD]Quantity[/TD]
[TD][/TD]
[TD]Net Cost[/TD]
[TD][/TD]
[TD]Gross Amount[/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2"]Billed / To Bill[/TD]
[TD][/TD]
[TD][/TD]
[TD]Invoice Number[/TD]
[TD]Status[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]Number[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD="colspan: 2"]No Campaign[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X-100[/TD]
[TD]Client :[/TD]
[TD]X[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]
[/TD]
[TD="colspan: 2"]Budget[/TD]
[TD="colspan: 2"]Actual[/TD]
[TD]Remaining[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]Unbilled[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD="colspan: 2"]Open Orders Gross:[/TD]
[TD]0.00[/TD]
[/TR]
[TR]
[TD]X-100[/TD]
[TD]Project :[/TD]
[TD]X-100[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]
[/TD]
[TD="colspan: 2"]Labor:[/TD]
[TD]0.00[/TD]
[TD]
[/TD]
[TD]192,575.50[/TD]
[TD]
[/TD]
[TD]-192,575.50[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]192,575.50[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD="colspan: 2"]Amount Billed:[/TD]
[TD]49,800.00[/TD]
[/TR]
[TR]
[TD]X-100[/TD]
[TD]AE:[/TD]
[TD]A[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]
[/TD]
[TD="colspan: 2"]Expense:[/TD]
[TD]0.00[/TD]
[TD]
[/TD]
[TD]3,737.49[/TD]
[TD]
[/TD]
[TD]-3,737.49[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]3,737.49[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD="colspan: 2"]Advance Billed:[/TD]
[TD]50,000.00[/TD]
[/TR]
[TR]
[TD]X-100[/TD]
[TD]Status:[/TD]
[TD]Production[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]
[/TD]
[TD="colspan: 2"]Total:[/TD]
[TD]0.00[/TD]
[TD]
[/TD]
[TD]196,312.99[/TD]
[TD]
[/TD]
[TD]-196,312.99[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]196,312.99[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD="colspan: 2"]Advance Billed Open:[/TD]
[TD]50,000.00[/TD]
[/TR]
[TR]
[TD]X-100[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X-100[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X-100[/TD]
[TD]1[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]8/11/2014[/TD]
[TD][/TD]
[TD]Kim Shores[/TD]
[TD][/TD]
[TD][/TD]
[TD]1.0000[/TD]
[TD][/TD]
[TD]60.38[/TD]
[TD][/TD]
[TD]150.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X-100[/TD]
[TD]1[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]8/12/2014[/TD]
[TD][/TD]
[TD]Kim Shores[/TD]
[TD][/TD]
[TD][/TD]
[TD]1.0000[/TD]
[TD][/TD]
[TD]60.38[/TD]
[TD][/TD]
[TD]150.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X-100[/TD]
[TD]1[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]8/13/2014[/TD]
[TD][/TD]
[TD]Kim Shores[/TD]
[TD][/TD]
[TD][/TD]
[TD]1.0000[/TD]
[TD][/TD]
[TD]60.38[/TD]
[TD][/TD]
[TD]150.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X-100[/TD]
[TD]1[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]8/14/2014[/TD]
[TD][/TD]
[TD]Kim Shores[/TD]
[TD][/TD]
[TD][/TD]
[TD]4.0000[/TD]
[TD][/TD]
[TD]241.52[/TD]
[TD][/TD]
[TD]600.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X-100[/TD]
[TD]1[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]8/15/2014[/TD]
[TD][/TD]
[TD]Kim Shores[/TD]
[TD][/TD]
[TD][/TD]
[TD]1.0000[/TD]
[TD][/TD]
[TD]60.38[/TD]
[TD][/TD]
[TD]150.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X-100[/TD]
[TD]1[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]8/15/2014[/TD]
[TD][/TD]
[TD="colspan: 2"]Lauren Underhill[/TD]
[TD][/TD]
[TD]1.0000[/TD]
[TD][/TD]
[TD]56.22[/TD]
[TD][/TD]
[TD]175.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X-100[/TD]
[TD]1[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]8/22/2014[/TD]
[TD][/TD]
[TD="colspan: 2"]Lauren Underhill[/TD]
[TD][/TD]
[TD]1.0000[/TD]
[TD][/TD]
[TD]56.22[/TD]
[TD][/TD]
[TD]175.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X-100[/TD]
[TD]3[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]9/5/2014[/TD]
[TD][/TD]
[TD]John Elder[/TD]
[TD][/TD]
[TD][/TD]
[TD]1.0000[/TD]
[TD][/TD]
[TD]223.61[/TD]
[TD][/TD]
[TD]375.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X-100[/TD]
[TD]1[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]9/8/2014[/TD]
[TD][/TD]
[TD="colspan: 2"]Lauren Underhill[/TD]
[TD][/TD]
[TD]2.0000[/TD]
[TD][/TD]
[TD]112.44[/TD]
[TD][/TD]
[TD]350.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X-100[/TD]
[TD]1[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]9/8/2014[/TD]
[TD][/TD]
[TD]Kim Shores[/TD]
[TD][/TD]
[TD][/TD]
[TD]4.0000[/TD]
[TD][/TD]
[TD]241.52[/TD]
[TD][/TD]
[TD]600.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X-100[/TD]
[TD]1[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]9/9/2014[/TD]
[TD][/TD]
[TD="colspan: 2"]Lauren Underhill[/TD]
[TD][/TD]
[TD]1.0000[/TD]
[TD][/TD]
[TD]56.22[/TD]
[TD][/TD]
[TD]175.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X-100[/TD]
[TD]3[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]9/9/2014[/TD]
[TD][/TD]
[TD]Eric Weir[/TD]
[TD][/TD]
[TD][/TD]
[TD]2.0000[/TD]
[TD][/TD]
[TD]119.16[/TD]
[TD][/TD]
[TD]284.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X-100[/TD]
[TD]2[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]9/9/2014[/TD]
[TD][/TD]
[TD]Mark Lawson[/TD]
[TD][/TD]
[TD][/TD]
[TD]2.0000[/TD]
[TD][/TD]
[TD]228.08[/TD]
[TD][/TD]
[TD]600.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2"][/TD]
[TD="colspan: 2"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2"][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD="colspan: 3"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2"][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2"][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]COPIED TAB:
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2"][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 4"][TABLE="width: 2080"]
<tbody>[TR]
[TD]Job#[/TD]
[TD]Task ID[/TD]
[TD]Type[/TD]
[TD]Unique Auto[/TD]
[TD]Date[/TD]
[TD][/TD]
[TD]Description[/TD]
[TD][/TD]
[TD][/TD]
[TD]Quantity[/TD]
[TD][/TD]
[TD]Net Cost[/TD]
[TD][/TD]
[TD]Gross Amount[/TD]
[TD][/TD]
[TD][/TD]
[TD]Billed / To Bill[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]Invoice Number[/TD]
[TD]Status[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X - 100[/TD]
[TD]Project :[/TD]
[TD]X[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2"]Amount Billed:[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X - 100[/TD]
[TD]AE:[/TD]
[TD]A[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2"]Advance Billed:[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X - 100[/TD]
[TD]Status:[/TD]
[TD]Production[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2"]Advance Billed Open:[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X - 100[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X - 100[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X - 100[/TD]
[TD]1[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]8/11/2014[/TD]
[TD][/TD]
[TD]Kim Shores[/TD]
[TD][/TD]
[TD][/TD]
[TD]1.0000[/TD]
[TD][/TD]
[TD]60.38[/TD]
[TD][/TD]
[TD]150.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X - 100[/TD]
[TD]1[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]8/12/2014[/TD]
[TD][/TD]
[TD]Kim Shores[/TD]
[TD][/TD]
[TD][/TD]
[TD]1.0000[/TD]
[TD][/TD]
[TD]60.38[/TD]
[TD][/TD]
[TD]150.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X - 100[/TD]
[TD]1[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]8/13/2014[/TD]
[TD][/TD]
[TD]Kim Shores[/TD]
[TD][/TD]
[TD][/TD]
[TD]1.0000[/TD]
[TD][/TD]
[TD]60.38[/TD]
[TD][/TD]
[TD]150.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X - 100[/TD]
[TD]1[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]8/14/2014[/TD]
[TD][/TD]
[TD]Kim Shores[/TD]
[TD][/TD]
[TD][/TD]
[TD]4.0000[/TD]
[TD][/TD]
[TD]241.52[/TD]
[TD][/TD]
[TD]600.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X - 100[/TD]
[TD]1[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]8/15/2014[/TD]
[TD][/TD]
[TD]Kim Shores[/TD]
[TD][/TD]
[TD][/TD]
[TD]1.0000[/TD]
[TD][/TD]
[TD]60.38[/TD]
[TD][/TD]
[TD]150.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X - 100[/TD]
[TD]1[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]8/15/2014[/TD]
[TD][/TD]
[TD]Lauren Underhill[/TD]
[TD][/TD]
[TD][/TD]
[TD]1.0000[/TD]
[TD][/TD]
[TD]56.22[/TD]
[TD][/TD]
[TD]175.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X - 100[/TD]
[TD]1[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]8/22/2014[/TD]
[TD][/TD]
[TD]Lauren Underhill[/TD]
[TD][/TD]
[TD][/TD]
[TD]1.0000[/TD]
[TD][/TD]
[TD]56.22[/TD]
[TD][/TD]
[TD]175.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X - 100[/TD]
[TD]3[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]9/5/2014[/TD]
[TD][/TD]
[TD]John Elder[/TD]
[TD][/TD]
[TD][/TD]
[TD]1.0000[/TD]
[TD][/TD]
[TD]223.61[/TD]
[TD][/TD]
[TD]375.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X - 100[/TD]
[TD]1[/TD]
[TD]LABOR[/TD]
[TD][/TD]
[TD]9/8/2014[/TD]
[TD][/TD]
[TD]Lauren Underhill[/TD]
[TD][/TD]
[TD][/TD]
[TD]2.0000[/TD]
[TD][/TD]
[TD]112.44[/TD]
[TD][/TD]
[TD]350.00[/TD]
[TD][/TD]
[TD][/TD]
[TD]0.00[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]UnBilled[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Any Ideas?
THANK YOU SO MUCH![/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 2"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

dmt32 said:
Hi,
Assuming your master worksheets has a header row then you can use Advanced Filter to copy data to individual tabs.

See if this code goes in right direction for you:
Place all code in standard module:

Code: 
 Option Explicit

Sub FilterData()
    Dim ws1Master As Worksheet, wsNew As Worksheet, wsFilter As Worksheet
    Dim Datarng As Range, FilterRange As Range, objRange As Range
    Dim rowcount As Long
    Dim colcount As Integer, FilterCol As Integer, FilterRow As Long
    Dim SheetName As String




    'master sheet
    Set ws1Master = ActiveSheet


    'set the Column you
    'are filtering
top:
    On Error Resume Next
    Set objRange = Application.InputBox("Select Field Name To Filter", "Range Input", , , , , , 8)
    On Error GoTo 0
    If objRange Is Nothing Then
        Exit Sub
    ElseIf objRange.Columns.Count > 1 Then
        GoTo top
    End If


    FilterCol = objRange.Column
    FilterRow = objRange.Row


    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With


    On Error GoTo progend


    'add filter sheet
    Set wsFilter = Sheets.Add
    With ws1Master
        .Activate
        .Unprotect Password:=""  'add password if needed
        
        rowcount = .Cells(.Rows.Count, FilterCol).End(xlUp).Row
        colcount = .Cells(FilterRow, .Columns.Count).End(xlToLeft).Column


        If FilterCol > colcount Then
            Err.Raise 65000, "", "FilterCol Setting Is Outside Data Range.", "", 0
        End If


        Set Datarng = .Range(.Cells(FilterRow, 1), .Cells(rowcount, colcount))
        'extract Unique values from FilterCol
        .Range(.Cells(FilterRow, FilterCol), _
               .Cells(rowcount, _
                      FilterCol)).AdvancedFilter _
                      Action:=xlFilterCopy, _
                      CopyToRange:=wsFilter.Range("A1"), _
                      Unique:=True
        rowcount = wsFilter.Cells(wsFilter.Rows.Count, "A").End(xlUp).Row
        'set Criteria
        wsFilter.Range("B1").Value = wsFilter.Range("A1").Value


        For Each FilterRange In wsFilter.Range("A2:A" & rowcount)
            'check for blank cell in range
            If Len(FilterRange.Value) > 0 Then
                'add the FilterRange to criteria
                wsFilter.Range("B2").Value = FilterRange.Value
                SheetName = RTrim(Left(FilterRange.Value, 31))
                'if FilterRange sheet exists
                'update it
                If SheetExists(SheetName) Then
                    Sheets(SheetName).Cells.Clear
                Else
                    'add new sheet
                    Set wsNew = Sheets.Add(after:=Worksheets(Worksheets.Count))
                    wsNew.Name = SheetName
                End If
                Datarng.AdvancedFilter Action:=xlFilterCopy, _
                                       CriteriaRange:=wsFilter.Range("B1:B2"), _
                                       CopyToRange:=Sheets(SheetName).Range("A1"), _
                                       Unique:=False


            End If
        Next
        .Select
    End With


progend:
    wsFilter.Delete
    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With
    If Err > 0 Then
        MsgBox (Error(Err)), 16, "Error"
        Err.Clear
    End If
End Sub


Function SheetExists(ByVal sh As String) As Boolean
'stock function
    On Error Resume Next
    SheetExists = CBool(Len(Worksheets(sh).Name) > 0)
    On Error GoTo 0
End Function

When run, an input box appears, just select the field heading (Job#) with mouse then press OK – In same workbook, sheets will, if they do not already exist, be created in selected fields name & data copied to them.

Hope Helpful

Dave
Click to expand...
 
Upvote 0
Hi,
glad suggestion goes in right direction for you however, not really able to determine problem from example shown - Are you able to place copy of your worksheet with sample data in a dropbox?

Dave
 
Upvote 0
You must log in or register to reply here.

Similar threads

S
  • Solved
Working with multiple Target Ranges in Worksheet Code
Replies
3
Views
752
sspatriots
S
K
  • Solved
Previously working very complex VBA now stopped
Replies
7
Views
532
Alex Blakenburg
A
C
  • Question Question
Create code that sends emails and creates a log
Replies
1
Views
286
cokeoverpepsi123
C
O
  • Question Question
Stack Columns from Multiple Sheets into One Column VBA Code
Replies
5
Views
2K
DanteAmor
DanteAmor
T
  • Question Question
Extracting information from multiple columns located in different workbooks to a specific worksheet in another workbook
Replies
0
Views
632
Tyjyt
T

Forum statistics

Threads
1,223,897
Messages
6,175,269
Members
452,628
Latest member
dd2

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top