k1000a

Oi pessoal Já fiquei mega feliz em consegui criar o código abaixo, contudo, não consigo transpor uma dificuldade. O que eu desejo é selecionar duas colunas (dentre várias de uma tabela) e com elas criar um gráfico. Ok, o código abaixo faz isso se eu menciono onde começa e termina os valores que eu quero no gráfico, contudo na planilha eu tenho mais de uma tabela com valores que eu quero gerar. Como 'digo' para o código procurar essas duas colunas nas diversas tabelas? Sub camila() Dim Ult_Linha As Long Columns("A:A").Select 'comandos para ocultar as colunas que não me interessam Selection.EntireColumn.Hidden = True Columns("C:D").Select Selection.EntireColumn.Hidden = True Columns("F:G").Select Selection.EntireColumn.Hidden = True Plan1.Activate Ult_Linha = Range("A1048576").End(xlUp).Row 'descobre qual é a última linha ActiveSheet.Shapes.AddChart.Select 'Adiciona um shape Chart vazio no centro da planilha ActiveChart.ChartType = xlXYScatter 'Tipo do Grafico ActiveChart.SetSourceData Source:=Sheets("Plan1").Range("B2:E" & Ult_Linha) 'seleciona os dados With ActiveChart ' formatação .HasTitle = True .ChartTitle.Characters.Text = "Creep 9" .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Tempo (s)" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Creep Angle (rad)" .Axes(xlValue).ScaleType = xlLogarithmic .Axes(xlValue).CrossesAt = 0.001 .Axes(xlCategory).Select .Axes(xlCategory).ScaleType = xlLogarithmic .Axes(xlCategory).CrossesAt = 0.001 .Axes(xlCategory).CrossesAt = 0.0001 .Axes(xlValue).Select .Axes(xlValue).CrossesAt = 0.0001 '.PlotArea.Select.Shapes.Line.Visible = msoFalse End With End Sub