Linkear datos entre hojas y dar formato a la tabla

Highlighted
Occasional Visitor

Que tal amigos, recurro nuevamente a ustedes ya que en casos anteriores me han ayudado mucho. Estoy recién comenzando con VBA lo cual es de gran ayuda para la creación de graaaandes tablas con muuuuuchos datos. Lo que me quita mucho tiempo el linkear y dar formatos. Espero esto pueda servir a otros.

 

En esta ocasión necesito copiar los datos en amarillo que solo tengan datos en la columna N desde la tabla en hoja (ECO-01) a la hoja AJOTROS (Ver imagen).

 

1.PNG

 

 

 

 

Para ello utilizo la siguiente programación:

 

Sub prueba()

 

Dim lista As Range

Dim ix As Long

 

Set lista = Application.InputBox(prompt:="Señalar rango de la lista en ECO-01", _

Title:="Lista de ítems", Default:="'ECO-01'!" & Worksheets("ECO-01").Range("c26", Worksheets("ECO-01").Range("c65536").End(xlUp)).Address, Type:=8)               'el rango aquí es C26:C30 como prueba, ya que puede ser de N datos

 

For ix = 1 To lista.Count

 

 

    If lista(ix).Offset(0, 11) <> Empty Then

 

       ActiveSheet.Cells(6 + ix, 1).FormulaLocal = "='ECO-01'!" & lista(ix).Address

       ActiveSheet.Cells(6 + ix, 2).FormulaLocal = "='ECO-01'!" & lista(ix).Offset(0, 1).Address

       ActiveSheet.Cells(6 + ix, 3).FormulaLocal = "='ECO-01'!" & lista(ix).Offset(0, 11).Address

       ActiveSheet.Cells(6 + ix, 4).FormulaLocal = "='ECO-01'!" & lista(ix).Offset(0, 12).Address

 

     End If

 

Next ix

 

 

End Sub

 

lo que me da como resultado lo que se muestra en la siguiente imagen

 

 

2.PNG

 

 

como se puede ver, quedan los espacios  con puntos rojos vacíos y salta a la siguiente casilla, tengo claro que no hay datos por la condición del IF. Ahora bien, aquí es cuando necesito de su ayuda. Necesito que comience la desde la casilla A6 y desde ahí comenzar a bajar dejando 10 espacios vacíos los cuales tienen que ser luego combinados, ver siguiente imagen:

 

3.PNG

 

 

 

esto para "n" datos que se encuentren en la hoja ECO-01, para la columna C donde la la columna N <>0

 

Adjunto planilla de lo anterior.

 

Espero se entienda, traté de ser lo mas gráfico posible para un mejor entendimiento. Espero tengan todos una buena semana y sus familias estén a salvo!!  

 

0 Replies