MULTIMEDIA, Video digital, Grabación, Diseño gráfico, Diseño web, Programación > Webmasters - Diseño Web - Programación - Diseño gráfico

Macros Excel...!!!!

(1/1)

luis15155:
Buenos dias a todos los amigos de ForosDaboweb (Lindo el nuevo diseño...!!!!)
Buscando en internet he logrado hacer una macro... pero no logro una pequeña consistencia...
Me explico mejor... la siguiente macro:


--- Código: ---Sub Carga_Asiento()
Dim NRO_ASIENTO
If Range("H24") = "Asiento Correcto" Then
Range("A5:H20").Select
Selection.Copy
Range("B52").Select

("Aca que debo de poner...")

Selection.PasteSpecial Paste:=xlValues, OPERATION:=xlNone, SKIPBLANKS:=False, Transpose:=False
Application.CutCopyMode = False
Range("B5").Select
NRO_ASIENTO = Range("A5").Value
MsgBox ("Se ha contabilizado el asiento Número " & NRO_ASIENTO)
Range("A5").Value = NRO_ASIENTO + 1
Range("G5:H20,B5:D20").Select
Selection.ClearContents
Range("B5").Select
Else
MsgBox ("Existen errores en la carga del asiento, por favor verificar!!!")
End If
End Sub
--- Fin del código ---

Copia la data que tengo en un rango de celdas... luego se ubica en la celda: B52 y las pega... luego limpia mi data, vuelvo a llenar la informacion y cuando ejecuto la macro.. copia la data y la pega en el mismo sitio... yo quisiera que busque la siguiente celda vacia (A52 hacia delante... con un tope de la celda A5000) y ahi pegue la información y asi sucesivamente hasta llegar al tope (A5000).
Alguien me podria ayudar por favor... muchas gracias por su apoyo.

Saludos cordiales.

Navegación

[0] Índice de Mensajes