-
Posts
1.094 -
Cadastrado em
-
Última visita
Reputação
245-
Soma entre intervalo de datas
zinhovba respondeu ao tópico de Andrey_Silva em Microsoft Office e similares
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 -
Macro Copiar, Colar e fórmular itentificar repetição e somar repetidos
zinhovba respondeu ao tópico de luizbgui em Microsoft Office e similares
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
-
Buscar dados repetidos em planilhas diferentes
zinhovba respondeu ao tópico de Gabriel Manzani em Microsoft Office e similares
Boa tarde!! Em quais colunas os dados ficam, ou não tem uma coluna fixa? Seria interessante postar seu arquivo modelo!! Att -
Aviso / lembrete quando vencer um item
zinhovba respondeu ao tópico de Vitelbo015 em Microsoft Office e similares
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 -
Macro para filtra relatório pelo código escolhido
zinhovba respondeu ao tópico de mateusmarona em Microsoft Office e similares
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 -
Campo aparecer somente quando estiver dados
zinhovba respondeu ao tópico de Lamcarter em Microsoft Office e similares
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
-
Escolher Item em ComboBox - VBA Excel
zinhovba respondeu ao tópico de Fernando.Igor em Microsoft Office e similares
Boa tarde!! Para que o pessoal possa lhe ajudar, por favor poste seu arquivo modelo, com exemplos (demonstrando antes e depois) Att -
Excel - Gerar planilha com campos específicos
zinhovba respondeu ao tópico de Samz em Microsoft Office e similares
Boa tarde!! Veja se ajuda Att ZinhoVBA_1110351.xls -
Macro para tirar palavras de células?
zinhovba respondeu ao tópico de Fernando Caldeira em Microsoft Office e similares
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
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