none
Ayuda para macro RRS feed

Respuestas

  • Hola Alex,

     

       Te puse un ejemplo que te puede ayudar, no se exactamente lo que deseas pero esta macro lo que hace es activa la celda A1 y empieza a ver si la celda no esta vacia, de no ser asi recorre a la siguiente y sigue comprobando hasta la ultima ceda con datos y se posiciona en la ultima celda que debe estar vacia, y checa el ultimo numero consecutivo y solo le suma 1 y listo, ya si lo que quieres es que siga sola llenando pues agregale el codigo correspondiente.

     

    Sub recorrer()

        ActiveSheet.Range("A1").Select
       
    Do While ActiveCell.Value <> ""
        If ActiveCell.Value <> "" Then
        ActiveCell.Offset(1, 0).Activate
        End If
    Loop
        cuenta = ActiveCell.Offset(-1, 0).Value
        ActiveCell.Value = cuenta + 1

    End Sub

     

    Saludos

    miércoles, 5 de marzo de 2008 5:40