Patropi

Boa tarde Para facilitar poste um arquivo no site de Upload como o www.sendspace.com e depois cole o link aqui no fórum. []s

Boa tarde @Mipeixoto Seja bem-vindo ao fórum! Fiz um exemplo do que eu entendi e postei num site de Upload Para baixar a planilha de exemplo siga as minhas instruções ---> Clique com o lado direito do mouse no link abaixo --> escolha a opção Abrir link numa nova guia --> na janela que abrir --> Clique com o lado direito do mouse no retângulo azul com a inscrição Download --> escolha a opção Abrir link numa nova guia --> Pronto já vai baixar o arquivo --> Pode fechar a janela do sendspace sem clicar em mais nenhum link da página. https://www.sendspace.com/file/d41dhs []s

Eu não encontrei nessa planilha registro de armas o campo nome para preencher.

Boa tarde @brunomg30 Para facilitar poste teu arquivo Excel com alguns dados fictícios e a formulário. www.sensdpace.com ou www.4shared.com e cole o link aqui no fórum. []s

Bom dia Éderson Depois do nome da macro insira o código abaixo:] Sheets("Plan1").Unprotect "tua senha" No final da macro antes do End Sub insira o código abaixo: Sheets("Plan1").Protect "tua senha" Substitua tua senha pela senha que você usa. Para o pessoal não ver a macro, proteja o teu projeto VBA ---> no Editor de VBA ---> Guia Ferramentas --> Propriedades de VBA Project --> Proteção --> marque a opção bloquear projeto para exibição --> coloque uma senha []s

Bom dia Access não é o meu forte, se fosse no Excel seria fácil de fazer o que você deseja. []s

Boa noite @Jose Carlos Ferreira Podemos tentar ajudar, mas para facilitar poste uma planilha de exemplo. Poste num site como: www.sendspace.com Depois cole o link aqui no fórum. []s

This is my favorite MySQL hack. This is how you emulate the lag function: SET @quot=-1; select time,company,@quot lag_quote, @quot:=quote curr_quote from stocks order by company,time; lag_quote holds the value of previous row's quote. For the first row @quot is -1. curr_quote holds the value of current row's quote.

Boa tarde @souza1987 Podemos tentar ajudar, mas para facilitar poste o teu arquivo em um site como: www.sendspace.com Cole o link aqui no fórum. []s

Boa noite Poste a planilha num site como: www.sendspace.com e depois cole o link aqui no fórum. []s

Boa tarde Ismael Dá para arredondar com formula facilmente, experimente: =TETO(A1;0,5) Dê retorno. Se não conseguir, anexe a planilha que eu resolvo para você. []s

Boa tarde Anexe uma planilha de exemplo aqui mesmo no fórum. Na parte inferior de onde você irá me responder, no lado direito do clipe, clique em: Escolha os arquivos. Daí é só escolher o arquivo salvo no teu PC que você deseja anexar aqui no fórum. []s

Boa noite Sim é possível, mas para facilitar anexe uma planilha de exemplo, digitando em outra cor o resultado esperado. []s

Boa noite Seja bem-vindo ao fórum! Copie e cole o código abaixo em um módulo e instale um botão para comando da macro abaixo: Sub teste() Dim iLinha As Integer Dim Qtde As Integer Range("G1:G" & Rows.Count).ClearContents Qtde = Range("F1") For iLinha = 1 To Qtde Plan1.Cells(iLinha, 2).Value = 1 Next iLinha End Sub Dê retorno. []s