Ir ao conteúdo
  • Cadastre-se
jwillsmith

RESOLVIDO Ajudinha nessa macro aqui

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

só apagasse se ele apertasse em cancelar.

Compartilhar este post


Link para o post
Compartilhar em outros sites

eu preciso que apague apenas se ele clicar em cancelar 

 

 

 

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

 

obrigado

Compartilhar este post


Link para o post
Compartilhar em outros sites

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
  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×