Rellenar celda con datos de la celda superior

9 envíos / 0 nuevos
Último envío
Jesús Martínez ...
Imagen de Jesús Martínez Plantarosa
Offline
última acción: Hace 1 año 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 4938
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 16 horas 50 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10540
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):

 

Data Tools Suite
datos y tablas con Excel

Jesús Martínez ...
Imagen de Jesús Martínez Plantarosa
Offline
última acción: Hace 1 año 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 4938
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 16 horas 50 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10540
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

 

Data Tools Suite
datos y tablas con Excel

Jesús Martínez ...
Imagen de Jesús Martínez Plantarosa
Offline
última acción: Hace 1 año 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 4938
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 3 meses 3 semanas
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?