jeffsilveira

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.

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?