alexsilvamt

Muito obrigado, @DJunqueira , nunca apreendi o Power Query direito, mas vou dedicar uns dias para apreender a sua dica tambem... muito obrigado a você, ao @Patropi e ao @WOz DODs por me ajudarem

@Patropi SENSACIONAL.... muito obrigado pela ajuda. valeu....

Sim, é exatamente a macro para automatizar que necessito, pois são 4665 linhas o que, fazendo manualmente com a função "TRANSPOR" daria 311 ações repetitivas....

Senhores... Preciso de uma ajuda para transformar os dados de uma coluna em linhas, da seguinte forma. Tenho uma planilha com dados no intervalo A1:A4665 Preciso copiar os dados do intervalo A1:A15 e colar transposto em linha no intervalo C1:Q1, após delete esses dados e torne a repetir o processo de copia A1:A15 e depois cola transposto mas na linha logo abaixo da primeira, ou seja, intervalo C2:Q2, e assim sucessivamente ate o termino dos dados da coluna 1. Segue modelo de planilha em anexo. Desde ja agradeço a ajuda. Transforma.xlsx

Perfeito.... muito obrigado, Décio.

@deciog Valeu Décio... muito obrigado pela ajuda... desse jeito da mensagem de erro e não consigo localizar onde esta o erro...mesmo assim, muito obrigado pela ajuda... Se voce puder dar uma olhada, segue a planilha para você testar a fórmula. Grato pela atenção. Ajuda.xlsx

Preciso de ajuda com a função INDICE ou CORRESP (ou qualquer outra solução... Dentro de uma planilha (segue em anexo) tenho uma tabela com dados no intervalo A40:E46.. Na célula E19 tenho um valor próximo dos valores constantes no intervalo E40:E76... Gostaria de uma formula na célula F19, que procurasse o valor mais próximo da célula E19, no intervalo E40:E76, e me retornasse o valor constante na coluna A, desta linha. Ex: na planilha encaminhada a Célula E19= 137,63 a formula encontrará na célula E57de 138,00 e retornará o valor da célula A57=5.412,8 Ajuda.xlsx

Como na origem, os dados estão no intervalos ("F2:F76"), gostaria que os dados fosse colados no destino, tambem a partir da linha 2 de cada coluna, visto que a inha 1 é cabeçalho.. atualmente a macro esta colando, mas a partir da linha 1 no destino... Qual código que tenho que alterar paraa conseguir isso???

Faltou citar que no range de origem, os dados copiados são funções matemática (formulas), sendo que na celula de destino a ser copiados, o dados tem que ser colados como numero, pois senão, retornam msg de erro, face a referencia de origem

Preciso de uma ajuda para construir uma macro com os seguintes parâmetros: O arquivo tem 2 planilhas, nominadas de "Indice" e "Historico" Preciso que a macro execute a cada 1 minuto, copiando o intervalo F2:F76 (da plan "Indice"), para a plan "Historico", na coluna C2:C76...na proxima vez que copiar, deverá colar na coluna subsequente, ou seja (D2:D76), e assim por diante... Tentei com o seguinte código: Public dTime As Date Public st As Date Sub Copia() If Time > #5:31:00 PM# Then Exit Sub dTime = Now() + TimeValue("00:01:00") Application.OnTime dTime, "Copia" ThisWorkbook.Sheets("Historico").Cells(ThisWorkbook.Sheets("Historico").Columns.Count, 1).Resize(1, 1).Value = _ Array(Time, ThisWorkbook.Sheets("Indice").Range("F2:F76")).Copy ThisWorkbook.Sheets("Indice").Buttons("Botão 1").Caption = "PARAR" End Sub Sub IniciaParaReinicia() On Error Resume Next Application.OnTime dTime, "Copia", , False Application.OnTime st, "Copia", , False If ActiveSheet.Buttons(Application.Caller).Caption = "PARAR" Then ActiveSheet.Buttons(Application.Caller).Caption = "REINICIAR" ElseIf InStr(ActiveSheet.Buttons(Application.Caller).Caption, "INICIAR") > 0 Then ActiveSheet.Buttons(Application.Caller).Caption = "PARAR" Application.OnTime Application.Ceiling(Time, "00:01:00"), "Copia" End If End Sub

Tenho na coluna "C", dados atualizados a cada 15 minutos na celula imediatamente abaixo da ultima preenchida (ex: as 9h00, celula C1; 9:15, celula C2, etc) atualmente calculo a media de todo o intervalo utilizando a seguinte formula: =MÉDIA(DESLOC(C2;0;0;CONT.VALORES($A:$A)-1;1)) Gostaria de calcular uma média especifica considerando apenas os 3 últimos valores da coluna (e não de todo a coluna). Ex: se no intervalo C2:C30, tiver dados, a media será somente somente do intervalo C28:C30; A partir do momento que a celula C31 receber dados, a média passará a ser do intervalo C29:C31, e assim sucessivamente. Alguém saberia alguma forma de conseguir isso?

@Patropi Muito obrigado.... Não foi esquecimento não... foi completa ignorância, pois é a primeira vez que utilizo o fórum...

Osvaldo, Muito obrigado pela ajuda. O código esta rodando maravilhosamente bem... Abraços, Alex

@osvaldomp Foi exatamente o que aconteceu, eu copie seu código e atualizei na planilha que utilizo em razão da mesma ter links DDE.... xinguei bastante a Microsoft achando que era bug do excel (...rs...) atualizei os código e amanha faço o feed final... Por hora, muito obrigado pela atenção.

Osvaldo, Atualizando... em relação ao erro de acionamento do botão da macro, eu refiz o link manualmente, e aparentemente esta funcionando.... deve ter sido algum "bug" não explicável (...rs...) , mas que aparentemente voltou a funcionar normalmente com o procedimento de reconstrução. Vou deixar correr a execução até as 17h00 para verificar alguma inconsistência. Obrigado

Osvaldo, Esta "quase" funcionando... Quando clicamos no botão para acionar a macro aparece a mensagem:"Não é possível executar a macro "nome-do_aquivo!PararReiniciar". Talvez ela não esteja disponível nesta pasta de trabalho ou todas as macro estejam desabilitadas. Apesar da mensagem acima, a macro entra em funcionamento, de acordo com os parâmetros estabelecidos. Dito isso, pergunto: Seria possível substituir o Botão de Parar/reiniciar por uma uma ordem fixa de encerramento da macro em um horário específico, ou seja: As 9h15:00 ela iniciar a rotina de copia, com cópias a cada x minutos; As 17h00:00 ela interrompe o funcionamento da macro. Obrigado pela ajuda.

Osvaldo, Muito bom o seu código. Abaixo segue o feedback da execução dele hoje. As 8:45 eu acionei o botão iniciar, sendo que a macro fez cópia duplicada dos registro; As 9:00 a macro executou (automaticamente) novamente copiando os registro de forma duplicada.... partir das 9:15 (horário programado para ser o inicio da execução) as cópias começaram a ser feita de forma triplicada.... Abaixo segue todo histórico da execução da macro. PS - Os registros copiados estão corretos, apenas ocorrendo loop na execução. Não houve intervenção do usuário após o inicio da execução da macro. Hora coluna L75 coluna M75 08:45:00 -91.754 -229.644 08:45:00 -91.754 -229.644 09:00:00 -91.754 -230.780 09:00:00 -91.752 -230.780 09:15:00 -54.926 -214.530 09:15:00 -54.926 -214.530 09:15:00 -54.926 -214.530 09:30:00 -117.799 -219.238 09:30:00 -117.799 -219.234 09:30:00 -117.799 -219.234 09:45:01 -198.115 -222.426 09:45:01 -198.336 -222.437 09:45:01 -198.336 -222.437 10:00:01 -219.713 -224.029 10:00:01 -219.701 -224.029 10:00:01 -219.701 -224.029 10:15:01 -254.222 -225.327 10:15:01 -254.395 -225.336 10:15:01 -254.395 -225.336 10:30:01 -355.299 -229.039 10:30:01 -355.812 -229.065 10:30:01 -355.812 -229.065 10:45:01 -444.138 -232.930 10:45:01 -444.146 -232.930 10:45:01 -444.146 -232.930 11:00:01 -448.991 -232.452 11:00:01 -448.985 -232.451 11:00:01 -448.985 -232.451 11:15:01 -403.431 -230.694 11:15:01 -403.427 -230.694 11:15:01 -403.427 -230.694

Osvaldo, muito obrigado pela ajuda... Só mais um ajuste... caso eu queira copiar alem da celula L75, copiar tambem a M75, qual linha do codigo teria que alterar? Tem como inverter para o horario (time) ser colocado a esquerda dos dados copiados? (coluna A (time), coluna B (copia L75) e coluna C(cópia M75)

Segue a planilha que estou montando... Deesde já agradeço a ajuda. Teste.zip

Preciso de uma ajuda para construir uma macro para copiar dados de uma celula para outra planilha. Tenho uma planilha de denominada "Dados", onde na celula "L75" é o total de uma serie de dados da coluna "L". Quero que a macro copie essa celula (L75), para a planilha dennomidada "Historico", a coloque na celula A1... na proxima ve\, devera colocar o dado na A2, de forma a construir um historico dos valores copiados. Quero tambem que esta macro seja executada as 09:15:00 , depois a cada 15 minutos. Construi o codigo abaixo, que funciona no modulo "Sub Gravar", mas se executa o "Sub timer", da mensagem de erro "Não é possivel gravar a macro "c:\nome do arquivo". Talvez ela nao esteja disponiivel nesta pasta de trabalho ou todas as macros estejam desabilitadas". Alguem poderia me ajudar a corrigir o que esta errado? Private Sub Gravar() Dim linha As Long Dim WP2 As Worksheet Dim WP1 As Worksheet Set WP1 = Sheets("Historico") Set WP2 = Sheets("Dados") linha = WP2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row WP2.Cells(linha, 1).Value = WP1.Range("L75").Value Call timer Call timer1 End Sub Private Sub timer() Application.OnTime TimeValue("09:15:00"), "Gravar" End Sub Private Sub timer1() Application.OnTime TimeValue("09:15:00") + TimeValue("00:15:00"), "Gravar" End Sub