-
Posts
4 -
Cadastrado em
-
Última visita
Reputação
0-
Macro para valor de celula
thiago_hhp respondeu ao tópico de thiago_hhp em Microsoft Office e similares
@osvaldomp Perfeito Osvaldo!!!! Funcionou exatamente como eu precisava. Vou incluir esse código no resto da macro. Muito Obrigado! -
Macro para valor de celula
thiago_hhp respondeu ao tópico de thiago_hhp em Microsoft Office e similares
@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. -
Macro para valor de celula
thiago_hhp respondeu ao tópico de thiago_hhp em Microsoft Office e similares
@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, -
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