Este fórum está sendo desativado

[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á

[alexandrevba]

Bom dia!!

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

Att

[BryanSmith]

Sim sim, mas se vc fosse fazer isso pelo Excel, como faria??

[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.

[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

[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

[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