MACRO DE BUSQUEDA DE DATOS Y FORMATO DE CELDAS

2 envíos / 0 nuevos
Último envío
david.moscosoc
Imagen de david.moscosoc
Offline
última acción: Hace 1 mes 4 días
alta: 29/09/2019 - 22:20
Puntos: 50
MACRO DE BUSQUEDA DE DATOS Y FORMATO DE CELDAS

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 desde la tabla en hoja (ECO-01) que solo tengan datos en la columna N a la hoja AJOTROS (Ver imagen).

 

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

 

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:

 

Imagen

 

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

 

 

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!!

Etiquetas: 

RET
Imagen de RET
Offline
última acción: Hace 8 horas 5 mins
alta: 01/06/2020 - 13:29
Puntos: 290
MACRO DE BUSQUEDA DE DATOS Y FORMATO DE CELDAS

Donde pones ActiveSheet.Cells(6 + ix, 1).FormulaLocal = ...., tu indice de fila debe ser 6+(ix-1)*10.

Así, para ix=1, será 6 +(1-1)*10 = 6

Para ix=2, será 6 +(2-1)*10 = 16

Para ix=3, 6+(3-1)*10 = 26

Y asi, sucesivamente.

 

Para unir las celdas, solo tienes que seleccionar el rango: Range(Cells(6+(ix-1)*10,Columna), Cells(6+ix*10,Columna). Y a ese rango le haces un merge.

IMF_RET

Visitame en https://InformaticaMuyFacil.com