Ir ao conteúdo
  • Cadastre-se

Visual Basic - Selecionar planilha por valor de uma celula


Ir à solução Resolvido por Visitante,

Posts recomendados

Bom dia pessoal

Eu estou com um problema em Visual Basic que apesar de ser simples estou empacado um dia inteiro em cima disto

 

Gostaria de selecionar uma planilha cujo nome é dado pelo valor de uma celula

 

Por exemplo, na célula L6 da planilha Input (eu estou com ela aberta) esta escrito Calcul

Gostaria de entrar na planilha Calcul e na célula A1 escrever "Done"

 

E através de uma macro eu quero selecionar uma planilha deste arquivo deste arquivo que possui o nome Calcul, porém gostaria de fazer isto atribuindo o valor da célula L6, pois o arquivo é repleto de planilhas, logo alterando o valor da célula L6 ele faz o algoritimo para outras planilhas tambem. Mas não estou conseguindo. Exemplo:

 

Sheets ("&L6&") .Select

Range ("A1") .Select

ActiveCell.formulaR1C1 = "Done"

 

O problema esta na frase em negrito acima onde não consigo selecionar o valor da célula L6 para ativar a planilha cujo o nome é o valor da célula L6.

Alguém poderia por favor me ajudar?

 

Obrigado

 

Gilberto

 

 

 

Link para o comentário
Compartilhar em outros sites

Obrigado Osvaldo

Eu preciso selecionar antes de colar de qualquer forma, foi de grande ajuda porém deu erro de compilaçao

 

Sheets (("L6").Value).Select

 

Isto foi o que eu tentei e da erro

Sei que é simples mas não esta dando certo

Você saberia me dizer a forma correta?

 

Obrigado,

Gilberto


O que eu devo fazer segue aqui

Copiar e colar

 

Sheets ("Input").Select

Range ("A21:D21).Select

Range (Selection, Selection.End(x1Donw)).Select

Selection.Copy

Sheets ("L6".Value).Select

Range ("A4").Select

ActiveSheet.Paste

 

E o problema esta ali no negrito

Acho que agora ficou melhor para explicar

Att,

Link para o comentário
Compartilhar em outros sites

  • Solução

 

Eu preciso selecionar antes de colar ...

 

 

Fala, Gilberto.

Não é necessário selecionar.

Experimente este abaixo.

Sub CopiaCola()  Application.ScreenUpdating = False  With Sheets("Input")    .Range(.Range("A21:D21"), .Range("A21:D21").End(xlDown)).Copy    Sheets(Sheets("Input").[L6].Value).[A4].PasteSpecial  End With  Application.ScreenUpdating = True  Application.CutCopyMode = FalseEnd Sub
Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

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...