none
Diminuir Codigo RRS feed

  • Pergunta

  • 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.


        

     
    quinta-feira, 23 de fevereiro de 2012 22:08

Respostas

Todas as Respostas