Este forum é destinado a tirar dúvidas, compartilhar conhecimento e realizar debates relacionados ao Microsoft Excel.
Antes de participar LEIA AS REGRAS e depois APRESENTE-SE aos demais colegas.
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?
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...
... 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...
Experimente:
If Not Intersect(Target, Range("F45,I45")) Is Nothing ThenOlá, Geneci.
Veja se atende.
=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"
Sub 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 SubSegue 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...
Pessoa escreveu: Proteger marcando a permissão de usar auto filtro só resolve a filtragem, mas classificar não consigo.
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...
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
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
Cole uma cópia da fórmula abaixo em qualquer célula vazia e arraste para baixo.
=SOMA(DESLOC(B$1;(LIN(B1)-1)*20;;20))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.
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.
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...
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;...
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.
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...
Experimente:
Sub Teste()
[B6].Copy IIf([A60] = "", [A60], Cells(Rows.Count, 1).End(3)(2))
End Sub