Copying and pasting with a macro

W

Wombat

Hi!

I posted this up yesterday and am very pleased with the corrections I got. I
do have another question though:

How can I make it so that the copied information is inserted into sheet 2
and takes on the format of the target cell rather than keeping the original
one?


Sub Wombat()

Sheets("1").Cells(3, 12).Select
x = 3
y = 24
Do Until Cells(x, 12).Value = "END"
If Cells(x, 12).Value <> "" Then
Cells(x, 12).Copy Sheets("2").Cells(y, 1)
x = x + 1
y = y + 1
Else
x = x + 1
End If
Loop

End Sub

Thanks in advance
 
S

Stefi

Replace
Cells(x, 12).Copy Sheets("2").Cells(y, 1)
by
Sheets("2").Cells(y, 1).Value = Cells(x, 12).Value


--
Regards!
Stefi



„Wombat†ezt írta:
 

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

Similar Threads

Help with a macro 4
VBA Formula Help 6
variable sheet name 6
Using COUNTU in VBA to delete certain values 2
sum values 6
Visual Basic Compile Error 5
add hyperlink using sheet names and cells(i,j) 3
macro from columns to rows but adding every time a new line 2

Top