Transfer data from one form to another.

[Pojzon]

Hello, I've got something like this:

I would like to transfer data from left part of picture into right part format. Name is always first and under it are listed tasks, amount of tasks is never the same. I would prefer non VBA solution if possible. Thank you for any help.

 

[ranman256]

it cannot be done without vba:

Sub aParseMacro1()
Dim vNum, vDate, vName, vTask, vVal
Dim shtSrc As Worksheet, shtTarg As Worksheet
Dim vPrevNum, vDte
Dim colDtes As New Collection
Dim colVals As New Collection
Dim iCols As Integer, i As Integer


Set shtSrc = ActiveSheet
Sheets.Add
Set shtTarg = ActiveSheet
shtSrc.Activate


Range("c1").Select
While LCase(ActiveCell.Value) <> "sum"
   iCols = iCols + 1
   vDte = ActiveCell.Value
   colDtes.Add vDte
   ActiveCell.Offset(0, 1).Select  'next column
Wend


Range("B2").Select
While ActiveCell.Value <> ""
   If Not IsEmpty(ActiveCell.Offset(0, -1).Value) Then vNum = ActiveCell.Offset(0, -1).Value
   
   If vPrevNum <> vNum Then
      vName = ActiveCell.Value
   Else
      vTask = ActiveCell.Value
        'collect vals
      Set colVals = New Collection
      For i = 1 To iCols
          colVals.Add ActiveCell.Offset(0, i).Value
      Next
        
        'post data
      shtTarg.Activate
      For i = 1 To iCols
          ActiveCell.Offset(0, 0).Value = vName
          ActiveCell.Offset(0, 1).Value = colDtes(i)
          ActiveCell.Offset(0, 2).Value = vTask
          ActiveCell.Offset(0, 3).Value = colVals(i)
          
          ActiveCell.Offset(1, 0).Select  'next row
      Next


      shtSrc.Activate
   End If
   
   
   vPrevNum = vNum
   ActiveCell.Offset(1, 0).Select  'next row
Wend
shtTarg.Activate


Set shtSrc = Nothing
Set shtTarg = Nothing
Set colDtes = Nothing
End Sub

 

[Pojzon]

Thank you for help. After trying macro I'm getting this:

That's not exactly what I need. I can copy-paste Name and Date manually no problem, I just need some automation with transfering correct tasks. Help columns are not a problem if it could solve something.

 

[Pojzon]

Crossposted my problem at: https://www.excelforum.com/excel-fo...ata-from-one-form-to-another.html#post4861073