Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Form Close
 
Notifications
Clear all

Form Close

 
2024 - VBA & Macros
Post Recente por vonzuben 7 anos atrás
6 Posts
4 Usuários
0 Reactions
1,482 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
(@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
 vonzuben
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

klarc28

Funcionou, obrigado !
Não conhecia activesheet.name

 
Postado : 07/05/2018 6:53 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico