zinhovba

Bom dia!! Use uma TD para retornar os dados desejados, agrupando por dia, ou algo assim Rótulos de Linha Soma de Moagem 28/04/2015 - 01/05/2015 44844200 02/05/2015 - 05/05/2015 35951390 06/05/2015 - 09/05/2015 30299330 10/05/2015 - 13/05/2015 11986050 14/05/2015 - 17/05/2015 55612540 18/05/2015 - 19/05/2015 16673640 Total Geral 195367150

Bom dia!! Eu te a conselho postar seu arquivo modelo!! Att

Boa tarde!! Seria bom ter seu arquivo, caso ninguém responda de forma eficaz, poste seu arquivo modelo! Att

Boa tarde!! Já tentou: Clique no menu Exibição e depois habilite a opção "Exibir lado a lado". Assim você trabalha com os dois arquivos do Excel abertos. https://support.office.com/pt-br/article/Exibir-duas-ou-mais-planilhas-ao-mesmo-tempo-1deed3da-a297-4260-98aa-a7b2d90c81ab http://www.teclati.com/2012/07/exibir-duas-ou-mais-planilhas-excel.html Att

Boa tarde!! Em quais colunas os dados ficam, ou não tem uma coluna fixa? Seria interessante postar seu arquivo modelo!! Att

Boa tarde!! Dentro do módulo de EstaPasta_de_trabalho, insira o código. Sub Workbook_open()Dim r As LongDim LR As Long LR = Range("A" & Rows.Count).End(xlUp).Row For r = 3 To LR If Range("A" & r).Value < Range("H" & r).Value Then MsgBox Range("A" & r).Value & " Vencida" ElseIf Range("A" & r).Value = Range("H" & r).Value Then MsgBox Range("A" & r).Value & " Visita agendada para hoje" Else: Exit Sub End If Next rEnd Sub Att

Bom dia!! Para enviar email veja em : http://www.rondebruin.nl/win/s1/outlook/mail.htm A macro abaixo fará i filtro. Sub ZinhoVBA_1109770() Dim strCriteria As String Dim rFilterHeads As Range Dim wSheetStart As Worksheet Set wSheetStart = ActiveSheet Set rFilterHeads = Range("A1", Range("I1").End(xlToLeft)) With wSheetStart .AutoFilterMode = False rFilterHeads.AutoFilter strCriteria = InputBox("Enter Criteria") If strCriteria = vbNullString Then Exit Sub rFilterHeads.AutoFilter Field:=5, Criteria1:=strCriteria 'Sheets.Add 'Adiciona uma nova guia '.UsedRange.Copy Destination:=Cells(1, 1) 'Copia os dados filtrados para a nova guia '.AutoFilterMode = False 'Desativa o filtro End With End Sub Att

Bom dia!! Eu não o que formulário do seu entendimento, poderia postar um arquivo modelo? Att

Bom dia!! Tente assim.. Sub ZinhoVBA_1110934() Dim Found As Range Set Found = Columns("J").EntireRow.Find(what:="RESTANTE", LookIn:=xlValues, Lookat:=xlWhole) If Not Found Is Nothing Then Found.Resize(, 2).Insert Shift:=xlDown Application.CutCopyMode = False End IfEnd Sub favor adaptar!!!!!!!!!!!! Att

Boa tarde!! Segue ... http://www.rondebruin.nl/win/s1/outlook/mail.htm Att

Boa tarde!! Para que o pessoal possa lhe ajudar, por favor poste seu arquivo modelo, com exemplos (demonstrando antes e depois) Att

Boa tarde!! Veja se ajuda Att ZinhoVBA_1110351.xls

Boa tarde!! Ou selecione a coluna com os nomes, Ctrl + L na aba Substituir, cole o nome que deseja substituir, depois click em substituir todos!! Att

Bom dia!! Qual erro? em qual linha? Att

Bom dia!! Talvez... Sub ZinhoVBA_1091038() pdfName = ActiveSheet.Name ChDir ActiveWorkbook.Path & "\" fileSaveName = ActiveSheet.Name ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ fileSaveName _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True MsgBox "Arquivo salvo " & " " & fileSaveNameEnd Sub Att

Bom dia!! Isso geralmente é feito com iagens http://optionexplicitvba.com/2013/09/13/handling-excel-rollover-popups/ Att

Bom dia!! Tente um recurso nativo Texto para coluna http://www.exceldoseujeito.com.br/2008/10/04/extrair-um-conteudo-especifico-em-textos-inteiros/ http://www.doutorplanilha.com.br/2012/04/texto-para-colunas.html Att

Bom dia!! Enquanto isso, leia: http://www.bertolo.pro.br/FinEst/SemanaContabeis2007/MacroExcel.pdf Att

Bom dia!! Além da pesquisa do fórum!! Leia: http://office.microsoft.com/pt-br/access-help/impedir-valores-duplicados-em-um-campo-HA010283317.aspx http://www.hardware.com.br/comunidade/verificar-duplicidade/1114929/ http://maximoaccess.maisforum.com/t8376-resolvidobloquear-duplicidade Att

Bom dia!! Algumas são as cousas, imagine que tu está usando o VBA para inserir dados em um arquivo ou guia com senha e não está fazendo de forma correta (como desproteger o arquivo ou guia durante a execução), pode ocasionar erro. http://support.microsoft.com/kb/905164/pt Att

Bom dia!! Talvez, mas se na origem onde os arquivos estavam alocados, use o recurva para tentar recupera-lo, ou verifique se era um servidor ou arquivos compartilhados. Infelizmente eu não como ajuda-lo. Att

Bom dia!! Tu fez alguma limpeza, ou alterou a configuração do SO? http://www.tecmundo.com.br/windows-7/5551-dicas-do-windows-7-como-habilitar-funcoes-do-aero.htm Att

Bom dia!! Veja:http://office.microsoft.com/pt-br/excel-help/reparando-uma-pasta-de-trabalho-corrompida-HA010097017.aspx http://pt.wikihow.com/Recuperar-um-Arquivo-Excel-Corrompido http://www.baixaki.com.br/download/advanced-excel-repair.htm Att

Boa tarde!! Qual erro? Não há como garantir 100%

Boa tarde!! Eu não entendi, você precisar criar (inserir) linhas de acordo com o valor no campo (Quantidade de Funcionários) na célula H16? Onde seraõ inseridas essas linhas na Tabela Quadro de funcionários? Att