Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate ahora y podrás: / 💪 Hacer preguntas a los expertos / ⬇️ Descargar ejemplos y plantillas / 🏅 Acceder a contenidos premium

Regístrate gratis

Bucle que no se finalizar

HERMES65

Member
Buenos días, tengo un bucle copia los registros A25 a m25 de la hoja general al mes en b17:n17 , hasta ahí va bien, "lo he intentado con la grabadora, y no me sale" lo que necesito,es que cuando vuelva a enviar otro dato, se copié a la hoja mes ,de bajo del último dato que hay. Lo he intentado con row+1 .pero no me sale, muchas gracias a todos,por vuestra ayuda.. saludos
 

Adjuntos

  • servicio Movilidad.xlsm
    510,9 KB · Visitas: 4

Gastar

Member
Buenos dias,

Prueba con esta macro, creo que soluciona el problema.

Código:
Sub uno()

Dim mes As String

mes = ActiveSheet.Cells(5, 2)

For I = 0 To 10

If Sheets(mes).Cells(16 + I, 2) = "" Then

    For j = 0 To 8
    
    Sheets(mes).Cells(16 + I, 2 + j) = ActiveSheet.Cells(25, 1 + j)
    
    Next j
    
    Exit Sub
    
End If

Next I


End Sub


Saludos
 

HERMES65

Member
Gracias por contestar, pero en la hoja que se copia me borra el registro de arriba. Igual lo puse mal, lo que necesito es que cualquier dato que envie en general me vaya copiando en el mes, hacia bajo pero guardando el último registro, muchas gracias por tu tiempo
 

Temas similares

Arriba