Ir ao conteúdo
  • Cadastre-se

thiago_hhp

Membro Júnior
  • Posts

    4
  • Cadastrado em

  • Última visita

Reputação

0
  1. @osvaldomp Perfeito Osvaldo!!!! Funcionou exatamente como eu precisava. Vou incluir esse código no resto da macro. Muito Obrigado!
  2. @osvaldomp Osvaldo, Segue como ficou meu código até agora. Sub NOVA_ABA() ' ' NOVA_ABA Macro ' ' Dim PLANILHA, NOME, TITULO As String PLANILHA = ActiveSheet.Name NOME = Range("A" & ActiveSheet.Rows.Count).End(xlUp).Offset(0, 0).Value TITULO = Range("A" & ActiveSheet.Rows.Count).End(xlUp).Offset(0, 1).Value Dim NumLim NumLim = 4 Sheets("1").Select Sheets("1").Copy After:=Sheets(Sheets.Count) Sheets("1 (2)").Select Sheets("1 (2)").Name = NOME Range("B1").Select ActiveCell.FormulaR1C1 = "=PLANILHA!B" & NumLim Range("B2").Select ActiveSheet.Hyperlinks.Add Anchor:= _ Sheets(PLANILHA).Range("A" & ActiveSheet.Rows.Count).End(xlUp).Offset(0, 0), Address:="", _ SubAddress:="'" & ActiveSheet.Name _ & "'!A1", TextToDisplay:=ActiveSheet.Name Sheets("PLANILHA").Select Range("A" & ActiveSheet.Rows.Count).End(xlUp).Offset(0, 1).Select End Sub Eu removi a parte do código que adiciona a linha para não ficar tão grande. Aquela variavel TITULO era a que eu estava utilizado antes de tentar a formula que eu citei anteriormente. Ela dá certo, porém eu preciso escrever o valor na célula antes de rodar essa parte da macro. A minha intenção é rodar a macro inteira para depois inserir o valor na célula da planilha PLANILHA e o mesmo aparecer na como título na aba criada.
  3. @osvaldomp Muito obrigado pela resposta Osvaldo. Acredito que seja esse o caminho. Porém encontrei algumas dificuldades. Quando eu defino uma linha como variável como por exemplo: Dim NumLim NumLim = 2 A formula que aparece depois da macro executada é a seguinte: =PLANILHA!'B2', ou seja, o B2 aparece entre aspas simples e não busca o valor na célula B2. Por acaso existe como eu definir na variável NumLim um código que buscasse a celula B ao lado da ultima celula A preenchida? Eu estou tentando algo como: Dim NumLim NumLim = Range("A" & ActiveSheet.Rows.Count).End(xlUp).Offset(0, 1).Value Quando eu faço isso formula na célula fica =PLANILHA!B e não aparece nenhuma referencia de linha. O ideal seria que eu não precisasse definir previamente a linha que será preenchida na variável NumLim pois a pessoa que vai utilizar a planilha irá adicionar diversas na planilha para incluir novos dados. Obrigado,
  4. Boa tarde! Gostaria de uma ajuda com uma macro que estou tentando criar. Estou montando uma planilha que faz o seguinte: 1 - Cria uma linha na planinha PLANILHA após o ultimo valor preenchido na coluna A. 2 - Define um valor sequencial para a célula A da linha criada. 3 - Cria uma planilha, a qual é movida para o final e é renomeada com o mesmo valor do item 2. 4 - Transforma o valor do item 2 para um hiperlink da planilha criada. 5 - Insere um titulo na planilha criada na célula B1. 6 - Retorna para a planilha PLANILHA para que seja digitado um valor na célula B da linha criada. O meu problema está no item 5. Eu gostaria que o titulo que fosse criado fosse o mesmo valor que será inserido no item 6. Eu pensei em utilizar algo relacionado à: ActiveCell.FormulaR1C1 = "=PLANILHA!R[3]C" Porém quando eu repito a macro ela não sai do lugar. Ou seja, fica restrita à formula definida. Eu consegui fazer a macro funcionar quebrando a macro em duas. Uma para inserir a linha aí o usuário escreve o valor que será título na planilha criada. E outra para copiar A planilha definindo o valor digitado como título. O problema é que eu tenho certeza que na execução o usuário terá problemas com esses passos, então seria melhor que a macro fosse uma só. Espero ter sido claro. Obrigado

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!