merging column values and transferring them to another worksheet

L

louie

hello! help please. how do i merge the values of 2 columns then paste them
into 1 column of another worksheet? i also need to transfer rows from 1
worksheet to another with an interval of 3 then 2 then 2? after this i need
to copy F10 to J10 to E4:I4 of sheet2?
ex.
copy D10 = alex & E10 = david then paste it in B4 of sheet2
D13 = male then paste it in C4 of sheet2
D15= single then paste it in D4 of sheet2

D17= ben & E10 = cruz then paste it in B5 of sheet2
 
S

Sheeloo

Start with
Sub copy1()
'copy D10 = alex & E10 = david then paste it in B4 of sheet2
' D13 = male then paste it in C4 of sheet2
' D15= single then paste it in D4 of sheet2
'
' D17= ben & E10 = cruz then paste it in B5 of sheet2

Sheets("Sheet2").Range("B4") = _
Sheets("Sheet1").Range("D10") & " " & _
Sheets("Sheet1").Range("E10")
End Sub
and complete this macro...

______________________________
Following macro inserts 5 blank rows after every row
Can you adapt it to your need?

Sub Insert5Rows()
Dim rColA As Range
Dim c As Long
Set rColA = Range("A2", Range("A" & Rows.Count).End(xlUp))
c = rColA(rColA.Count).Row
Application.ScreenUpdating = False
Do
Cells(c, 1).Rows("1:5").EntireRow.Insert Shift:=xlDown
c = c - 1
Loop Until c = 2
Application.ScreenUpdating = True
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top