Basole

Sem querer me intrometer na forma q vocês trabalham ai, mas já que voce esta criando tipo um espelho da NF, poderia ter a opção no form de inserir a quantidade de produtos que vem na caixa (embalagem), o valor unitario (conf. pedido de compra) do produto e ao final, a planilha ja calcula o total e compara com o total da NF, pois as vezes o vendedor que que emitiu o pedido se engana na hora de fechar o preço e ai voce cobra a dif. dele. abx. .

Obrigado joao.vieira pelos elogios a gente faz o que pode... Se tiver acesso ao seu BD, fica fácil com comando sql o excel buscar as informações nele. Segue em anexo, como o processo automatizado, Ao invés do Evento AfterUpdate(), eu usei o _KeyDown no textBox do cod barras. E tambem eu desabilitei a propriedade .TabStop em todos os controles, exeto ao textbox cod. barras, para o foco se 'concentrar' apenas neste campo. Pra testar, se nao estiver c/ o scanner na mao, digite o cod barras 'manualmente' em seguida digite o {Enter} . Se interessar eu posso dar maozinha pra integrar o excel ao bd. abx. CONFERENCIA_MERCADORIA-v3.zip

joao.vieira, só uma sugestão quando se trata de banco de dados, o ideal ao invés de usar o excel para essa funcao, usar o access por exemplo, integrado, para evitar que voce perca algum dado por uso involuntario ou evitar a perda quando o excel fica corrompido o que é normal acontecer. Bom mas vamos ao seu caso, eu nao entendi direito, voce disse [ ele acrescente apenas +1 unidade na coluna "Quantidade], mas tem um trecho no codigo para acrescentar 10, nesta coluna [ ActiveCell.Offset(0, 7).Value = 10 ] ? Outra sugestão: o leitor de codigo de barras, normalmente vem configurado para apos ler o codigo, inserir o { Enter }, voce poderia aproveitar esse recurso e fazer tudo automatico, ou seja ao escanear, fazer as verificacoes e inserir as informçoes, sem que o usuario precise clicar no botao inserir, fica um trabalho mais ágil. Veja o anexo eu usei a funcao "Find" para procurar o codigo na coluna "A" da aba Conferencia. CONFERENCIA_MERCADORIA-v1.zip

Guilherme, mudei o codigo para o modulo 1 e agora as duas sheets usam o mesmo codigo. abx. Report 2015 - ESN.zip

Pra mim aqui funcionou direitinho. Realmente não sei te dizer sem ver sua plan. Verifique se procedeu a alteração do cod corretamente. Quanto ao botão voce pode substitui-lo por um atalho de teclado. Altere no nome da sub: Private Sub CommandButton1_Click() -> para Public Sub CommandButton1_Click() volte a planilha aperte ALT + F8 e selecione a respectiva macro e na janela em opções escolha uma tecla, de preferência a letra "q" ou "w" abx.

Guilherme, se tivesse incluido esta informação, já teria resolvido Por favor, substitua esta linha no codigo: Set myCel = ActiveSheet.Range("F15") ' AQUI: Altere a cel. desejada Por esta: Set myCel = ActiveCell abx.

Pelo que entêndi voce quer que a imagem se ajustasse (Larg/ Alt.), a uma determinada celula:. Na alteração do codigo, macro vai inserir na celula F15. Altere de acordo c/ sua necessidade: Private Sub CommandButton1_Click() Dim profile As String On Error GoTo 0 Dim fd As FileDialog Dim myCel As Range Set myCel = ActiveSheet.Range("F15") ' AQUI: Altere a cel. desejada Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Filters.Clear .Filters.Add "Picture Files", "*.bmp;*.jpg;*.gif;*.png" .ButtonName = "Select" .AllowMultiSelect = False .Title = "Choose Photo" .InitialView = msoFileDialogViewDetails .Show End With ActiveSheet.Range("E3").Select With ActiveSheet.Pictures.Insert(fd.SelectedItems(1)) i = 17 .Left = myCel.Left .Top = myCel.Top .Placement = 1 .PrintObject = True profile = .Name End With ActiveSheet.Pictures(profile).Select With Selection.ShapeRange .LockAspectRatio = msoFalse .Width = myCel.Width .Height = myCel.Height End With End Sub

Hanarge, faltou voce indicar a coluna em que estarão os end de emails. E quer enviar anexos tbem? Se puder, faça um upload de um modelo de sua planilha com essas informações incluidas, facilita o retorno da breve da solução.

Boudais, veja este exemplo com inputbox, A planilha fica protegida e o usuario, o mecanico no caso, só consegue inserir os dados digitando sua senha e as medidas, atraves desse inputbox. O nome no caso a assinatura dos respect. mecanicos são inseridos automaticamente na coluna 'E'. Não sei se as colunas 'F' e 'G' devem ser preenchidas, ficaram em 'branco', de qq. forma ta fácil de acrescentar ao codigo. A senha de acesso a planilha é "senha" (s/ as aspas). abx. Exemplo R0-v2.zip

Dilson, seja bem vindo ao forum. Tenho uma duvida, cada mecanico preenche uma celula, sendo assim cada celula teria uma senha? Caso seja afirmativo, a opcao seria atraves de textbox, e cada mecanico teria uma senha p/ havilita-lo. Segue uma outra opcao (em anexo), em que as celulas preenchidas ficam bloqueadas, e a medida em que as celulas vão sendo preenchidas as mesmas ficam bloqueadas. Veja se atende. Ah a senha é 1234 abx. Exemplo R0-v1.zip

Adalberto, P/ saber como funciona, no exemplo que postei, tem um link c/ um tutorial e passo a passo de como fazer (em inglês), mas as formulas do ex. estão traduzidas. E voce pode verificar quais são: em validacao de dados, e no gerenciador de nomes-> e aperte as ( Cltr + F3, para acessar ). abx.

Boas noites seus Adalbertos! rssss. Adalberto, alem da opção do Adalberto, tem essa c/ validação, (s/ uso do vba), que voce digita uma letra, ou seleciona (de A a Z), em seguida, a mesma lista é 'carregada', com somente nomes c/ a letra que voce inseriu. A lista do exemplo tem + de 290 nomes...pra testar... É + fácil de entender e fazer, do q c/ vba Nao sei, mas talvez atenda sua necessidade. Desculpe qq coisa abx. AutoCompletarValidacao.xls

Olá Camila, copie o cod abaixo e faça o teste... abx. Private Sub bcoCarregardata_Click() cxtData.Text = Format(Date, "dd/mm/yyyy") 'essa funciona na importação! Mas quando quero escrever a data, ao invés de clicar no botão, ele importa com dia e mês trocados End Sub Private Sub bcoInserirDados_Click() MsgBox "Dados cadastrados com sucesso", vbExclamation, "Aviso" ActiveCell.Offset(0, 0).Activate ActiveCell.Value = Format(Me.cxtData.Text, "dd/mm/yyyy") ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cxtNome.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cxtNºdoProcesso.Text ActiveCell.Offset(0, 3).Activate ActiveCell.Value = Format(Me.cxtDatadenascimento.Text, "dd/mm/yyyy") ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboGenero.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboLocaldeResidencia.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboEscolaridade.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboUsadrogas.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboAto1.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboAto2.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboConcurso.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboArma.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboViolencia.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Format(Me.cxtDataInternação.Text, "dd/mm/yyyy") ActiveCell.Offset(0, 2).Activate ActiveCell.Value = Me.cboOrigem.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboInstituição.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Format(Me.cxtDataLiberação.Text, "dd/mm/yyyy") ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboLiberação.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboGuia.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboJuizPlantonista.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Format(Me.cxtDataSentença.Text, "dd/mm/yyyy") ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboJuizSentença.Text ActiveCell.Offset(0, 2).Activate ActiveCell.Value = Me.cboRemissão.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboSentença.Text ActiveCell.Offset(1, -27).Activate End Sub Private Sub bcoLimparFormulario_Click() cxtData.Text = "" cxtNome.Text = "" cxtNºdoProcesso.Text = "" cxtDatadenascimento.Text = "" cboGenero.Text = "" cboLocaldeResidencia.Text = "" cboEscolaridade.Text = "" cboUsadrogas.Text = "" cboAto1.Text = "" cboAto2.Text = "" cboConcurso.Text = "" cboArma.Text = "" cboViolencia.Text = "" cxtDataInternação.Text = "" cboOrigem.Text = "" cboInstituição.Text = "" cxtDataLiberação.Text = "" cboLiberação.Text = "" cboGuia.Text = "" cboJuizPlantonista.Text = "" cxtDataSentença.Text = "" cboJuizSentença.Text = "" cboRemissão.Text = "" cboSentença.Text = "" End Sub Private Sub bcoFecharFormulario_Click() Unload Me End Sub

Agradeço pela ajuda, só ficou faltando um detalhe. o número de volume fica defenido pela planilha "Formulario" em P2 e digitado o nº de vol. que pode ser qualquer valor. Bom essa informação você nao apresentou no primeiro post. se nao ja tinha resolvido. Segue abaixo. codigo alterado. Sub Print_Etiqueta() Dim i As Long Dim ws As Worksheet Set ws = Sheets("Etiqueta") i = 1 With ws For i = i To .[p2] .Range("n2") = i ' atualiza o nº volume .PageSetup.PrintArea = "" 'Limpa a area definida .PageSetup.PrintArea = .Range("b1:q10").Address 'define a area a imprimir .PrintOut 'imprime Next End With End Sub

Elcio, [ Alt + F11 ] ,e crie um modulo, em seguida cole o codigo abaixo, [ Alt+ F8 ] e execute a macro 'Print_Etiqueta' Sub Print_Etiqueta() For i = 1 To 5 With Sheets("Etiqueta") .Range("n2") = i ' atualiza o nº volume .PageSetup.PrintArea = "" 'Limpa a area definida .PageSetup.PrintArea = .Range("b1:q10").Address 'define a area a imprimir .PrintOut 'imprime End With Next End Sub

Segue em anexo c/ a rotina ajustada p/ criar novos clientes de acordo com os dados do intervalo "b2:b18" da planilha "base". A macro oculta a plan( aba) 'modelo' p/ evitar q por acidente alguem delete. Caso queira tornar visivel, siga as instruçoes. calculo mensal.zip

Segue rotina para criar e nomear nova planilha(aba), no caso novo cliente. Para testar, abra um nova pasta de trabalho, crie um modulo (Alt+F11), e cole o codigo abaixo. Renomeie a plan1 como "Clientes" e na "a2" insira o nome do cliente. Na plan2 renomeie como modelo (seria a planilha modelo do seu cliente), e aperte as teclas (Alt+f8) e exceute a macro 'Novo_Cliente' Private Sub Novo_Cliente() Dim ws As Worksheet Set ws = Sheets("clientes") 'verifica se o nome é repetido For k = 3 To Worksheets.Count If Sheets(k).Name = ws.[a2] Then MsgBox "Este nome já existe!", _ vbInformation, "Erro!" Exit Sub End If Next 'solicita autorização If MsgBox("Deseja cadastrar este cliente?", _ vbYesNo + vbQuestion, "Atenção!") = vbNo Then Exit Sub Application.ScreenUpdating = False 'deixa a aba visível, copia e oculta Sheets("MODELO").Visible = True Sheets("MODELO").Copy After:=Sheets("CLIENTES") Sheets("MODELO").Visible = False 'nomeia a nova aba ActiveSheet.Name = ws.[a2] 'Dim strformula As String 'strformula = "='" & ActiveSheet.Name & "'!D2" 'vai para aba clientes Sheets("CLIENTES").Select Application.ScreenUpdating = True End Sub * no momento q estava postando você anexou um modelo, poriso nao considerei esta ação.

veja esse passo-a-passo se te ajuda: http://www.techrepublic.com/blog/windows-and-office/how-to-populate-a-dependent-dropdown-list-in-word/

Segue me anexo um exemplo c/ o calendario ("Microsoft Date and TIme Picker Control 6.0..") inserido. Coloquei algumas imagens, p/ ajudar a entender o procedimento. Pasta1.xlsx

É bem simples. Eu uso o win7 (32b),eu abri Excel, fui na aba ->Desenvolvedor-> Inserir Controles (icone c/ 2 ferramentas)-> clickei no icone 'Mais Controles', e procurei por ordem alfabetica, e selecionei o "Microsoft Date and TIme Picker Control 6.0" e OK.

O recurso "Microsoft Date and TIme Picker Control 6.0" (que faz o que voce quer), só tem no office<2007, no office 2010 vem c/ o "Microsoft MonthView Control", (tem um comportamento diferente), acredito que no 2013 tbem. Caso seu offcice seja 32 bits, voce pode baixar (anexo), inserir na pasta C;\Windows\System32 e registra-lo (c/ o CMD regsvr32 mscomct2.ocx), que estará habilitado automaticamente na caixa de ferramentas. MSCOMCT2.zip

Vagner, todo que for colocar na string, inisra entre ( " " ) aspas. Exceto a orientacao: xlPortrait Neste caso do diretorio: exemplo -> ePath = "C:\Temp" . abx.

Vagner, segue c/ alteração solicitada Sub Criar_PDF() 'funciona office 2010 ou > (2007 c/* suplemeento PDF: http://www.microsoft.com/pt-br/download/details.aspx?id=9943) Dim Filepdf, rData, rNome, ePath, Filename As String If Application.Version < "12.0" Then MsgBox " Não é possivel salvar no Formato PDF para essa versão do Office" Exit Sub End If With Worksheets("Plan1") rData = .Range("A1") ' na celula a1 insira uma data rData = Format(rData, "yyyy") ' altere a formatacao que desejar rNome = .Range("b1") ' na celula b1 inira um nome ou numero que deseja ePath = .Range("C1") ' Na "C1" diretorio que será salvo o PDF .PageSetup.Orientation = xlPortrait ' altere p/ xllandscape(orient. Paisagem) Filename = Trim(rData & "-" & rNome & ".Pdf") Filepdf = ePath & Trim("\" & Filename) Application.DisplayAlerts = False ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filepdf, _ Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=True End With End Sub abx.

Segue um exemplo, veja se te ajuda. No exemplo a macro salva direto como pdf s/ perguntar. Talvez não vá funcionar, dependendo da sua versão. voce pode alterar o cod e colocar o dialogo ( Application.Dialogs(xlDialogPrint).Show ), para ai sim, voce escolher a sua 'impressora:' no caso a CutePDF. Outra opção, caso esteja utilizando o office 2007, seria baixar o suplemento (Salvar como PDF da Microsoft, link abaixo), para office q nao tenha este recurso. http://www.microsoft.com/pt-br/download/details.aspx?id=9943 Abx. CreatePDF.rar

Corso bom dia, baixe o modelo (link), veja se atende as sua necessidades, tem a opção de editar, formatar e salvar o pdf e enviar p/ varios emails pelo outlook http://goo.gl/qu6P06