none
Colar em determinada planilha com valor da cell RRS feed

  • Pergunta

  • Então tenho uma planilha com varias tabelas e fiz uma macro para copiar valores para determinada planilhas , só que queria informar para o excel que não hora que clico no botão salvar, o valor que está na celula B31 seja a planilha que eu quero colar, este é o código que uso no momento:

    Exemplo : digitei 18 no B31 e cliquei em salvar, meus dados são salvos na planilha 18.
    digitei :25 no B31 e cliquei em salvar, meus dados são salvos na planilha 25.


    If Range("B31") = "83" Then  = aqui é valor que eu digito na célula.

    Range("B30").Select
        Selection.Copy
        Range("A40").Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
            xlNone, SkipBlanks:=False, Transpose:=False
        Range("B32").Select
        Application.CutCopyMode = False
        Selection.Copy
        Range("B40").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("B33").Select
        Application.CutCopyMode = False
        Selection.Copy
        Range("D40").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("A40:F40").Select
        Application.CutCopyMode = False
        Selection.Copy

        Sheets("83").Select = esse 83 é o nome da minha planilha
       

    linha = Range("a1048576").End(xlUp).Row + 1
        Cells(linha, 1).Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
      Sheets("Status geral").Select
        Application.CutCopyMode = False
        Selection.ClearContents
        Range("B31:B33").Select
        Range("B33").Activate
        Selection.ClearContents
        Range("B31").Select
    End If

    quinta-feira, 25 de abril de 2019 14:14

Todas as Respostas

  • Olá, tenta o código...

    Sheets("Plan" & Range("B31")).Range("A1") = "teste"


    Se ajudou, marque como resposta! Obrigado.

    quinta-feira, 25 de abril de 2019 18:41
  • Obrigado pela resposta, eu consegui da seguinte forma,vou postar aqui porque pode ajudar outra pessoa.


     i = Range("b31").Value
      Sheets(i).Select
     
    • Editado Thiagosc32 sexta-feira, 26 de abril de 2019 17:15
    sexta-feira, 26 de abril de 2019 17:14