Vitor Miagava

Tenho uma planilha que criei no Excel 2003, e no excel 2007 ela não roda algumas macros, e uma delas é que não consigo rodar o gráfico userform. Algém teria alguma outra solução, como o mschart, ou análisar meu código?? Quando mando chamar o form não aparece o gráfico na area da image, e sempre da o erro na palavra do "set current chart" Segue o código abaixo para quem quiser dar uma olhada ae: Código: Dim ChartNum As Integer Private Sub Image2_Click() fcoraco.Hide Call prinmenu End Sub Private Sub fcoraco_Initialize() ChartNum = 1 UpdateChart End Sub Private Sub Up

Ajudou sim, muito obrigado!!

Boa tarde pessoal, Estou precisando alterar o tamanho das colunas de um listbox que eu tenho, alguém sabe como??? Att.

Michelle, testando aqui pelo Form deu certo,porém percebi que o intervalo de dados tem que estar apartir da célula a1. Então fica como eu tinha faldo com você, de qual maneira podemos colocar o listbox na planilha sem pelo Form e sim como objeto,e pegando o intervalo sem que esteja na célula a1. Estamos quase la! Origado!!

Eu não conheço o Rowsource não, ele pegaria o intervalo todo mesmo crescendo? De qualquer forma muito obrigado Michelle, ficarei no aguardo aqui e pesquisando ok? Muito obrigado !!

Então Michelle, o intervalo esta na graf, apartir da celula m12, eu associei ao modulo então usei a macro listgeral então executo a macro e da o erro, e depois tentei criar um form tambem colocando no Initialize, só que deu o mesmo erro.

Oi Michelle, já upei o arquivo, http://www.4shared.com/file/101467740/8dcc...version_2_.html Obrigado!

Bom dia Michelle, O nome do list box é mesmo sim, como posso estar te enviando a planilha para você? Muito obrigado!

Então, o intervalo deve crescer com o passar dos dias, o erro é o seguinte: Erro de compilação: Uso invalido da palavra me. Att.

Boa tarde pesoal, Estou com um problema similar, quero que o listbox liste os dados de um determinado intervalo de 5 colunas e que este intervalo possa crescer ou diminuir, tentei colocar o codigo da MICHELLE, porém não estou sabendo adapta-lo na minha planilha, se algém puder me ajudar. O intervalo de dados começa na coluna M1, e colei o script assim: Dim linha As Integer On Error GoTo ErrHandler linha = Plan11.Range("A65000").End(xlUp).Row i = 0 With ThisWorkbook.Worksheets("Graf-Geral") While linha <> 1 Me.ListBox1.AddItem , ListIndex ListBox1.List(i, 0) = Sheets("Graf-Geral").Ce