Excel MACRO EXCEL copiar dados

[maiconph]

boa noite a todos gostaria de ajuda para criar uma macro que fizesse o seguinte:
na aba plan1 existe um botão que cria uma nova guia plan2, na aba plan1 existe a celula a1 que tem a seguinte formula;
 

=a2+a3

 

gostaria que o botao que cria a aba automaticamente copiasse essa celula para a aba plan2 na celula a4 tambem.
isso seria possivel?

[Visitante]

Acrescente o comando abaixo ao seu código.

[A4] = "=A2+A3"

 

[maiconph]

eh exatamente isso que eu quero em termos, mas seria para pegar o conteudo da celula e copiar para a nova celula tem como?

[Visitante]

Me parece que você quer replicar o valor de A1 da Plan1 em A4 da nova planilha. É isso?

[A4] = Sheets("Plan1").[A1]

 

[maiconph]

È exatamente isso porém o botao ira criar uma nova aba com base em uma celula que dara o nome a aba como aço nessa parte

Sub Botão120_PRINT()
 Dim nova_aba As Worksheet
    Dim nome_aba As Variant
      
   nome_aba = [H3]
    
        For Each nova_aba In Worksheets
            If nova_aba.Name = nome_aba Then
                    nova_aba.Activate
                Exit Sub
       
            End If
        Next
    
        x = MsgBox("Deseja criar uma nova aba?", vbYesNo)
    
    If x = 6 Then
                Sheets.Add After:=Sheets(Sheets.Count)
                ActiveSheet.Name = nome_aba
            Exit Sub
  [A4] = Sheets("Plan1").[A1]
           
        Else
            Range("H3").Activate
                 
    
  
    End If
End Sub

 

[Visitante]

Troque as posições:

 

de

Exit Sub
[A4] = Sheets("Plan1").[A1]

 

para

[A4] = Sheets("Plan1").[A1]
Exit Sub

 

[maiconph]

Retornou um erro 

Erro em tempo de execução "9"
Subscrito fora do intervalo.

Sub testar()
 Dim nova_aba As Worksheet
    Dim nome_aba As Variant
      
   nome_aba = [H3]
    
        For Each nova_aba In Worksheets
            If nova_aba.Name = nome_aba Then
                    nova_aba.Activate
                Exit Sub
       
            End If
        Next
    
        x = MsgBox("Deseja criar uma nova aba?", vbYesNo)
    
    If x = 6 Then
                Sheets.Add After:=Sheets(Sheets.Count)
                ActiveSheet.Name = nome_aba
                 [A4] = Sheets("Plan1").[A1]
            Exit Sub

           
        Else
            Range("H3").Activate
                 
    
  
    End If
End Sub

 

[Visitante]

Eu coloquei no código o nome da planilha de origem do valor como "Plan1", com base na sua informação no primeiro post. Altere o nome no código de acordo.

 

Se não resolver então disponibilize uma amostra do seu arquivo Excel compactado, com o código instalado.

[maiconph]

ESSA É A MACRO DO BOTÃO
Sub Nova_Guia()
 Dim nova_aba As Worksheet
    Dim nome_aba As Variant
      
   nome_aba = [A1]
    
        For Each nova_aba In Worksheets
            If nova_aba.Name = nome_aba Then
                    nova_aba.Activate
                Exit Sub
       
            End If
        Next
    
        x = MsgBox("Deseja criar uma nova aba?", vbYesNo)
    
    If x = 6 Then
                Sheets.Add After:=Sheets(Sheets.Count)
                ActiveSheet.Name = nome_aba
            Exit Sub
            
    End If
End Sub

NO CASO AGORA EU GOSTARIA DE PEGAR O RESULTADO DA CELULA "A4" E FAZER COM QUE NA NOVA GUIA CRIADA PELA MACRO DO BOTÃO  "CRIAR ABA" MOSTRASSE NA CELULA "A10" POR EXEMPLO.

TESTE.xlsx

[Visitante]

51 minutos atrás, osvaldomp disse:

Eu coloquei no código o nome da planilha de origem do valor como "Plan1", com base na sua informação no primeiro post. Altere o nome no código de acordo.

 

Você leu o comentário acima ? Conseguiu entender ?

Você não consegue alterar o nome da planilha no código, é isso ?

[maiconph]

o nome da planilha gerada seria determinada pela celula a1 na minha planilha de exemplo e na minha original esse nome ja vem determinado por um banco de dados de outra planilha gostaria que ao mesmo tempo que a macro criasse a nova guia com o nome da celula a1 tambem ja pegasse os dados da celula a4  e trasnferisse para a nova planilha na celula a10 

[Visitante]

1 hora atrás, maiconph disse:

Retornou um erro 

Erro em tempo de execução "9"
Subscrito fora do intervalo.

 

O erro que você relatou ocorre porque eu coloquei no comando que eu sugeri o nome da planilha como Plan1 e no seu arquivo o nome da planilha é Planilha1. É este nome que você precisa colocar no comando para não provocar o erro.

 

Esse nome de Planilha1 não é sempre o mesmo ? Esse nome pode mudar ?

[maiconph]

6 minutos atrás, osvaldomp disse:

 

O erro que você relatou ocorre porque eu coloquei no comando que eu sugeri o nome da planilha como Plan1 e no seu arquivo o nome da planilha é Planilha1. É este nome que você precisa colocar no comando para não provocar o erro.

 

Esse nome de Planilha1 não é sempre o mesmo ? Esse nome pode mudar ?

Não o nome da planilha muda de acordo com a celula A1 que recebe um nome de acordo com o produto selecionado no estoque que vem de outra planilha

[Visitante]

2 minutos atrás, maiconph disse:

Não o nome da planilha muda de acordo com a celula A1 que recebe um nome de acordo com o produto selecionado no estoque que vem de outra planilha

 

Isso que você descreveu é o nome que o seu código dá para a nova planilha. Não é desse nome que estamos tratando.

O nome que você deve colocar no comando é o nome da única planilha que já existe no seu arquivo, que é Planilha1. Então, no comando que passei, coloque Planilha1 no lugar de Plan1, assim não ocorrerá o erro que você apontou.

[maiconph]

Muito Obrigado ,eu nunca notei que as planilhas continuavam sempre com o nome "Planilha" pensei que mudavam conforme o titulo dado a elas me ajudou muito, mais uma coisa e se eu quiser copiar de varias celulas por exemplo alem da a4 tambem da a10 a15....desculpa por insistir no erro kkkkkkkk obrigado!!!!