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:
Ver originalSub 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....
