Macro de relleno de columna

3 envíos / 0 nuevos
Último envío
oskkk4
Imagen de oskkk4
Offline
última acción: Hace 3 semanas 4 días
alta: 24/06/2020 - 04:45
Puntos: 105
Macro de relleno de columna

En este archivo de ejemplo que adjunto planeo mi problema, puede ser una de dos, Primera: en la columna k o numero 11, existe una descrpcion que a su vez he copiado con una macro que se encuentra en la hoja de este archivo, se llama CopiarPegarSeleccion, solo he copiado unas cuantas y obvio puedo copiar y pegar las mas de un millon de celdas, el punto es que en la fila de la columna B o 2 esta coloreada de azul una celda y es justo en esta fila pero de la columna K o 11 donde tengo que copiar la descripcion que esta mas arriba, tomando en cuenta que quedan esos espacios en blanco, o sea encontrar el primer valor que tenga esta descripcion, obvio, debe encontrar la pirmer fila con valor ya que puede haber variacion de 2, 3, 4, 5 etc numero de celdas en blanco. (asi esta el archivo originarl que tiene mas de 100mil filas) SEGUNDO: lo otro puede ser copiar directamente en la columna A (en la misma fila color celda azul al lado izq de la columna B) el valor de arriba (coloreado de amarillo) de la columna B. De antemano Gracias y les agradeceria su ayuda.

Etiquetas: 

RET
Imagen de RET
Offline
última acción: Hace 2 meses 3 semanas
alta: 01/06/2020 - 13:29
Puntos: 290
Macro de relleno de columna

A ver si te sirve esto.

Asumo que el texto a copiar empieza siempre por "Cuadrilla" y se copia en la fila donde dice "Volumen:"

Tienes la SUb en el txt adjunto

AdjuntoTamaño
Plain text icon copiartexto.txt488 bytes

IMF_RET

Visitame en https://InformaticaMuyFacil.com

oskkk4
Imagen de oskkk4
Offline
última acción: Hace 3 semanas 4 días
alta: 24/06/2020 - 04:45
Puntos: 105
Resuelto

A la perfeccion RET, aunque ya lo habia resuelto de otra manera, con esta macro encontrada aqui mismo por una persona de lentes que no recuerdo su nombre... es esta:   

Sub rellenaloquefalta()

    Dim celda As Range

    For Each celda In Intersect(UsedRange, Range("k:k")).Cells 

        With celda 

            If .Value = Empty Then 

                .Value = .Offset(-1, 0).Value 

            End If 

        End With 

    Next 

End Sub

Y si sabia que mi ejemlo iba estar mal explicado porque no todas empiezan con cuadrilla, por esto es que use colores amarillo este caso, pero igual con tu macro se puede resolver de una manera mas limpia que la de arriba, solo use una columna auxiliar donde todas las celdas amarillas le puese left ... "basico" y me funciono bien. Pero con la macro de arriba tuve que hacer un filtro donde no fueran las celdas azules y borre las celdas no necesarias, porque me relleno toda la columna, pero con tu macro es mas limpia y es justo lo que necesitaba, muchas gracias,,, espero que alguien aqui mas si tiene este problema tambien le sirva algun dia. ya empece a quebrarme la cabeza para empezar a modificar tu macro usando el color amarillo, pero llevo 3 intentos y no he tenino exito. Llora, pero con esta columna auxiliar funciona a la maravilla.

Gracias!!!!