How do you copy, paste and transpose from a horizontal range to a vertical one in VBA

[lidiev]

	A	B	C	D	E	F	G
Movie	Log-Line
In the wake of an alien attack that has crippled most of the world, shock has turned to resolve as the survivors gather to fight back. Leading the charge is Boston history professor Tom Mason, whose wife was killed in the attack, and one of his three sons is among a group of captive teens. Desperate to rescue his son, Tom joins forces with the 2nd Massachusetts, a makeshift regiment assigned to protect the survivors. As second in command to Weaver, Tom uses his knowledge of military history to gain intelligence about the aliens and form a plan of attack. But the plan keeps changing and more questions surface as the survivors discover what they're really up against: a highly intelligent, heavily armed alien force whose purpose on Earth is the biggest mystery of all.	In the wake of an alien attack that has crippled most of the world, shock has turned to resolve as the survivors gather to fight back	Leading the charge is Boston history professor Tom Mason, whose wife was killed in the attack, and one of his three sons is among a group of captive teens	Desperate to rescue his son, Tom joins forces with the 2nd Massachusetts, a makeshift regiment assigned to protect the survivors	As second in command to Weaver, Tom uses his knowledge of military history to gain intelligence about the aliens and form a plan of attack	But the plan keeps changing and more questions surface as the survivors discover what they're really up against: a highly intelligent, heavily armed alien force whose purpose on Earth is the biggest mystery of all
A team of explorers made up of soldiers and scientists travels through a Stargate, an ancient portal to other planets. They use the Stargate to explore new worlds, forge ties with friendly civilizations and protect Earth from hostile forces.	A team of explorers made up of soldiers and scientists travels through a Stargate, an ancient portal to other planets	They use the Stargate to explore new worlds, forge ties with friendly civilizations and protect Earth from hostile forces

<colgroup><col style="width: 25pxpx"><col><col><col><col><col><col><col></colgroup><thead>
</thead><tbody>
[TD="align: center"]1[/TD]

[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]

[TD="align: center"]2[/TD]
[TD="align: center"]The Dark Knight[/TD]

[TD="align: center"]3[/TD]
[TD="align: center"]Stargate SG-1[/TD]

[TD="align: right"][/TD]
[TD="align: right"][/TD]

</tbody>

Movies​

This is my first time posting, here is an example of what I'm trying to achieve.

I split the entries in column b into to the other entires, but I can't figure out how to copy the split entries from the other columnes "C: to the last column" and paste / transpose in a separate worksheet called MovieList in column A in a loop and also to skip any same entries and go to the next space if the entries are new.

 

[Rick Rothstein]

I think this macro will do what you want; HOWEVER, it will fail to work correctly for any Log-Line containing an abbreviation (a shortened "word" ending in a period space such as "Blah blah Dr. Strange blah blah.") as there is no way the code can decide that an abbreviation is not the end of a sentence unless you included in the code a list of all the possible abbreviation that could possibly occur.

Sub SplitLogLine()
  Dim Cell As Range, Sentences() As String
  For Each Cell In Range("B2", Cells(Rows.Count, "B").End(xlUp))
    Sentences = Split(Cell.Value, ". ")
    With Cell.Offset(, 1).Resize(, UBound(Sentences) + 1)
      .Value = Sentences
      .WrapText = True
    End With
  Next
End Sub

 

[lidiev]

Thanks Rick Rothstein but I have the macro for that to split the sentences. What I need is to paste those split sentences in a separate sheet called movie list in a transpose manner doing down in Column A and also detecting if each entry is not same in the column. All of that done in a loop, I've tried doing a for each loop and a for loop with no luck

 

[Fluff]

Cross posted https://www.ozgrid.com/forum/forum/...m-a-horizontal-range-to-a-vertical-one-in-vba

While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

 

[lidiev]

Thanks for the information, did not know. I will post a link for each new entry.