Excel-macro goto

[Antonio C N Santos]

Preciso de uma macro para selecionar a sheet a ser usada.

Se a célula R10C3 contiver "Del" vai para "Plan1" caso contrario vai para "Plan2"

Não conheço muito de macros, só usando o gravador.

Assim cheguei na macro abaixo, mas dá erro.

Mas não consigo identificar porque.

Onde está o êrro?

 

Sub Teste()
    ActiveCell.FormulaR1C1 = "=IF(Plan1!R10C3=""Del"",Application.Goto Reference:="'Plan1'!R62C1",
    Application.Goto Reference:="'Plan2'!R1C1"
    
 End Sub

[Douglas Martins Mendes Bra]

Bom dia, acho que dessa forma funciona.

 

Sub teste()

 

IF range("A1").value="Del" then

     Sheets("Plan1").Activate

else

     Sheets("Plan2").Activate

end if

 

end sub

[Basole]

Veja esta opção: 

 

 Sub Teste()
    Dim w As Worksheet, w2 As Worksheet
    
    Set w = ThisWorkbook.Sheets("Plan1")
    Set w2 = ThisWorkbook.Sheets("Plan2")
    
    If ActiveCell.Formula Like "*Del*" Then
    Application.Goto w.[A62]
    Else
    Application.Goto w2.[A1]
    End If
End Sub

[Antonio C N Santos]

10 horas atrás, Basole disse:

Veja esta opção: 

 

 Sub Teste()
    Dim w As Worksheet, w2 As Worksheet
    
    Set w = ThisWorkbook.Sheets("Plan1")
    Set w2 = ThisWorkbook.Sheets("Plan2")
    
    If ActiveCell.Formula Like "*Del*" Then
    Application.Goto w.[A62]
    Else
    Application.Goto w2.[A1]
    End If
End Sub

 

adicionado 0 minutos depois

Valeu pessoal.

Obrigado