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.
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
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.
Por favor, teste o código que postei.
Se não funcionar, explique o que não funcionou.