copiar celdas solo si no están vacias

[dikon35]

Hola, tal y como explico en el archivo que adjunto necesitaría ayuda para copiar un rango de datos de una hoja a otra pero emitiendo aquellas líneas que estén vacías, y que en el destino...

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í

 

[riddle]

:D

Hola pues coloca este codigo en un modulo normal y lo ejecutas.

Sub cop()
For Each cel In Range("B13:B" & [B65536].End(xlUp).Row)
cel.Select
If Not cel.Value = "" Then
Range("B" &...

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í

 

[Cacho R]

Hola! dikon (y riddle)
También podrías intentar con:

Sub Copia2()
With [b12:d19]
  .AutoFilter Field:=1, Criteria1:="<>"
  .Offset(1).Resize(.Rows.Count - 1).Copy [j13]...

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í

 

[dikon35]

muchas gracias a todo, me sirvio todo y lo tengo casi acabado.

 

[Cacho R]

muchas gracias a todo, me sirvio todo y lo tengo casi acabado.

Gracias por avisar.