Notifications

Clear all

Form Close

2024 - VBA & Macros

Post Recente por vonzuben 7 anos atrás

6 Posts

4 Usuários

0 Reactions

1,488 Visualizações

RSS

vonzuben

(@vonzuben)

Posts: 549

Honorable Member

Topic starter

Tenho 13 guias, primeira chama Nome e o restante vai de Jan até Dez

Todas abre um Form ao clicar na celula A1

Ao fechar o Form da Nome pula a seleção para B1 e o restante das guias quero que pula para C1

Tentei tipo isso:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
    If Sheets("Nome").Activate = True Then
    
        ActiveCell.Offset(0, 1).Select
        
    Else
    
        ActiveCell.Offset(0, 2).Select
    
    End If
        
End Sub

Obrigado !

Postado : 07/05/2018 11:29 am

leandroxtr

(@leandroxtr)

Posts: 447

Reputable Member

Poste a planilha para ajudarmos melhor.

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

Postado : 07/05/2018 11:48 am

srobles

(@srobles)

Posts: 231

Estimable Member

vonzuben,

Experimente trocar esta rotina pela que deixo abaixo:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   
    If Sheets("Nome").Activate = True Then
   
        Cells(1,2).Select
       
    Else
   
        Cells(1,3).Select
   
    End If
       
End Sub

Espero ter ajudado.

Abs

Espero ter ajudado.

Abs.

Saulo Robles

Postado : 07/05/2018 11:58 am

vonzuben

(@vonzuben)

Posts: 549

Honorable Member

Topic starter

Tenho esse código que pula 1 vez para o lado direito de qualquer guia ao fechar o form

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
        ActiveCell.Offset(0, 1).Select
        
End Sub

Só que eu quero que pula 2 x para o lado direito numa única guia ( Nome ) especifica e o restante das guias 1 x

Postado : 07/05/2018 12:35 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
if activesheet.name= "NomeDaPlanilha" then
        ActiveCell.Offset(0, 2).Select

        else
 ActiveCell.Offset(0, 1).Select
end if
End Sub

Postado : 07/05/2018 3:30 pm