WBGalvao

Boa tarde a todos do fórum Preciso da ajuda de vocês. Eu tenho uma planilha com: Nome do livro, Data, NFiscal, Quantidade (entrada de livros), etc. Na mesma pasta de trabalho, tenho uma planilha somente com o Nome dos livros. Criei um botão para copiar uma nova planilha, de modo que ao chegar um livro novo eu possa inserir os dados. Eu gostaria de adicionar a esse botão de criar uma nova planilha, um código que ele pegasse uma célula (ex. A2) e colasse o conteúdo dessa célula no fim da planilha que tenho somente com o Nome dos livros e assim sucessivamente, mas que ficasse vinculado a célula, porque se eu alterar o nome do livro na planilha criada tem que alterar na planilha com o Nome dos livros. Então é isso, ao criar uma nova planilha a célula A2 dessa nova planilha tem que automaticamente ser copiada para a última linha da planilha onde tem o Nome dos livros. É a mesma coisa de usar o sinal de igual (=) e referenciar a célula, porém tem que ser em VBA.

Boa tarde aos membros do Forum ScriptBrasil Estou iniciando em VBA e trabalho em uma editora. Meu pedido de ajuda é o seguinte: Tenho uma pasta de trabalho com várias planilhas, cada planilha é um livro e dentro tenho as seguintes informações: nome do livro, data de entrada, nº da NFiscal, quantidade, nº requisição, De (nome da pessoa que autorizou a saída) Para (nome da pessoa ou livraria para quem foi vendido o livro), quantidade de saída, saldo em estoque. Paralelo a todas as planilhas de livros, eu tenho a planilha Resumo, que é a junção de todos os nomes de livros, saldo em estoque e valor. Por já existirem várias planilhas, gostaria que quando eu copiasse uma planilha e alterasse seu nome, automaticamente esse nome e saldo em estoque já fossem inclusos na planilha Resumo. Criei o seguinte código: Sub Teste() Sheets("50 Sugestões").Select Sheets("50 Sugestões").Copy Before:=Sheets(3) Sheets("50 Sugestões (2)").Select Range("A2").Select Selection.Copy Sheets("Resumo").Select Range("A105").Select ActiveSheet.Paste ActiveCell.FormulaR1C1 = "='50 Sugestões (2)'!R[-103]C" ActiveCell.ClearFormats End Sub é mais ou menos isso, eu quero que seja copiado de uma planilha já existente (por ex. 50 sugestões, que é um livro), sem formato. No Range("A2") está o nome do livro, no Range ("J2") o saldo em estoque. Eu tentei colar os dados na Range A105(nome) e C105(saldo em estoque) da planilha Resumo, mas se eu rodar o código, vai colar sempre na mesma célula A105 e precisaria ser colado também na C105(saldo em estoque), ou seja, células alternadas e pular pra célula abaixo. Preciso que fique em ordem alfabética (todas as planilhas, menos a planilha Resumo, que quero deixar como inicial), e os dados dentro da planilha Resumo, que vai receber os dados automaticamente.