Pesquisa resultou em 1337 ocorrências

Voltar à pesquisa avançada

BIANCHINI escreveu: ... sem usar VBA, seria possível lançar dados em uma unica célula e esses dados irem acumulando-se em uma coluna?


Sem VBA eu pago a bacalhoada ! ;)

Me parece que você quer armazenar dados recebidos via link DDL, ou similar.
Só com macro. :)

Uma solução é você remover linhas e colunas vazias acima e à esquerda da Tabela. Assim, aumente a altura da linha 5 o suficiente para acomodar os botões existentes na linha 1 ainda deixar visíveis os cabeçalhos de colunas, arraste os botões da linha 1 para a linha 5, em seguida exclua as linhas vazi...

Re: Ajuda com alteração de código

por osvaldomp ¦ 19 Set 2019 às 13:52 ¦ Fórum: Macros e VBA ¦ Tópico: Ajuda com alteração de código ¦ Respostas: 4 ¦ Exibições: 19

... caso elas sejam funções ... Isso você não informou antes. ;) Me parece que o evento indicado é o Calculate no lugar do Change . Mas você precisa avaliar se a macro Atualiza deverá rodar sempre que a planilha for recalculada ou só deverá rodar sob condições, por exemplo para determinados conteúd...

Uma ideia para simplificar as fórmulas: na planilha "1611", por exemplo na célula V30, coloque a fórmula para efetuar a contagem/soma que você precisa, em seguida coloque uma cópia da fórmula abaixo em AN10 da planilha "Resumo" e arraste para baixo. =INDIRETO("'"&A1...

Re: Ajuda com alteração de código

por osvaldomp ¦ 19 Set 2019 às 13:25 ¦ Fórum: Macros e VBA ¦ Tópico: Ajuda com alteração de código ¦ Respostas: 4 ¦ Exibições: 19

Experimente:

Código: Selecionar todosIf Not Intersect(Target, Range("F45,I45")) Is Nothing Then

Re: Informar a o dia da semana correspondente.  [resolvido]

por osvaldomp ¦ 19 Set 2019 às 12:23 ¦ Fórum: Macros e VBA ¦ Tópico: Informar a o dia da semana correspondente. ¦ Respostas: 7 ¦ Exibições: 57

Olá, Geneci.

Veja se atende.

Código: Selecionar todos=TEXTO(A1;"dd/mm/aaaa")&" é a(o) "&PROC(DIA(A1); {1\8\15\22\29}; {"primeira(o)"\"segunda(o)"\"terceira(o)"\"quarta(o)"\"quinta(o)"})&TEXTO(A1; " dddd")&" do mês"

Re: Copiar e colar em outra aba MACRO  [resolvido]

por osvaldomp ¦ 18 Set 2019 às 19:14 ¦ Fórum: Macros e VBA ¦ Tópico: Copiar e colar em outra aba MACRO ¦ Respostas: 2 ¦ Exibições: 21

Código: Selecionar todosSub ReplicaDados()
 Dim rng As Range, i As Long
  For Each rng In Sheets("Estudo demanda").Range("M33,E60,K60")
   Sheets("TESTE").Cells(Rows.Count, i + 1).End(3)(2) = rng.Value: i = i + 1
  Next rng
End Sub

Re: Transpor dados por países

por osvaldomp ¦ 18 Set 2019 às 12:48 ¦ Fórum: Macros e VBA ¦ Tópico: Transpor dados por países ¦ Respostas: 3 ¦ Exibições: 26

Segue uma solução via macro. Veja se atende. Instale uma cópia do código abaixo em um módulo comum, assim: 1. copie o código daqui 2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA 3. no menu do editor / Inserir / Módulo 4. cole o código na janela em branco q...

Re: Classificar e filtrar planilha protegida

por osvaldomp ¦ 18 Set 2019 às 11:59 ¦ Fórum: Fórmulas e Funções ¦ Tópico: Classificar e filtrar planilha protegida ¦ Respostas: 2 ¦ Exibições: 16

Pessoa escreveu: Proteger marcando a permissão de usar auto filtro só resolve a filtragem, mas classificar não consigo.


Se além de marcar a permissão Usar AutoFiltro for marcada também a permissão Classificar ?

Re: VBA - não reconhece campo como número

por osvaldomp ¦ 18 Set 2019 às 10:17 ¦ Fórum: Macros e VBA ¦ Tópico: VBA - não reconhece campo como número ¦ Respostas: 3 ¦ Exibições: 43

Estou começando a aprender VBA, por isso ainda tenho dúvidas básicas. 1. abra o arquivo, tecle Alt+F11 e aplique duplo clique no nome do Form Abastecimentos 2. aplique duplo clique no botão Salvar e coloque o trecho abaixo no lugar do trecho correspondente existente ... Planilha8.Cells(linha, 2).Va...

Re: Substituir Texto e Calcular  [resolvido]

por osvaldomp ¦ 17 Set 2019 às 15:36 ¦ Fórum: Fórmulas e Funções ¦ Tópico: Substituir Texto e Calcular ¦ Respostas: 8 ¦ Exibições: 26

Experimente:

1. selecione C2 / menu Fórmulas / Gerenciador de Nomes / Novo / Nome: result
Refere-se a: =AVALIAR(SUBSTITUIR(B2;"d";A2)) / OK / Fechar

2. em C2 coloque =result / Enter

Re: Como criar esse efeito

por osvaldomp ¦ 16 Set 2019 às 21:45 ¦ Fórum: Gráficos e Dashboards ¦ Tópico: Como criar esse efeito ¦ Respostas: 1 ¦ Exibições: 27

Trata-se de Formatação Condicional.

Para acessar selecione N19:N35 / menu Página Inicial / Formatação Condicional / Gerenciar Regras / selecione Barra de Dados / clique em Editar Regra

Re: Somar Valores pulando linhas de 20 e 20

por osvaldomp ¦ 15 Set 2019 às 12:07 ¦ Fórum: Fórmulas e Funções ¦ Tópico: Somar Valores pulando linhas de 20 e 20 ¦ Respostas: 2 ¦ Exibições: 35

Cole uma cópia da fórmula abaixo em qualquer célula vazia e arraste para baixo.

Código: Selecionar todos=SOMA(DESLOC(B$1;(LIN(B1)-1)*20;;20))

Re: Cursor para direita e para baixo.  [resolvido]

por osvaldomp ¦ 14 Set 2019 às 13:51 ¦ Fórum: Macros e VBA ¦ Tópico: Cursor para direita e para baixo. ¦ Respostas: 4 ¦ Exibições: 50

Olá, Geneci.

Veja no arquivo anexo. Instalei os dois códigos no módulo de EstaPasta_de_trabalho.

Para testar, após abrir este arquivo, abra também um outro arquivo Excel, pode ser um arquivo vazio. Em seguida ative os dois arquivos alternadamente. Bastar apertar Enter para testar.

Re: Minha Macro está dando erro.

por osvaldomp ¦ 13 Set 2019 às 21:39 ¦ Fórum: Macros e VBA ¦ Tópico: Minha Macro está dando erro. ¦ Respostas: 1 ¦ Exibições: 32

O erro ocorre porque há um comando no código para excluir células, no entanto a planilha está protegida.

Ou coloque um comando para desproteger a planilha antes daquela operação e voltar a protegê-la depois ou pesquise sobre o uso do comando UserInterFaceOnly.

Re: Cursor para direita e para baixo.  [resolvido]

por osvaldomp ¦ 13 Set 2019 às 20:00 ¦ Fórum: Macros e VBA ¦ Tópico: Cursor para direita e para baixo. ¦ Respostas: 4 ¦ Exibições: 50

Olá, Geneci. Cole uma cópia dos códigos abaixo no módulo de EstaPasta_de_trabalho . Private Sub Workbook_Activate() Application.MoveAfterReturn = True Application.MoveAfterReturnDirection = xlToRight End Sub Private Sub Workbook_Deactivate() Application.MoveAfterReturn = True Application.MoveAfterRe...

Re: Extrair partes de um texto  [resolvido]

por osvaldomp ¦ 12 Set 2019 às 22:43 ¦ Fórum: Fórmulas e Funções ¦ Tópico: Extrair partes de um texto ¦ Respostas: 3 ¦ Exibições: 41

Experimente: Se não houver caracteres após o último parêntese =ARRUMAR(DIREITA(SUBSTITUIR(SUBSTITUIR(D7; ")";"");"(";REPT(" ";99));99))+0 Se houver ou não caracteres após o último parêntese =ARRUMAR(ESQUERDA(DIREITA(SUBSTITUIR(SUBSTITUIR("()"&D7;...

Re: VBA - não reconhece campo como número

por osvaldomp ¦ 11 Set 2019 às 16:39 ¦ Fórum: Macros e VBA ¦ Tópico: VBA - não reconhece campo como número ¦ Respostas: 3 ¦ Exibições: 43

Acrescente Cdbl para extrair números dos campos numéricos, conforme exemplo abaixo.
CDbl(txt_valor.Value)

dica - não mescle células, pois células mescladas são inúteis, desnecessárias e podem provocar erros em fórmulas e em macros.

Re: Erro lógico no Do While  [resolvido]

por osvaldomp ¦ 11 Set 2019 às 11:09 ¦ Fórum: Macros e VBA ¦ Tópico: Erro lógico no Do While ¦ Respostas: 2 ¦ Exibições: 53

Coloquei pra depurar e ele nem está passando pelo loop, se puderem me ajudar, agradeço! 1. não passa pelo Loop porque você declarou v como Integer e atribuiu a essa variável o valor 0,1, e aí a variável assume o valor zero que é a parte inteira do valor a ela atribuído, e como na equação " fun...

Re: Pular célula preenchida para a próxima  [resolvido]

por osvaldomp ¦ 10 Set 2019 às 20:10 ¦ Fórum: Macros e VBA ¦ Tópico: Pular célula preenchida para a próxima ¦ Respostas: 3 ¦ Exibições: 36

Experimente:

Código: Selecionar todosSub Teste()
 [B6].Copy IIf([A60] = "", [A60], Cells(Rows.Count, 1).End(3)(2))
End Sub