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

778 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)

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)

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