Página 1 de 1

Botão Limpar

Enviado: 13 Jul 2016 às 10:20
por BryanSmith
Bom dia,
Estou com um problema, preciso criar um botão limpar na minha planilha para limpar algumas células ex.: ( A1:C10). Só que na empresa que trabalho eles não trabalham com Excel e sim com o Libre Office, e nele parece não haver Botão de comando, então tenho que criar uma forma e atribuir uma macro a ela, alguém poderia por favor me dizer qual código devo usar para que quando clique nessa "forma" limpe o conteúdo das células de A1:C10..

Agradeço desde já :)

Re: Botão Limpar

Enviado: 13 Jul 2016 às 10:34
por alexandrevba
Bom dia!!

Eu não uso mas leia:
http://sejalivre.org/aprenda-a-apagar-a ... fice-calc/

Att

Botão Limpar

Enviado: 13 Jul 2016 às 11:09
por BryanSmith
Sim sim, mas se vc fosse fazer isso pelo Excel, como faria??

Re: Botão Limpar

Enviado: 13 Jul 2016 às 19:29
por Amado
Boa noite

Se fosse Excel (com uma Macro) seria algo parecido com o seguinte:
Sub Botão_limpar()
'
' Botão_limpar Macro
'

'
Range("A1:C10").Select
Selection.ClearContents
Range("A1").Select
End Sub

No fim da execução da macro, o cursor fica posicionado na célula "A1".

Espero que esta solução lhe seja útil.

Re: Botão Limpar

Enviado: 13 Jul 2016 às 19:46
por Rodridragao
Sub LimparFolha_de_Ponto()
'Botão de Limpar os dados que escreveu na Folha de Ponto

Range("D10:R40").Value = ""

MsgBox "Apagou com sucesso"

End Sub

Re: Botão Limpar

Enviado: 13 Jul 2016 às 19:47
por Rodridragao
Sub Limpar()
'Botão de Limpar os dados que escreveu

Range("E8").Value = ""
Range("E9").Value = ""
Range("E10").Value = ""
Range("E11").Value = ""
Range("E12").Value = ""
Range("E20").Value = ""
Range("E15").Value = ""
Range("E16").Value = ""

MsgBox "Apagou com sucesso"

End Sub

Re: Botão Limpar

Enviado: 13 Jul 2016 às 19:48
por Rodridragao
Sub Limpar()
'Botão de Limpar os dados que escreveu

Celulas = Array("U5", "U6")

For i = 0 To UBound(Celulas)

Range(Celulas(i)).ClearContents
Next i
End Sub