Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ultima Coluna Preen...
 
Notifications
Clear all

Ultima Coluna Preenchida

 
2024 - VBA & Macros
Post Recente por Trindade 10 anos atrás
3 Posts
2 Usuários
0 Reactions
1,293 Visualizações
RSS
 Trindade
(@trindade)
Posts: 0
New Member
Topic starter
 

Boa noite, Senhores.

Normalmente procuramos identificar a ultima célula preenchida mas na linha assim:

Linha = wsPlan.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row

Gostaria de saber como faço para identificar a ultima coluna, usando como referencia a range("A1").
Não ira escrever na range("A1") mas nas posteriores (B1, C1, D1...) ira preencher conforme laço.

Tentei assim:

Coluna = wsPlan.Range("A", Column.Count).End(xlRight).Offset(0, 1).Column

Mas não deu certo, gostaria de uma ajuda dos senhores.

 
Postado : 27/01/2015 8:05 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia,

Seguem duas sugestões de código:

Coluna = [A1].CurrentRegion.Columns.Count
Coluna = Cells(1, Columns.Count).End(xlToLeft).Column

Abraço

 
Postado : 28/01/2015 4:47 am
 Trindade
(@trindade)
Posts: 0
New Member
Topic starter
 

Bom dia JValq.

Obrigado pela ajuda, peguei seu código e fiz algumas alterações e montei essa POG ficou assim:

Private Sub Analise_Anual_Montar_Ano()

Dim vMeses As String
Dim vAno As String
Dim i As Long
Dim wsPlan As Worksheet

vMeses = DateDiff("YYYY", DTP8.Value, DTP9.Value)

vAno = Format(DTP8.Value, "YYYY")

Set wsPlan = Sheets("ANALISE_SETOR_ANUAL")

    With wsPlan
                
        Coluna = .Cells(1, Cells.Columns.Count).End(xlToLeft).Column
        Coluna = Coluna + 1
            
            If vMeses <= 10 Then
            
                For i = 0 To vMeses
                            
                            .Cells(1, Coluna).Value = vAno
                        
                    vAno = vAno + 1
                    Coluna = Coluna + 1
                        
                Next i
            
            Else
            
                MsgBox "Selecione um período de até 10 ano !", , "Atenção"
            
            End If
            
    End With

End Sub

Até onde testei esta funcionando...

 
Postado : 28/01/2015 7:49 am
Forum Jump:
  Tópico Anterior
Próximo Tópico