Rellenar celda con datos de la celda superior

10 envíos / 0 nuevos
Último envío
Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 4 años 5 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Rellenar celda con datos de la celda superior

Hola, tengo la siguiente hoja de calculo con los siguientes encabezados

COD TKT Nº

y están rellenados con los datos que necesito, solo que en la columna de COD que la uso para poner los códigos que pertenecen al TKT, estos varían para dos o tres TKT`s lo que necesito es que si la celda inferior esta vacía sea rellenada con la celda de arriba en la columna COD, para que sea mas clara mi pregunta adjunto el archivo.

 

gracias mil

Jesús

AdjuntoTamaño
File rellenar.xlsx10.97 KB

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 3 semanas 4 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Re: Rellenar celda con datos de la celda superior

Así que necesitas una macro que recorra la columna A (bueno, no hasta el final, sino donde haya datos)

Eso con un bucle for each lo tenemos hecho.

 

la condición, con cada celda podría ser algo así:

if celda.value="" then...

 

y para tomar el valor de arriba podemos emplear celda.offset(-1,0).value

El resultado final podría ser algo así

 

Sub rellenaloquefalta()

    Dim celda As Range

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

        With celda

            If .Value = "" Then

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

            End If

        End With

    Next

End Sub


(en este ejemplo nos apoyamos implícitamente en que se van a recorrer las celdas de arriba a abajo con ese bucle for each, si tuviéramos que ir de abajo a arriba, podríamos utilizar un contador de filas o algo similar):

 

------
Ya sé Excel, pero necesito más.

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 4 años 5 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Re: Rellenar celda con datos de la celda superior

Estimado Paco:

Me sale el siguiente mensaje:

" Se ha producido el error '24' en tiempo de ejecución :

       se requiere un objeto "

Gracias

Jesús

Jesus Martinez Plantarosa

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 3 semanas 4 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Re: Rellenar celda con datos de la celda superior

Bueno, yo puse el código en la hoja y entonces no necesitaba decirle explícitamente dónde estaba el rango usado, ... 

prueba a cambiar UsedRange por ActiveSheet.UsedRange

 

Sub rellenaloquefalta()

    Dim celda As Range

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

        With celda

            If .Value = "" Then

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

            End If

        End With

    Next

End Sub

 

------
Ya sé Excel, pero necesito más.

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 4 años 5 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Re: Rellenar celda con datos de la celda superior

Perfecto era justo lo que necesitaba

 

Un saludo cordial

 

Jesús

Jesus Martinez Plantarosa

visitante (no verificado)
Imagen de visitante
Re: Rellenar celda con datos de la celda superior

Muchas Gracias, funcionó perfectamente.

JosePe (no verificado)
Imagen de visitante
Solicitud de ayuda

[comentario movido a tema nuevo en el foro http://www.necesitomas.com/agrupar-y-filtrar

picoro (no verificado)
Imagen de visitante
Saludos

Gracias, codigo sencillo pero justamente lo requerido.

 

Gracias de nuevo... desde Honduras

gonsyto
Imagen de gonsyto
Offline
última acción: Hace 5 años 4 meses
alta: 20/07/2019 - 08:38
Puntos: 35
Me rrellena una celda más

Este código me funciona perfectamente, pero me rrelena una celda más después de que se acabaron los registros.

¿Como puedo hacer para que no rellene esa celda de más?

oskkk4
Imagen de oskkk4
Offline
última acción: Hace 9 meses 2 semanas
alta: 24/06/2020 - 04:45
Puntos: 180
Gracias

Acabo de postear un problema parecido a este, y creo que esto es lo que estaba buscando, haciendo un filtro para borrar unas celdas en blanco creo puedo logra lo que quiero, todavia no lo calo porque el archivo lo tengo en la maquina del trabajo, aqui lo cale con menos de mil filas y me funciono, espro qeu en el archivo que lo necesito con mas de cien mil filas no se cuelgue.