none
VBA EM MACROS RRS feed

  • Pergunta

  • Pessoal Boa Tarde,
    Sera que alguem poderia me ajudar ... Estou com uma dificuldade, tenho um sistema desenvolvido em VBA esse sistema gera graficos , Tenho uma planilha onde esta todas as consolidações que efetuo  cada consolidação recebe um numero que chamamos de ID ok tenho uma outra onde tenho um botão drop dow  que quando seleciono UM ID BUSCA NESTA BASE DE DADOS as linhas que fazem referencia a esse id , ok minha dificuldade é a seguinte , quando clico em um id que tem um certo numero de dados , vamos supor 4 linhas ele gera o grafico sem nenhum problema mais ai quando quero fazer uma nova consulta com um novo numero de id e com dados differentes ele não me gera o grafico com esses dados certos  eel continua com os ddos d seleção passada;
    Segue o codigo:





    Sub DadosGrafico()
        Dim IdOrigem As Double
        Dim IdDestino As Double
        Dim Linha As Integer
        Dim contador As Integer
        
        Application.ScreenUpdating = False
        
        Sheets(4).Select
        Range("c2:n200").Select
        Selection.Clear
        Range("a1").Select
        'plan Dados_Carregados inicia na linha 2
        IdDestino = Worksheets(4).Range("a1")
        'Plan_BDAO inicia na linha 4
        IdOrigem = Worksheets(3).Range("a4")
        'Plan BDAO
        Sheets(3).Select
        Range("a4").Select
        Linha = ActiveCell.Row
        coluna = ActiveCell.Column
        contador = 2
     
        
        'neste caso a celula ativa esta iniciando na linha 5
          Do While ActiveCell.Value <> ""
           
           If ActiveCell = IdDestino Then
           Range("a" & Linha & ":" & "n" & Linha).Select
           
             Selection.Copy
             Sheets(4).Select
             Range("C" & contador).Select
             Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
             :=False, Transpose:=False
             Application.CutCopyMode = False
             Sheets(3).Select
             ActiveCell.Offset(1, 0).Select
             Linha = Linha + 1
             contador = contador + 1
            
            
            
            Else
             ActiveCell.Offset(1, 0).Select
             Linha = Linha + 1
             
            End If
          Loop
            Sheets(4).Select
            Range("$D$2:$D$30").Select
            Selection.NumberFormat = "m/d/yyyy"
            Range("c" & contador).Select
            Application.ScreenUpdating = True
            MsgBox "Dados carregado com sucesso!!!", vbInformation, "Dados Gráfico"
        
     
    End Sub
    

    ficaria muito gratoo se alguem puder me ajudar

    se quiserem entrar em contato meu e-mail é fernando@yesmerchandising.com.br

    terça-feira, 28 de abril de 2009 15:54