Ajuda com Macros

[josé]

Olá, boa noite a todos.
Tenho algumas planilhas do serviço, na qual:

1. a primeira planilha é uma de pedido, onde eu tenho um botão lá, que quando pressionado, gera numeração automática e subsequente a cada clique;
2. a segunda planilha é onde eu seleciono vários arquivos, e clico em um botão de enviar (a planilha envia um e-mail com os arquivos indicados).
   No ms excel tudo funciona a mil maravilhas, mas no calc não. Saí da suite ms e estou partindo para o libre office, mas não tem cristo que faça as macros funcionarem.
   Aguardo retorno e desde já agradeço.

Complemento

@Gilberto, bom dia.
Agora de manhã, mudei o código e funcionou graças a sua ajuda…muito obrigado!
Não sendo chato e já aproveitando a deixa, qual função uso, pois tenho uma 2 planilha, onde eu tenho 3 botões; cada um deles indica um arquivo a ser anexado (indica o caminho dentro do pc, rede), ai tem o espaço onde insiro um e-mail (para quem vou enviar) e outro espaço onde digito o que quero; existe outro botão que eu clico em enviar, e de dentro da planilha, envio e-mail de forma rápida e prática.
Existe alguma forma de fazer isso no calc?
EU tentei por os códigos, mesmo com a adequação “Option VBASupport 1” e não funiona.
Aguardo retorno.
At.te
José Henrique

[schiavinatto]

Ola @josé, bem vindo ao Grupo.

Os arquivos agora são ods ?

As macros devem ser refeitas, algumas podem até funcionar na conversão do arquivo, repare que aparece um comando antes das macros no arquivo ods

' Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Option Explicit

---

ATENÇÂO:: Para dar mais detalhes a sua pergunta, use na pergunta ou abaixo. Grato.

[josé]

Oi, boa noite Gilberto.
Primeiramente, obrigado pela atenção.
Então, como faço para reescrever uma macro, onde eu tenho um botão, quero clicar nesse botão e em cada clique, é gerado a numeração.
no excel, tenho esse código:

Option VBASupport 1
Private Sub Workbook_Open()
Range ("c18") + 1
ThisWorkbook.Save
End Sub

mas e no calc?
Aguardo retorno e obrigado mais uma vez!

[schiavinatto]

@José, Macro Somar 1 ( Plan1 troque pela sua planilha )

Sub Somar1
	ThisComponent.Sheets.GetByName("Plan1").GetCellRangeByName("C18") _
	.Value = ThisComponent.Sheets.GetByName("Plan1").GetCellRangeByName("C18").Value + 1
End Sub

---

ATENÇÂO:: Para dar mais detalhes a sua pergunta, use na pergunta ou abaixo. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.

[schiavinatto]

@josé, edite sua pergunta e poste a macro que tem, não use Adicionar resposta.

[josé]

@Gilberto Schianivatto, segue a macro.

Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Private Sub CommandButton1_Click()
    
    Dim intCheck As Integer
    Dim strFile As String
    
    strFile = ""

    Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
    intCheck = Application.FileDialog(msoFileDialogOpen).Show
    
    If intCheck <> 0 Then
        strFile = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
    End If

    Cells(1, 1).Value = strFile
    
       
End Sub

Existe função parecida no calc?
obrigado desde já!
abraço!

[schiavinatto]

Ola @José, não consegui, saiu do meu conhecimento. Sugiro abrir nova pergunta com este item.