Eliminar valores de una columna excel

[lukas4]

que tal, pues el titulo es el problema, no se como hacer eso S:

tengo el siguiente codigo:

Código vb:

Private Sub CommandButton1_Click()
 
Dim valor, i, j, longitud As Integer
 
valor = Cells(1, 1).Value
j = 1
Do While j <= valor
    Cells(j, 2).Value = j
    Cells(j, 2).NumberFormat = "000"
    j = j + 1
Loop
 
End Sub
 

y cada que se le pica al boton, el boton toma el valor de la primera celda y hace un ciclo con ese valor desde el numero 1 hasta el valor dado, ejemplo, si la primer celda tiene el numero 99, la segunda columna se llena del 1 al 99, pero si despues le pones un numero menor como el 50, se hace el ciclo, pero me quedan ahi los demas numeros, y pues lo que ocupo es que cuando se mande llamar la ejecución del boton, todos los campos se vacien y despues se llenen.

alguna idea? Gracias de antemano

[AlZuwaga]

Y esto lo estás implementando en? Una página ASP? Una macro de Excell? ¿Dónde?

[lukas4]

Iniciado por AlZuwaga

Y esto lo estás implementando en? Una página ASP? Una macro de Excell? ¿Dónde?

lo estoy haciendo en un macro de excel

[AlZuwaga]

Ok, te paso al foro de ofimática

[jchuk]

Hola,

Prueba a poner este código justo a continuación del tuyo

Código:

Sub vaciar()
    Cells(1, 2).Select
    
    Do While (IsEmpty(ActiveCell) = False)
        ActiveCell.Delete
        ActiveCell.Offset(1, 0).Select
    Loop
    
End Sub

Además, en tú código, por ejemplo en la línea siguiente a la declaración de las variables, justo antes de asignar la variable valor, llama a este procedimiento escribiendo su nombre:

Código:

vaciar

Ya me dirás... Saludos

[lukas4]

que tal, lo solucione poniendo el siguiente codigo:

Código vb:

Worksheets("Sheet1").Range("B:B").ClearContents
 

igual gracias