Criar um Botão de Inserir Hiperlink em um programa VBA

2024 - VBA & Macros

Post Recente por klarc28 7 anos atrás

4 Posts

2 Usuários

0 Reactions

1,176 Visualizações

RSS

Eltonc09

(@eltonc09)

Posts: 17

Active Member

Topic starter

Boa Noite pessoal!

Estou criando um programinha em VBA que contém os seguintes botões: - Cadastrar; Salvar; - Limpar; - Pesquisar; Editar e Excluir.

Minha dúvida é a seguinte:

- Quando aperto no botão Cadastrar, vou inserindo os dados nas Textbox (Contrato aparece na célula A1; Contratada aparece na célula B1; Documento aparece na célula C1;
Número do documento aparece na célula D1 da minha tabela "Cliente".

Depois de inserir o número do documento na célula D1, queria criar um botão de comando para criar um hiperlink da mesma forma que criamos quando apertamos inserir e depois criar
hiperlink, esse hiperlink estaria na célula E1. Isso é possível?

Logicamente que depois vou criar cadastro na linha 2, linha 3, etc.

Espero ter sido claro. Desde já agradeço.

Postado : 02/01/2018 5:45 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

Na próxima vez, anexe a planilha.

Estude o código e adapte:

Private Sub CommandButton1_Click()

Dim i As Long
i = 1
While Plan1.Range("A" & i).Value <> ""
i = i + 1
Wend
Plan1.Range("A" & i).Value = txtContrato.Text
Plan1.Range("B" & i).Value = txtContratada.Text
Plan1.Range("C" & i).Value = txtDocumento.Text
Plan1.Range("D" & i).Value = txtNumeroDoDocumento.Text

Plan1.Range("E" & i).Select
ActiveCell.FormulaR1C1 = Plan1.Range("E" & i).Text
Plan1.Range("M" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Plan1.Range("E" & i).Text, TextToDisplay:= _
Plan1.Range("E" & i).Text


End Sub

Postado : 02/01/2018 5:52 pm

Eltonc09

(@eltonc09)

Posts: 17

Active Member

Topic starter

Boa noite Klarc, sou novo aqui e não tinha visto essa opção de inserir a planilha.

O arquivo está uma bagunça, estou aproveitando um programinha que arrumei e adaptando para a minha necessidade.

O formulário que estou montando se chama Cliente. Nele tem um botão de comando com uma lupa.

Quando cadastro um novo produto, queria que eu pudesse apertar na lupa e inserir um hiperlink. Depois de salvar o cadastro, na hora de pesquisar algo, quando
os registros, eu pudesse olhar o documento.

Agradeço demais sua ajuda Klarc, você é o fera.

Postado : 02/01/2018 6:21 pm