Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Última linha
 
Notifications
Clear all

Última linha

 
2024 - VBA & Macros
Post Recente por kurkas 9 anos atrás
3 Posts
2 Usuários
0 Reactions
884 Visualizações
RSS
 kurkas
(@kurkas)
Posts: 85
Estimable Member
Topic starter
 

Boa tarde,
tenho um gráfico e parte do código é este:
With graph.Chart
.SetSourceData Source:=Sheets("ESTAT").Range("a1:c1,a3:c10") ' origem dos dados

Preciso que o intervalo "a3:c10" seja algo do estilo "a3: c ultimalinha".
Ou seja, nem sempre o valores chegam a c10, ou podem chegar a c20.
Não estou a conseguir adaptar Cells(Rows.Count,"C").End(xlUp).Row
Espero que me tenha feito entender,
Obrigado

 
Postado : 26/09/2015 11:22 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Tente assim :

Dim UltimaLinha As Long

UltimaLinha = Worksheets("ESTAT").Cells(Rows.Count, 3).End(xlUp).Row
 
    With graph.Chart
        .SetSourceData Source:=Sheets("ESTAT").Range("a1:c1" & "," & "a3:c" & UltimaLinha)
 
Postado : 26/09/2015 12:19 pm
 kurkas
(@kurkas)
Posts: 85
Estimable Member
Topic starter
 

Olá,
Mais palavras para quê???
Resolveu mesmo!!
Valeu.

 
Postado : 26/09/2015 12:43 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico