Este fórum está sendo desativado

[Abel]

Bom dia, estou com uma dúvida e queria saber como posso retornar para a ultima aba(planilha) selecionada por comando no vba.

Basciamente eu gostaria de um botão que retornasse a ultima planilha ativa. Tenho uma planilha onde 7 planilhas tem o mesmo hyperlink para 1 planilha, mas essa "1 planilha" quando eu apertar o botão "transferir" ela tem q voltar para a ultima selecionada, que seria uma dessas 7 "planilhas".

Ja pesquisei mas não encontrei nada muito efetivo.

[Foxtri]

Boa tarde.
Não sei se entendi a sua necessidade.
Veja se era isso.
Até
Foxtri

[Abel]

@Foxtri, @Foxtri, Perfeito mano, muito obrigado!

[Abel]

@Foxtri, tem como eu ativar essa macro somente se a planilha q quero retornar é uma das 7 q mencionei acima?
Tipo:
tenho 12 abas, mas só quero voltar se a ultima selecionada foi uma das 7.

[Foxtri]

Boa tarde
Veja se era isso.
Até
Foxtri

[Abel]

@Foxtri, Certo, quase isso, he exatamente assim, mas, tem como ele impedir de voltar para a ultima das 7 abas, caso a último não for uma delas?
pq, com esse novo modelo que vc enviou se eu selecionar a plan5, dps a plan12, e voltar pra plan1, ao clicar em voltar ele volta para a plan5, e na verdade ele n deveria voltar (acontecer nada caso eu n venha de uma das 7 abas), tem como? desculpa pelo incomodo!!

[Foxtri]

Olá
Veja se era isso.
Até
Foxtri

[Abel]

@Foxtri, Perfeito mano muito obrigado!

[Abel]

@Foxtri, SÓ UMA ULTIMA PERGUNTA, como posso inserir esse comando em um comando ja existente? tentei assim

Sub TRANSF()

Application.ScreenUpdating = False

For Each x In Range("H8")
x.Value = UCase(x.Value)
Next
For Each x In Range("H14:H18")
x.Value = UCase(x.Value)
Next

If Range("k1").Value = Range("k2").Value Then
MsgBox "Você estar tentando mover para o mesmo local de origem!!"
Exit Sub
Else
End If

If Range("H8").Value = "" Then
MsgBox "NÚMERO DE PATRIMÔNIO EM BRANCO!!"
If Range("H8").Value = "" Then End
End If
If Range("H16").Value = "" Then
MsgBox "PREENCHA O SETOR DE DESTINO!!"
If Range("H16").Value = "" Then End
End If
If Range("H18").Value = "" Then
MsgBox "PREENCHA O AMBIENTE DE DESTINO!!"
If Range("H18").Value = "" Then End
End If


Dim msgResp As VbMsgBoxResult

msgResp = MsgBox("Deseja realizar esta movimentação?", vbYesNo)

If msgResp = vbNo Then End


Range("H8").Select
Selection.Copy
Sheets("RELAT_TRAN").Select
Range("F9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("TRANSFERÊNCIA").Select
Range("H10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RELAT_TRAN").Select
Range("G9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("TRANSFERÊNCIA").Select
Range("H12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RELAT_TRAN").Select
Range("H9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("TRANSFERÊNCIA").Select
Range("H16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RELAT_TRAN").Select
Range("K9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("TRANSFERÊNCIA").Select
Range("H18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RELAT_TRAN").Select
Range("L9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("TRANSFERÊNCIA").Select
Range("H14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RELAT_TRAN").Select
Range("J9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("RELAT_TRAN").Select
Range("F9:K9").Select
Selection.ListObject.ListRows.Add (1)


Dim rng As Range, C As Range, pedAlt As Range
With ThisWorkbook
.Activate
With .Sheets("TRANSFERÊNCIA") 'Planilha origem
Set rng = .Range("H8")
For Each C In rng
With Sheets("INVENTÁRIO GERAL") 'Planilha Destino

Set pedAlt = .Columns(2).Find(C.Value, LookIn:=xlValues, LookAt:=xlWhole) 'Procura na coluna C de INVENTARIO

If Not pedAlt Is Nothing Then '<-Se encontrar...copia de origem para destino
pedAlt.Offset(, 1).Value = C.Offset(8, 0).Value 'INVENTARIO D = FORM E14
pedAlt.Offset(, 2).Value = C.Offset(10, 0).Value 'INVENTARIO E = FORM E16
End If

End With

Next

End With
End With


Sheets("TRANSFERÊNCIA").Select
Range("H8").Select
Selection.ClearContents
Range("H16").Select
Selection.ClearContents
Range("H18").Select
Selection.ClearContents
Range("H14").Select
Selection.ClearContents

Sheets("TRANSFERÊNCIA").Select
Range("A1").Select



Application.ScreenUpdating = True


UltimaABA.Activate
End Sub

mas não funcionou.