Elizeu_Cavalheiro

boa tarde, preciso de uma ajuda em um codigo de VBA no excel, para bloquear as celulas em branco que foram inseridas algum valor. fazer este bloqueio junto com a macro de 'SALVAR/ENVIAR" que esta contido na planilha e com senha. em anexo, a planilha para melhor entendimento. muito obrigado... planilha.rar

boa tarde Basole, primeiramente obrigado pelo retorno, o codigo nao criou o hiperlink, apenas deixou a ultima linha da coluna A sublinhado como link antes deste codigo, utilizo um formulario userform para inserir os valores nesta ultima linha. conforme codigo abaixo. o hiperlink que falo, seria na cells(linhavazia,1).value = range("A3").value + 1, referencia do txtcod obrigado.. escreve os dados na planilha Cells(linhavazia, 4).Value = (Me.txt_cliente.Value) Cells(linhavazia, 2).Value = (Me.txt_cod.Value) Cells(linhavazia, 3).Value = (Me.txt_descrição.Value) Cells(linhavazia, 14).Value = (Me.txt_desenho.Value) Cells(linhavazia, 15).Value = (Me.txt_consumo.Value) Cells(linhavazia, 16).Value = (Me.txt_comissao.Value) Cells(linhavazia, 17).Value = (Me.txt_situação.Value) Cells(linhavazia, 18).Value = (Me.TXT_LIGA.Value) Cells(linhavazia, 19).Value = (Me.txt_peso.Value) Cells(linhavazia, 20).Value = (Me.txt_frete.Value) Cells(linhavazia, 5).Value = Format(Me.TXT_DATA, "mm/dd/yy") Cells(linhavazia, 7).Value = Date Cells(linhavazia, 1).Value = Range("A3").Value + 1

olá nobres, tudo beleza... utilizo o codigo abaixo para criar hiperlink, o codigo executa correto, porém, ele esta criando o hiperlink sempre na celula A8. o que gostaria: que fosse criado o hiperlink sempre na ultima linha digitado da coluna A.. fico grato pela ajuda.... abraço. Dim sArquivo Dim sCaminho As String Dim sNome As String Dim sNome2 As String Dim sNomeCompleto Dim sNumero 'o mesmo tem de ser alimentado nesta Variável sNumero = txtcod sNome = txt_descrição.Value sNome2 = txt_cliente.Value 'Montamos o nome do arquivo sNomeCompleto = "AT - " & sNumero & "_" & sNome & "_" & sNome2 'Caminho (Pasta) definida na rotina sCaminho = "P:\LABORATÓRIO\Análise técnica C.Q\AT\" 'Montamos o Hyperlink sArquivo = sCaminho & sNomeCompleto & ".xlsm" If sArquivo <> CStr(False) Then ActiveSheet.Hyperlinks.Add Range("a8"), sArquivo, TextToDisplay:=sNomeCompleto Else 'Nenhum arquivo foi selecionado End If

Olá, Prezados, gostaria de um código para fazer a seguinte situação: se eu digitar nas celulas da coluna E ( a partir de E3), gostaria que aparecesse uma mensagem perguntando para confirmar aquele valor, tipo:" tem certeza de inserir este valor?", caso eu confirme, ele bloqueia esta celula, para nao reeditar, caso contrario ele limpa aquela celula digitada. isso será feito em duas colunas: coluna E e coluna F, e o valor será de datas. obrigado pelo ajuda...