Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Selecionar a ultima...
 
Notifications
Clear all

Selecionar a ultima linha de uma célula preenchida em varias

 
2024 - VBA & Macros
Post Recente por pasedo 9 anos atrás
5 Posts
2 Usuários
0 Reactions
772 Visualizações
RSS
 pasedo
(@pasedo)
Posts: 90
Trusted Member
Topic starter
 

Boa noite pessoal.

é o seguinte tenho uma planilha aqui que eu quero que quando eu abrir ela em todas as planilhas a célula esteja selecionada abaixo da ultima linha preenchida no caso na coluna C
em uma planilha só eu consegui usando este código ,Range("C1048576").End(xlUp).Offset(1, 0).Select , mas como eu quero em doze folhas (plan1 , plan2, plan3 ...e assim por diante) não estou conseguindo , usei este código Sheets("Plan1").Range("C1048576").End(xlUp).Offset(1, 0).Select , mas não da certo...podem me ajudar ? Já pesquisei no google e não achei nada igual, segue anexado a planilha exemplo. Grato

 
Postado : 01/04/2016 3:57 pm
Trindade
 Trindade
(@trindade)
Posts: 278
Reputable Member
 

Boa noite, pasedo.

Seria algo +- assim:

Private Sub Workbook_Open()

Dim QtdePlan As Long
Dim i As Long
Dim UltLin

    UltLin = Range("C" & Rows.Count).End(xlUp).Row + 1
    
    QtdePlan = Worksheets.Count
    
    For i = 1 To QtdePlan
    
        Worksheets(i).Activate
        Range("C" & UltLin).Select
    
    Next i

End Sub

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 01/04/2016 6:17 pm
 pasedo
(@pasedo)
Posts: 90
Trusted Member
Topic starter
 

Trindade quase deu certo , mas quando digito em uma planilha e vai descendo a digitação, nas outras planilhas tambem desce na celulas em branco sendo que só quero que a celula fique selecionada se tiver alguma coisa digitado nela , de uma olha da no exemplo ai se puder .grato

 
Postado : 01/04/2016 7:08 pm
Trindade
 Trindade
(@trindade)
Posts: 278
Reputable Member
 

pasedo,

Testa agora ...

Private Sub Workbook_Open()

Dim QtdePlan As Long
Dim i As Long
Dim UltLin
    
    QtdePlan = Worksheets.Count
    
    For i = 1 To QtdePlan
    
    UltLin = Sheets(Worksheets(i).Name).Range("C" & Rows.Count).End(xlUp).Row + 1
    
        Worksheets(i).Activate
        Range("C" & UltLin).Select
    
    Next i

End Sub

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 01/04/2016 8:08 pm
 pasedo
(@pasedo)
Posts: 90
Trusted Member
Topic starter
 

Trindade deu certinho , muito obrigado .

 
Postado : 02/04/2016 6:22 am
Forum Jump:
  Tópico Anterior
Próximo Tópico