Preciso de uma ajuda...

tenho uma arquivo de excel com 41 panilhas diferentes, as primeiras 40 panilhas sao iguais, somente alguns numeros mudam, na planilha de numero 41 possui um botao (macro) que caso a celula "O10" esteja selecionada a macro deve realizar um comando na planilha 1, se a celula "O11" estiver selecionada a macro devera realizar o mesmo comando na planilha 2, e assim consecutivamente ate a celula "O49" e planilha 40.

(obs: esse eh o comando que a macro ira realizar em cada planilha:

Range("AA33:AA60").Select

Selection.Copy

Range("L33").Select

Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

Range("L33:L60").Select

Selection.Copy

Range("L33").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

Application.CutCopyMode = False

Range("B2").Select

Sheets("41").Select

Range("O10").Select

ActiveCell.FormulaR1C1 = "='1'!R[50]C[-3]"

Range("O10").Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ : =False, Transpose:=False

Application.CutCopyMode = False

As planilhas possuim nomes diferentes sem nenhuma logica)

at. Atualização : Verefiquem que no final o sera copiado um numero da planilha 1, por exemplo, para a celula O10 no caso. Se a celula celecionada fosse a celula O11 seria copiado um numero da planilha 2 e assim por diante.

perguntou May 30 '14 às 13:09

gustavobaruel's gravatar image

gustavobaruel
1111

Oi!

Talvez isto ajude:

Coluna = 0

For Each Planilha In Sheets

Planilha.Select Coluna = Coluna + 1 Cells(1, Coluna).Select

Next

Este For percorre todas as planilhas Planilha refere-se a planilha da vez Cells refere-se a um célula

link permanente

respondeu Aug 12 '14 às 21:22

Benhur's gravatar image

Benhur
16

Sua resposta
mudar para preview

Siga esta pergunta

Por Email:

Uma vez que você entrar você poderá se inscrever para todas as atualizações aqui

Por RSS:

Respostas

Respostas e Comentários

Markdown Básico

  • *italico* ou __italico__
  • **negrito** or __negrito__
  • link:[texto](http://url.com/ "Qual é a sua dúvida?")
  • imagem?![alt texto](/path/img.jpg "Qual é a sua dúvida?")
  • lista numerada: 1. Foo 2. Bar
  • para adicionar uma quebra de linha basta adicionar dois espaços onde você gostaria que a nova linha estivesse.
  • tags HTML básicas também são suportadas

Tags

×155
×22
×13

pergunta feita: May 30 '14 às 13:09

pergunta lida: 2,439 vezes

última alteração: Aug 12 '14 às 21:22