Ajudinha nessa macro aqui

[jwillsmith]

Boa Tarde.

 

tenho a seguinte macro para preencher automaticamente as linhas a partir de um input

 

Cells(Rows.Count, "C").End(xlUp).Offset(1) = InputBox("Informe o numero :")

 

 

eu gostaria de 2 coisas:

* dar um range maximo, exemplo ir até a celula c10, após isso ele não aceita

 

* apagar o ultimo input feito

 

tem como ajudar?

 

Exemplo.xlsx

[Basole]

Veja o ex. no link abaixo: 

 

http://www.sendspace.com/file/ncvz4r

[jwillsmith]

Já está apagando a ultima informação colocada, queria que ficasse..

só apagasse se ele apertasse em cancelar.

[Basole]

Mas não foi isso que voce informou + acima. 

Desculpe nao entendi, "cancelar"  o que ? 

[jwillsmith]

eu preciso que apague apenas se ele clicar em cancelar 

 

 

 

ou se não der quero informar o numero maximo de celulas...

 

obrigado

[Basole]

Substitue da sua plan. por este: 

Sub Retângulo1_Clique()Dim z As Longz = Range("c1047586").End(xlUp).RowIf z = 10 Then Exit SubCells(Rows.Count, "C").End(xlUp).Offset(1) = Application.InputBox("Insira um numero..ou cancele", "Insirir ou cancelar ?")If Cells(Rows.Count, "C").End(xlUp).Offset = False ThenCells(Rows.Count, "C").End(xlUp).Offset = ""If z >= 2 Then Range("c" & (z)) = ""End IfEnd Sub

[jwillsmith]

Obrigado, sz