Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

copiar celdas con selección Especial

Aldair0_o

New member
Registrado
21 Dic 2021
Mensajes
11
Hola que tal alguien que me pueda ayudar en esta macro, me selecciona celdas y las copea, pero las pega de una en una a la derecha y e logrado que las pegue para abajo pero quiero que me las pegue...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Última edición:
Solución
al usar el "specialcells" tu codigo podria generar una (nueva) seleccion "particionada" (mas de una area)
esta situacion podria ocasionar que los bucles que se puedan imaginar no sean (del todo) "atinados"

cambia de tu codigo esta parte:

por esta:
Código:
  cuenta = rangoDestino.Row - Selection(1).Row
  For Each celda In Selection
    celda.Offset(cuenta).Value = celda.Value
  Next

esto, asumiendo que el "rangoDestino" seria en la misma columna pero varias filas
hola muchas gracias ya me ayudaron, pero igual muchas gracias por tomarse el tiempo enserio.
anexo código que me sirvió
Código:
Cuenta = 0
columna = 0
For Each Celda In Selection
 RangoDestino.Offset(Cuenta, columna).Value = Celda.Value
 columna = columna + 1
If columna >...
Volver
Arriba