jeffsilveira

Divida em colunas e edite sua marca d'água (duplique o texto/imagem em um editor de imagens qualquer). teste.docx

De: If ActiveCell.Address = "$I$" & linha Then Para: If ActiveCell = Cells(linha, 9) Then

Tente substituir: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Por: Private Sub Worksheet_Calculate() E: If Target.Address = "$I$" & linha Then Por: If ActiveCell.Address = "$I$" & linha Then Já tentou isso?

Wesley, tenho esse arquivo de contagem regressiva. Talvez se na macro você buscar pelo tempo da música e adaptar... tenta aí! http://www.sendspace.com/file/s0x55p Abração.

Wesley, tentou usar o comando Call para chamar a sub do botão? Tiro no escuro, mas numa dessas funciona.

Zinho, estou partindo do princípio de que Max seja o dono e esqueceu sua senha. Senão concordo contigo, além de antiético é quebra de privacidade alheia! Valeu!

Max, seu arquivo foi criptografado. Achei que era senha normal ou via vba, mas nesse caso o problema é sério. Até onde sei não há maneira de recuperar o arquivo a não ser tendo a senha em mãos. Para criptografar um arquivo no excel 2007: Clique no botão do Office, aponte o mouse em Preparar e em seguida clique em Criptografar Documento. Defina a senha e salve o documento. Com a perda da senha não há maneira de recuperá-la. Dessa vez não consigo ajudar... desculpe! E boa sorte!

Max, utilize um site como www.sendspace.com. No site clique em browse, selecione seu arquivo e clique em upload. Após o carregamento, clique no 1º 'Copy Link' e cole o link aqui no fórum. No aguardo.

Max, aparentemente deve ser uma InputBox acionada por uma macro em Workbook Open. Tente o seguinte: Abra uma planilha nova no excel e tecle Alt F11 para abrir o VBA. Volte para as pastas do windows (sem fechar o vba e o excel), procure sua planilha e clique para abri-la. Com o arquivo aberto (e a inputbox lá), volte ao VBA e clique 2x em EstaPasta_de_trabalho (no menu à esquerda). Se não houver código ali, tente nos códigos de cada aba. Procure um comando parecido com: If InputBox(...) <> "senha" Then Application.Quit End If O que estiver entre aspas é a senha do arquivo. Você pode excluir todo o comando até o End If para que não surja mais isso. Se não for isso, envie a planilha para que possamos visualizá-la. Abraços.

Olá! seja bem vindo. Dá pra fazer isso via macro. Abra a planilha, tecle Alt F11 para entrar no VBA. No menu à esquerda dê clique duplo em EstaPasta_de_trabalho. Na janela em branco que abrir cole o código abaixo. Tecle Alt Q para fechar o VBA e voltar ao excel. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheets("aba").Range("A1") = Now End Sub Substitua aba pelo nome da aba que vai receber a data. Substitua A1 pela célula onde você quer que fique a data. Formate-a para a maneira que você quer visualizar: data e hora, só data, etc. Lembre-se de salvar a planilha no formato xlsm. Esse código faz com que ao salvar a planilha a data e hora atuais sejam inseridas na célula. Assim, ao ser modificada a planilha data a intervenção. Abraços.

Simara, use o código abaixo que vai copiar tudo para uma aba só. As abas existentes, de gráficos e outras serão todas excluídas e a planilha ficará com uma aba apenas. Antes de executar a macro salve o arquivo em Excel 2007 ou superior, senão não haverá número de linhas suficientes e a macro dará erro. Dê retorno. Sub juntarabas() ' desabilita atualização da tela Application.ScreenUpdating = False ' desabilita mensagens Application.DisplayAlerts = False ' cria nova aba e nomeia Sheets.Add Before:=Sheets(1) ActiveSheet.Name = "RESUMO GERAL" ' copia cabeçalho da aba seguinte ActiveSheet.Next.Select Range("A1:A6").EntireRow.Copy ' cola na aba resumo ActiveSheet.Previous.Select Rows("1:1").Insert Shift:=xlDown ' dimensiona variável Dim LIN As Integer ' copia o conteúdo da aba seguinte e apaga a aba Do Sheets("RESUMO GERAL").Select ' define a primeira linha vazia da aba resumo LIN = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row + 1 ' vai para a aba seguinte ActiveSheet.Next.Select 'executa somente se a aba tiver nome numérico (senão deleta) If Not IsNumeric(ActiveSheet.Name) Then GoTo ok ' copia o conteúdo necessário Range("A7:A" & Cells(Rows.Count, 1).End(xlUp).Row).EntireRow.Copy ' volta para a aba inicial e cola ActiveSheet.Previous.Select Rows(LIN).Insert Shift:=xlDown ' vai para a aba copiada e deleta ela ActiveSheet.Next.Select ok: ActiveSheet.Delete ' limpa a variável LIN LIN = 0 ' repete o procedimento até haver apenas 1 aba Loop Until Worksheets.Count = 1 'arruma Columns("A:A").ColumnWidth = 7.29 Columns("B:B").ColumnWidth = 8.71 Columns("C:C").ColumnWidth = 25.86 Columns("D:D").ColumnWidth = 13.71 Columns("E:E").ColumnWidth = 9.86 Columns("F:F").ColumnWidth = 8.71 Columns("G:G").ColumnWidth = 6 Columns("H:H").ColumnWidth = 10.14 Columns("I:I").ColumnWidth = 9.86 Columns("J:J").ColumnWidth = 6.29 Columns("K:K").ColumnWidth = 5.57 Columns("L:L").ColumnWidth = 12.57 Columns("M:M").ColumnWidth = 5.57 Columns("N:N").ColumnWidth = 18.43 Columns("O:O").ColumnWidth = 2.29 Columns("P:P").ColumnWidth = 10.29 Application.CutCopyMode = False ' habilita atualização da tela Application.ScreenUpdating = False ' habilita mensagens Application.DisplayAlerts = False Range("A1").Select End Sub

Simara, preciso tirar algumas dúvidas: - Todas as abas de sua planilha possui um mesmo cabeçalho. Eles devem ser copiados? Ou somente da linha 7 para baixo? - Ao final de cada aba há vários totais. Eles devem ser copiados? Ou você terá um só no final? - As planilhas serão copiadas uma abaixo a outra, certo? Você quer que fique igual à aba geral? - As abas de gráficos serão ignoradas. Responda as questões acima para que eu possa ajudá-la da melhor forma possível. No aguardo.

Rapaz, confesso que não entendi direito sua explicação. A princípio sua dúvida aparentava ser simples. Faça assim: veja a planilha que fiz para simples inserção de aniversários. Verifique a macro e tente adaptar a parte de buscar a última linha preenchida. A macro está fácil e bem explicada. http://www.sendspace.com/file/y0umvh Dê retorno.

O comando para buscar a última linha preenchida na coluna A, por exemplo, é: Cells(Rows.Count,1).End(xlUp) Onde A=1, B=2, C=3, etc. Para a primeira em branco após a última preenchida, usa-se offset: Cells(Rows.Count,1).End(xlUp).Offset(1,0) Para usar o número da linha em questão, basta acrescentar no final .Row no final de cada comando acima. Isso é útil quando associado a um For, por exemplo. Se não for isso, poste um exemplo de sua planilha com dados fictícios. Use sendspace.com. Dê retorno.

Raphael, tente usar filtro avançado. Pelo Excel 2007 faça assim: Vá na guia Dados e clique em Avançado, ao lado do ícone do Filtro. Na janela que abrir, selecione Copiar para outro local. Em Intervalo da Lista digite $A:$A (coluna dos nomes), critérios deixe em branco, Copiar para digite $E$1 (coluna destino) e marque Somente registros exclusivos. Dê ok e pronto, surgirá uma lista com uma vez cada nome. Abraços.