Excel - Rellenar una serie de celdas con un comandbutton

Rellenar una serie de celdas con un comandbutton

Publicado por MONOLOCO (3 intervenciones) el 09/09/2015 13:50:22

Me gustaria crear una hoja en la cual tengo 30 celdas por ejemplo desde A1 hasta A30 y quiero que al pulsar un comand button revise si A1 esta vacia entonces la rellene con por ejemplo una "A" y si esta llena que vaya a A2 y vuelva a hacer la comprobacion y asi hasta la celda A30
si al llegar a A30 esta esta llena entonces me muestre un mensaje que diga que ya esta rellenada la tabla, gracias

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 819

Val: 2

Rellenar una serie de celdas con un comandbutton

Publicado por Rafael (38 intervenciones) el 09/09/2015 14:11:31

Codigo de la macro

Public Sub RellenaTabla()

    Dim renglon As Integer

    For renglon = 1 To 30

        If Range("A" & renglon).Value = "" Then

            Range("A" & renglon).Value = "A"

        End If

    Next renglon

    MsgBox "Tabla Rellena"

End Sub

Lo asignas al BOTON y listo...

Espero te sirva...
Saludos

Si te sirve un +1 no viene mal ...

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Rellenar una serie de celdas con un comandbutton

Publicado por MONOLOCO (3 intervenciones) el 09/09/2015 23:23:58

Hola, el codigo que me pones me rellena todas las casillas cuando solo tiene que rellenar la primera que este libre no se si me explico ,
al pulsar el boton el rellena las casillas de la 1 a la 30 con la letra A cuando solo tiene que rellenar la primera casilla que este libre no las demas, seguro que se resuelve facil, gracias

Valora esta respuesta

Comentar

Pos: 3

Val: 3.136

Rellenar una serie de celdas con un comandbutton

Publicado por Andres Leonardo (1583 intervenciones) el 10/09/2015 01:03:17

Listo corregido

Public Sub RellenaTabla()

    Dim renglon As Integer

    For renglon = 1 To 30

        If Range("A" & renglon).Value = "" Then

            Range("A" & renglon).Value = "A"

            exit sub

        End If

    Next renglon

    MsgBox "Tabla Rellena"

End Sub

Valora esta respuesta

Comentar

Rellenar una serie de celdas con un comandbutton

Publicado por MONOLOCO (3 intervenciones) el 10/09/2015 22:56:20

Hola, el coodigo modificado me ha servido de maravilla muchas gracias por vuestra ayuda.

Valora esta respuesta

Comentar

formula restar sobre número fijo

CODIGO NO ASUMIDO EN SUMAR.SI