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!! Tente... http://office.microsoft.com/pt-br/outlook-help/verificar-e-reparar-arquivos-de-dados-corrompidos-do-outlook-HA010075831.aspx http://www.bpiropo.com.br/tt20050113.htm http://www.baixaki.com.br/cats.asp?c=364 Att

Bom dia!! Poste seu código! Att

Bom dia!! Veja um exemplo generico.. Private Sub Worksheet_Calculate() Static OldVal1 As Variant If Range("E4").Value <> OldVal1 Then OldVal1 = Range("B42").Value Call Macro1 '..... End If End Sub Att

Bom dia!! Quer aprender mesmo sobre Worksheet Change Event? http://www.globaliconnect.com/excel/index.php?option=com_content&view=article&id=110:worksheet-change-event-excel-vba&catid=79&Itemid=475 http://dmcritchie.mvps.org/excel/event.htm Att

Bom dia!! Quando se usa Worksheet_Change, espera se que haja alguma alteração em um célula. Mas as formulas retornam resultado, para ter o efeito de mudança ou alteração em uma célula com formulas, usa se outros metodos. Leia: http://pplware.sapo.pt/pessoal/informatica/dicas-de-vba-%E2%80%93-eventos-em-excel/ Att

Bom dia !! Lembre se, caso dependa de um resultado de formula acione uma macro o evento para isso tem que ser o Evento Calculate. Att

Bom dia!!! Eu não entendi, porque não por mais um caso para E4?? Att

Bom dia!! Leia: http://www.ambienteoffice.com.br/officevba/referencias_e_bibliotecas/ http://www.linhadecodigo.com.br/artigo/565/adicionando-referencias-dinamicamente-no-vba.aspx Talvez possa ajuda-lo Att

Boa noite!! Será que o problema não porque tem alguma referência marcada como ausente, caso sim é só desmarcar! Att

Bom dia!! Leia também: http://www.davesexcel.com/selectapicture.htm Att

Bom dia!! Perdão mas eu não olhei sua rotina. Sendo assim você consegue criar uma ideia baseada no código abaixo? Private Sub Editar_Click() With Worksheets("SuaGuiaAqui").Columns(1) i = .Find(what:=TextBox4.Value, after:=.Cells(1), LookIn:=xlValues, LookAt:=xlWhole).Row j = i j = Cells.FindNext(after:=ActiveCell).Row UserForm5.TextBox4.Value = .Cells(j, 1).Value UserForm5.TextBox5.Value = .Cells(j, 2).Value UserForm5.TextBox6.Value = .Cells(j, 3).Value UserForm5.TextBox7.Value = .Cells(j, 4).Value UserForm5.TextBox8.Value = .Cells(j, 5).Value UserForm5.TextBox9.Value = .Cells(j, 6).Value UserForm5.TextBox10.Value = .Cells(j, 7).Value UserForm5.TextBox11.Value = .Cells(j, 8).Value UserForm5.TextBox12.Value = .Cells(j, 9).Value UserForm5.TextBox13.Value = .Cells(j, 10).Value UserForm5.TextBox14.Value = .Cells(j, 11).Value UserForm5.ComboBox1.Value = .Cells(j, 12).Value End With End Sub

Boa noite!! Você deveria explicar melhor. Imagine que vai inserir uma linha (2)... Sub NaoEntendiNada() With Rows(2) .Copy .Insert End With Application.CutCopyMode = False End Sub Para escolher qualquer linha. Sub ParaQualquerLInha() 'Selecione a linha antes de executar With Selection.EntireRow .Copy .Insert End With Application.CutCopyMode = False End Sub Att

Boa tarde!! Tente assim (#)0000-0000

Boa tarde!! Veja em: http://www.juliobattisti.com.br/accbasico/modulo2/licao11.htm

Bom dia!! Se o arquivo é seu tente lembra, se não solicite ao dono!! esse tipo de coisa é anti ético!! Att

Bom dia!! Você não diz claramente o que quer!!!!..como vamos ajudalo????????

Boa tarde!!! Deveria ter postado sua planilha como recomendado. Só podemos te ajudar se nos ajudar a te ajudar. Deveria ter simulado o resultado de como e que critério a macro copiaria a duplicidade. Tente adaptar...à sua necessidade Formatar Duplicidades com Cores DiferentesSub InteriorColorDuplicados() Dim LLoop As Integer Dim LTestLoop As Integer Dim LClearRange As String Dim Lrows As Integer Dim LRange As String 'Variaveis para a Coluna e Valor Dim LChangedValue As String Dim LTestValue As String 'Cor Inicial Dim sCor As Integer sCor = 1 'Teste em 20 linhas na planilha Lrows = 500 'Atere aqui para mais Linhas LLoop = 2 'Limpa a formatação anterior LClearRange = "C2:C" & Lrows Range(LClearRange).Interior.ColorIndex = xlNone 'Verifica primeiro as 20 linhas na planilha While LLoop <= Lrows 'Define a Coluna C LChangedValue = "C" & CStr(LLoop) If Len(Range(LChangedValue).Value) > 0 Then 'Testa cada valor se são unicos LTestLoop = 2 While LTestLoop <= Lrows If LLoop <> LTestLoop Then LTestValue = "C" & CStr(LTestLoop) 'Se o valor for duplicado If (Range(LChangedValue).Value = Range(LTestValue).Value) Then 'Altera a cor de Fundo da celula Range(LChangedValue).Interior.ColorIndex = sCor Range(LTestValue).Interior.ColorIndex = sCor End If End If LTestLoop = LTestLoop + 1 Wend End If LLoop = LLoop + 1 'Soma + 1 para a proxima Cor sCor = sCor + 1 If sCor = 20 Then sCor = 1 End If Wend End Sub Att..

Boa noite!!! Aperte as teclas Alt + F11 para entrar no Editor VBA. Depois aperte as teclas Alt + i + m e cole o código da postagem anterior. Att..

Boa tarde!!! Tem duas opções uma por VBA e a outra através da Validação de dados. 1º é via VBA:Favor adaptar a sua necessidade.. Sub Limite() 'Limita o número de cacteres na célula If Len(ActiveCell) > 6 Then ActiveCell = Left(ActiveCell, 6) MsgBox "Limite de caracteres Ultrapassado na Célula: " _ & ActiveCell, Address End If End Sub 2º Por Validação de dados Aperte as teclas ISSO PARA TEXTO...Alt + D e V -->Em Permitir selecione ->Comprimento de Texto--> É menor do que -->no campo Máximo digite a quantidade de caractere. Att..

Boa noite!!! Testei e deu certo!!! Faça um teste........... http://www.4shared.com/document/Ln2lUD1o/filtro_automatico.html Att...

Boa noite! Veja se isso pode te ajudar.. Sub teste() Set Nome = CreateObject("Wscript.Network") MsgBox "Nome de Usuário: " & Nome.UserName & vbCr & "Nome do Computador: " & Nome.ComputerName End Sub Att..