[SOLUCIONADO] "Llenado automatico de celdas con una Macro"

[patiurco]

Hola buen día a todos, veran tengo una duda que talvez algun buen conocedor de VBA pueda ayudarme a solucionar de manera sencilla, ya que no creo este muy lejos de conseguir lo que deseo.

Veran diariamente realizo un reporte con muchisimos registros con el siguiente aspecto, aqui ejemplificare lo que seria mis columnas A y B comenzando evidentemente desde mi fila 1 y asi sucesivamente:

Staging Area IB Route
S143 DC3012



S189 DC2012


S189 DC8032

S190 DC1522

El motivo por el que cree este tema es por que, lo que tengo que hacer es llenar todos los espacios en blanco (Celdas), con el numero ubicado arriba, en este ejemplo deberia quedar asi:

Staging Area IB Route
S143 DC3012
S143 DC3012
S143 DC3012
S143 DC3012
S189 DC2012
S189 DC2012
S189 DC2012
S189 DC8032
S189 DC8032
S190 DC1522

Ahora aqui viene mi duda, el codigo VBA que tengo es el siguiente:

Código vb:

Sub llena_psa()
'
' llena_psa Macro
'
    Range("A2:B2").Select
    Selection.Copy
    Range("A3:B4").Select
    ActiveSheet.Paste
    Range("A5:B5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A6:B10").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub
 

Hasta ahi todo esta bien pero el problema es que diariamente cambia la ubicacion de las celdas que debo copiar lo que causa evidentemente errores ya que el codigo que tengo siempre copia el valor de las mismas celdas y lo copia exactamente en la misma posicion indicada (Lo cual como dije anteriormente diario cambia).

Alguien sabe de alguna funcion que indique que copie el valor de l celda de arriba hasta encontrar un valor diferente o no se algo por estilo que pueda ayudarme??
De verdad lo agradeceria eternamente....

[mrocf]

Hola! patiurco

Iniciado por patiurco

... Hasta ahi todo esta bien ...

¡No tan bien, diría yo! (jajajajaja ). Intenta con lo siguiente:

Código PHP:

With Range([a1], Cells(Rows.Count, "b").End(xlUp))
  .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
  .Value = .Value
End With
 

Iniciado por patiurco

... De verdad lo agradeceria eternamente.

¿Conseguí tu gratitud eterna?...
Saludos, Cacho R.

[patiurco]

Hahahahha valla simpatía compañero XD, eso me agrada en una persona...

Compañero, waooo no manches eres un geniooo encerio, me gustaría entender exactamnete lo que hace tu codigo pero la verdad no se programar en VBA entiendo su logica pero la syntaxis la desconosco completamente. Donde conseguiste aprender todo esto me gustaría aprender algo del lenguaje tendras alguna referencia (O apoco aprendiste lo que sabes con la ayuda del Excel 2007 Developer Reference).

PD: Lograste mi gratitud eterna hehehe XD muchas gracias compañero cuidate mucho...

[mrocf]

Iniciado por patiurco

Hahahahha valla simpatía compañero XD, eso me agrada en una persona...

Compañero, waooo no manches eres un geniooo encerio, me gustaría entender exactamnete lo que hace tu codigo pero la verdad no se programar en VBA entiendo su logica pero la syntaxis la desconosco completamente. Donde conseguiste aprender todo esto me gustaría aprender algo del lenguaje tendras alguna referencia.

PD: Lograste mi gratitud eterna hehehe XD muchas gracias compañero cuidate mucho...

Imagino que ya advertiste que la cosa pasaba por incluir las líneas mostradas en un procedimiento Sub:

Código vb:

Sub Llena_psa_2
With Range([a1], Cells(Rows.Count, "b").End(xlUp))
  .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
  .Value = .Value
End With
End Sub
 

¡Me alegra que lo hayas solucionado!
Saludos y hasta la próxima. Cacho R.