VBA Copiar diferente celdas de una pestaña a otra pestaña

5 envíos / 0 nuevos
Último envío
Jorge Alfonso M...
Imagen de Jorge Alfonso Mar Uribe
Offline
última acción: Hace 5 años 9 meses
alta: 04/06/2018 - 21:55
Puntos: 35
VBA Copiar diferente celdas de una pestaña a otra pestaña

Que tal , solicito de su apoyo.. Tengo un problema tengo varios resultados en toda una pestaña que quiero concentrar en una sola ya que despues esa pestaña la utilizare para realizar distribuciones de probabilidad, quisiera una macro que pueda copiar esas celdas..

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 14 horas 56 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
los rangos tienen el método

los rangos tienen el método Copy que permite copiar una celda a otro lugar

rangoorigen.Copy rangodestino

por ejemplo

    Worksheets("hoja1").Range("A1").Copy Worksheets("hoja2").Range("B2")

Esto pega todo en el destino (fórmula, formato, formato condicional, validaciones...), así que si tienes una fórmula seguramente no te sirva y quieras pegar sólo los valores, en este caso lo tendrías qeu hacer en dos pasos, primero copias y uego pegas valores en destino con el método PasteSpecial

Worksheets("hoja1").Range("A1").Copy    'copias

Worksheets("hoja2").Range("B2").PasteSpecial xlPasteValues  'pegas sólo valores

 

 

 

------
Ya sé Excel, pero necesito más.

Jorge Alfonso M...
Imagen de Jorge Alfonso Mar Uribe
Offline
última acción: Hace 5 años 9 meses
alta: 04/06/2018 - 21:55
Puntos: 35
Muchas gracias paco me has

Muchas gracias paco me has ayudado mucho, oye si no es molestia una pregunta , tengo esta parte de la macro ahora tomando el ejemplo que pusiste yo en la Hoja 1 "A1" tengo un numero aleatorio que esta cambiando constantemente y en la hoja2 quiero pegarlo en la "B2" pero quisiera colocar el la celda "A1" Hoja1 un numero (Ejemplo 1000) y que ese valor me lo valla pegando 1000 veces en la hoja2 "B2" no se si me explico.. muchas gracias paco por tu tiempo

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 14 horas 56 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
puedes pegar el mismo valor

puedes pegar el mismo valor en muchas celdas a la vez

Worksheets("hoja2").Range("B2:B1000").PasteSpecial xlPasteValues

 

Si lo que quieres es ir pegando valores distintos que va tomando el aleatorio en A1, entonces haz un bucle similar a este

For i = 1 To 1000

    Worksheets("hoja1").Range("A1").Calculate   'para recalcular el valor aleatorio

    Worksheets("hoja1").Range("A1").Copy

    Worksheets("hoja2").Cells(i, 2).PasteSpecial xlPasteValues

Next

 

 

 

------
Ya sé Excel, pero necesito más.

visitante (no verificado)
Imagen de visitante
Paco muchas gracias por tu

Paco muchas gracias por tu apoyo, oye ya trabajando en esto me quede interesado en aplicar mas cosas a mi proyecto, rapido te comento yo lo que hago es pegar una cierta cantidad de valores dependiendo cuantos indique yo esto lo hago con un ciclo for i=1 to 10000 pero quiero saber si existe la forma de indicar mediante alguna barra de proceso cuanto porcentaje o cuantos valores llevo copiados... algo como una barra proceso