May 26 2020
09:49 AM
- last edited on
Apr 01 2022
09:56 AM
by
TechCommunityAP
May 26 2020
09:49 AM
- last edited on
Apr 01 2022
09:56 AM
by
TechCommunityAP
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).
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
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:
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!!