Bo noite turma. Estou usando o seguinte codigo
Private Sub NextButton_Click()
If ComboBox2 = "" Then
MsgBox ("Escolha a Area")
End If
If ComboBox1 = "" Then
MsgBox ("Escolha o Equipamento")
If ComboBox1 = "Ag-01" Then
ChartNum = 1
UpdateChart
Call UpdateChart
End If
If ComboBox1 = "Ac-01" Then
ChartNum = 1
Call UpdateChart1
End If
If ComboBox1 = "Ag-02" Then
ChartNum = 1
UpdateChart
Call UpdateChart2
E assim por diante
Private Sub UpdateChart1()
Set CurrentChart = Sheets("Grf IP ac01").ChartObjects(ChartNum).Chart
CurrentChart.Parent.Width = 492
CurrentChart.Parent.Height = 282
' Save chart as GIF
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export FileName:=Fname, FilterName:="GIF"
' Show the chart
Image1.Picture = LoadPicture(Fname)
End Sub
E continua ate Private Sub UpdateChart30()
Ta ficando muito extenso gostaria de saber uma outra forma para comparar minha combobox com o nome das planilhas e se for igual ativar a mesma. Pq nesse projeto sao muitas.
Tava penssando em outra forma tbm ,
Precisava de um codigo quase como o msmo acima , so q em vez de percorrer todas plans seria so em uma.
Ele iria comparar o nome na combobox com os da coluna "Tag-Equipamento" se for verdadeiro ele iria pegar todos os dados das linhas que tiverem o nome do equipamento nas colunas "Data" , "IP" e "IA" transportando-os para uma plan pre-formatada para
exibir um grafico.
Agradeco desde ja a ajuda de vcs.
