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
