Ir ao conteúdo
  • Cadastre-se

zinhovba

Membro Pleno
  • Posts

    1.094
  • Cadastrado em

  • Última visita

  1. 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
  2. Boa tarde!! Seria bom ter seu arquivo, caso ninguém responda de forma eficaz, poste seu arquivo modelo! Att
  3. 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
  4. Boa tarde!! Em quais colunas os dados ficam, ou não tem uma coluna fixa? Seria interessante postar seu arquivo modelo!! Att
  5. 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
  6. 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
  7. Bom dia!! Eu não o que formulário do seu entendimento, poderia postar um arquivo modelo? Att
  8. 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
  9. Boa tarde!! Segue ... http://www.rondebruin.nl/win/s1/outlook/mail.htm Att
  10. Boa tarde!! Para que o pessoal possa lhe ajudar, por favor poste seu arquivo modelo, com exemplos (demonstrando antes e depois) Att
  11. 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
  12. Bom dia!! Qual erro? em qual linha? Att
  13. 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

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...