Foros de daboweb

MULTIMEDIA, Video digital, Grabación, Diseño gráfico, Diseño web, Programación => Webmasters - Diseño Web - Programación - Diseño gráfico => Mensaje iniciado por: luis15155 en 23 de Junio de 2011, 03:28:29 pm

Título: Macros Excel...!!!!
Publicado por: luis15155 en 23 de Junio de 2011, 03:28:29 pm

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: [Seleccionar]

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
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.