Excel - Copy//paste multiple

   
Vista:

Copy//paste multiple

Publicado por Laura (6 intervenciones) el 27/02/2008 10:52:02
Hola a todos, después de la ayuda de algunos de vosotros he conseguido realizar el código que necesitaba, pero me surge un problema no se como realiza un copia diferenciada. Para explicarme mejor aquí esta parte del código:

`Tiene que copiar
ActiveWorkbook.Sheets("PROM (BE Alfabét)").Range("b" + TextBox1.Value).Copy
ActiveWorkbook.Sheets("PROM (BE Alfabét)").Range("c" + TextBox1.Value).Copy

Workbooks.Add Template:= _
"C:Documents and Settings992536EscritorioPruebasContratosPlantilla.xls"

ActiveWorkbook.Sheets("Ficha Revisión").Range("c4").Select
ActiveSheet.Paste
ActiveWorkbook.Sheets("Ficha Revisión").Range("j4").Select
ActiveSheet.Paste


Lo que quiero es que la primera copy se pegue en c4 y la segunda copy se pegue en j4

Un saludo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Copy//paste multiple

Publicado por Kaiser (38 intervenciones) el 27/02/2008 17:49:38
Sería más facil almacenar los datos en variables y luego pasarlos al otro libro, te daré un ejemplo:

Dim Dato1,Dato2 as String
'Selecciono la primera celda
ActiveWorkbook.Sheets("PROM (BE Alfabét)").Range("b" + TextBox1.Value).Select
'y le asigno el contenido de ella a la variable Dato1
Dato1 = ActiveCell.Value
'Selecciono la segunda celda
ActiveWorkbook.Sheets("PROM (BE Alfabét)").Range("c" + TextBox1.Value).Select
'Y le asigno el contenido de ella a Dato2
Dato2 = ActiveCell.Value

'Abro la plantilla
Workbooks.Add Template:= _
"C:Documents and Settings992536EscritorioPruebasContratosPlantilla.xls"

'Y por último le paso los datos al nuevo libro
ActiveWorkbook.ActiveSheet.Range("C1").Value=Dato1
ActiveWorkbook.ActiveSheet.Range("j4").Value=Dato2

Espero te sirva.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar