-
Posts
1.094 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
posts postados por zinhovba
-
-
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
- 1
-
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.http://www.teclati.com/2012/07/exibir-duas-ou-mais-planilhas-excel.html
Att
- 1
-
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
- 1
-
-
Boa tarde!!
Para que o pessoal possa lhe ajudar, por favor poste seu arquivo modelo, com exemplos (demonstrando antes e depois)
Att
-
-
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
- 1
-
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
- 1
-
Bom dia!!
Enquanto isso, leia:
http://www.bertolo.pro.br/FinEst/SemanaContabeis2007/MacroExcel.pdf
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
-
-
Boa tarde!!
Qual erro?
Outra situação, preciso que de alguma maneira seja forçada a habilitação da macro ao abrir a pasta em qualquer computador.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
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
Soma entre intervalo de datas
em Microsoft Office e similares
Postado
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