Ytdyklly

How can I pull data from a master list and parse by the different values in one column into separate sheets. The parse information will automatically be in the format of the sheet it is going to. Look at the examples below. Example 1 is the Mast List. Example 2 is the template. I am trying to pull only the information needed to auto fill example 2 from example 1 but parse it into different sheets within the workbook by the supplier name.

Example 1

We can't see your example2 and example1 isn't much to go on, so here is an outline of untested and unfinished code that should get you started. Pay attention to the comments and complete as needed.

Sub Template_per_Supplier()



Dim supplierDict As Object

Dim numRows As Long

Dim rowPos As Long

Dim dataStart As Long

Dim suppName As String

Dim suppCol As String



'column with Supplier Names:

suppCol = "H"



'first row with data:

rowPos = 4



Dim currSheet As Worksheet

Set currSheet = ActiveSheet



Set supplierDict = CreateObject("Scripting.Dictionary")

numRows = currSheet.Range(suppCol + "1").CurrentRegion.Rows.Count

dataStart = rowPos

Do While rowPos <= numRows

  suppName = currSheet.Cells(rowPos, 1).Value2

  If supplierDict.exists(suppName) Then

  Else

    supplierDict.Add suppName, 0

  End If

  rowPos = rowPos + 1

Loop



Dim suppSheet As Worksheet



Dim i As Long

Dim newPos As Long

Dim Column As Long

Column = 0

For Each myKey In supplierDict

  ' instead of adding in this next step you may want to copy your template sheet:

  Set suppSheet = ThisWorkbook.Worksheets.Add

  suppSheet.Name = myKey

  ' do your static transfers here:  Name, phone, etc..:

  ' Example:

  ' suppSheet.Cells(1, 1).Value2 = currSheet.Cells(1, 1).Value2



  ' set this newPos variable to be the first data line row in your template

  newPos = 2

  rowPos = dataStart

  Column = Column + 1

  suppSheet.Cells(1, Column).Value2 = myKey

  Do While rowPos <= numRows

    If currSheet.Cells(rowPos, 1).Value2 = myKey Then

      ' map all your data transfers here:

      ' Examples: New_data_Column and Original_Data_Column should be set per data     item

      ' suppSheet.Cells(newPos, New_data_Column).Value2 = currSheet.Cells(rowPos,     Original_Data_Column).Value2

      ' suppSheet.Cells(newPos, New_data_Column).Value2 = currSheet.Cells(rowPos, Original_Data_Column).Value2

      ' suppSheet.Cells(newPos, New_data_Column).Value2 = currSheet.Cells(rowPos, Original_Data_Column).Value2

      ' suppSheet.Cells(newPos, New_data_Column).Value2 = currSheet.Cells(rowPos, Original_Data_Column).Value2

      ' suppSheet.Cells(newPos, New_data_Column).Value2 = currSheet.Cells(rowPos, Original_Data_Column).Value2



      newPos = newPos + 1

    End If

    rowPos = rowPos + 1

  Loop

Next



End Sub