VBA

[ceytl]

Hello, I'm not sure if this is possible, but I am looking for a VBA script that can go through Column A and find the value B04.

When it finds a B04 it will go to the row below it, and if the cell is not blank, then it will copy the cell to the same row as B04, but in the next column over.

Then it would go the the next row down in Column A and see if the cell is not blank again, if it's not then it would copy it to the next column over from the last one.

This would loop until it found a blank cell, at that point it would go back to looking for the next B04 and do it over again until completed.

 

[maabadi]

Try this:

Sub Test()
Dim P As Long, Lr As Long, i As Long
Lr = Range("A" & Rows.Count).End(xlUp).Row
On Error GoTo Resum1
For i = 1 To Lr
P = Range("A" & i & ":A" & Lr).Find("B04").Row + 1
If Range("A" & P).Value = "" Then Range("B" & P).Value = "B04"
i = P
Resum1:
Resume Resum2
Resum2:
Next i
End Sub

 

[offthelip]

It sertainly is possible try this:

Sub test()
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
inarr = Range(Cells(1, 1), Cells(lastrow + 1, 1))
For i = 1 To lastrow
  j = 1
  If inarr(i, 1) = "B04" Then
     Do While inarr(i + j, 1) <> ""
      Cells(i, j + 1) = inarr(i + j, 1)
      j = j + 1
     Loop
     i = i + j - 1
   End If
Next

End Sub

 

[ceytl]

It sertainly is possible try this:

Sub test()
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
inarr = Range(Cells(1, 1), Cells(lastrow + 1, 1))
For i = 1 To lastrow
  j = 1
  If inarr(i, 1) = "B04" Then
     Do While inarr(i + j, 1) <> ""
      Cells(i, j + 1) = inarr(i + j, 1)
      j = j + 1
     Loop
     i = i + j - 1
   End If
Next

End Sub

Thank you so much! It saved me hours of work!