Última linha

2024 - VBA & Macros

Post Recente por kurkas 9 anos atrás

3 Posts

2 Usuários

0 Reactions

893 Visualizações

RSS

kurkas

(@kurkas)

Posts: 85

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 26/09/2015 12:19 pm