jeffsilveira

Você pode criar uma macro para que quando uma condição for satisfeita gerar valor em células específicas. Para isso envie um exemplo de sua planilha para facilitar nosso entendimento. Use sendspace.com. Na planilhe identifique sem fórmulas qual o resultado desejado e onde. No aguardo.

RainBica, isso é possível através de macros. Mas por que você não põe essa fórmula diretamente em B1? =SE(A1="Banco A";"X";"") Abraços.

Mestre Osvaldo, tava sumido hein! Suas fórmulas, como sempre, nos ajudando muito! E de tantas qualidades, ainda é corintiano!!! Parabéns para nós! Abração.

Jota, que bom ter ajudado! Você ainda pode criar uma macro que faz todo o serviço descrito acima com um simples clique de botão ou atalho de teclado! Inclusive pode realizar esses outros procedimentos que você fará manualmente. É a comodidade falando mais alto! Se quiser, disponibilize sua planilha para que possamos montar o código. Abraços.!

Jota, seria melhor se tivesse postado sua planilha ao invés de uma imagem. Assim poderíamos incluir fórmulas diretamente nos devidos locais. Mas ainda assim, vamos lá, por passos: 1- Cole a seguinte fórmula em C1 e arraste para baixo (na coluna C) até a linha onde os dados em B acabam: =SE(CONT.SE(A:A;B1)=1;B1;"") 2- Copie toda a coluna C: clique direito na letra C da coluna e depois em Copiar 3- Clique direito na letra A da coluna A e Colar Especial, escolha Valores 4- Apague a coluna C Pronto! Abraços.

Jota, tem como sim, pode-se usar mais de uma maneira. Para podermos ajudar, no entanto, necessitamos visualizar sua planilha. Upe em sendspace.com e poste o link aqui, explicando na propria planilha como você quer o resultado. No aguardo.

Não entendi o que você quis dizer com 'ficaram vazias mas com linhas'. Você precisa ocultar essas linhas? Se sim, use o código abaixo, acrescentei o comando para ocultar as linhas vazias abaixo das linhas preenchidas. Sub DIVIDIR() Application.ScreenUpdating = False Do Until Range("A2001") = "" Range("A2001:G" & Cells(Rows.Count, 1).End(xlUp).Row).EntireRow.Cut Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Paste Range("A1").Select Loop For i = 1 To Sheets.Count With Sheets(i) .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row & _ ":A" & .Cells(Rows.Count, 1).Row).EntireRow.Hidden = True End With Next Application.ScreenUpdating = True End Sub

Com esse código seu arquivo será dividido em tantas planilhas de 2000 linhas cada, sendo que a última planilha talvez não venha a ter 2000 linhas. Serão tantas planilhas quanto forem necessárias. Sub DIVIDIR() Application.ScreenUpdating = False Do Until Range("A2001") = "" Range("A2001:G" & Cells(Rows.Count, 1).End(xlUp).Row).Cut Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Paste Loop Application.ScreenUpdating = True End Sub No link abaixo usei 1000 linhas no total, dividindo em planilhas de 200 linhas cada e mantendo um cabeçalho na primeira linha: http://www.sendspace.com/file/mv4awh Dê retorno.

Como já disse, uma macro faz isso com eficácia. Mas precisamos de um modelo de sua planilha, não sei como é o layout nem como estão distribuídos os dados. Use informações fictícias, ninguém aqui tem o menor interesse em roubar informações, apenas ajudar.

Cholas, com toda a certeza tem como dividir sua planilha sim. Uma macro resolve o problema. Dê mais detalhes do que você quer e poste um exemplo de sua planilha (use sendspace.com ou similar). Precisamos saber quais os tipos de dados que estão presentes e se há fórmulas que criarão vínculos entre as planilhas e dificultarão o processo. No aguardo.

Se ela ficar rodando o tempo todo você não conseguir trabalhar... Sugiro atribuir um atalho de teclado para rodar ela. Se o valor da célula que altera vier de outra macro, o que você pode fazer é associar essa macro naquela, assim toda vez que alterar o valor essa macro roda junto.

joni10, o procedimento que fiz em macro foi o seguinte: - Copiei a célula variável (A3) e colei somente o valor na célula logo abaixo (A4); - Em B4 e C4 tem uma fórmula SE que verifica se o máximo ou mínimo foram ultrapassados; - Por fim, copiei B4 e C4 e colei em B3 e C3 somente os valores. A macro é essa: Sub MAXMIN() ' SELECIONA E COPIA A CÉLULA QUE VARIA Range("A3").Copy ' COLA EM OUTRO LOCAL O VALOR (E NÃO FÓRMULA) Range("A4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ' COPIA OS VALORES DE B4 E C4 Range("B4:C4").Copy ' COLA OS VALORES EM B3 E B4 Range("B3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ' SELECIONA A CÉLULA INICIAL Range("A3").Select End Sub

Veja o exemplo com um botão para rodar a macro. Vá clicando no botão e veja que os campos máximos e mínimos armazenam seus respectivos limites. Como não sei a oscilação coloquei a fórmula ALEATÓRIOENTRE. http://www.sendspace.com/file/3hvgyu

Já tentou apagar a numeração e numerar novamente?

Parece que o arquivo é somente leitura ou está bloqueado ou corrompido. Tentou 'salvar como'? Ou copiar todo o conteúdo e colar em novo arquivo e depois salvar?