Oliver, muito obrigado pela atenção, mas como tenho pouca familiaridade com o basic não consegui aplicar o seu exemplo. Veja se dá para me ajudar. Suponha os seguintes dados em uma planilha:
Célula K3: 20 Célula L3: fórmula K3 - M3, resultando 5 Célula M3: 15 Eu quero construir uma macro que altere o valor da Célula L3 para 0, variando a Célula M3. Neste exemplo os valores ficariam: Célula K3: 20 Célula L3: 0 (K3-M3) Célula M3: 20 Obrigado, João ----- Mensagem original ---- De: Olivier Hallot <[EMAIL PROTECTED]> Para: [email protected] Enviadas: Quarta-feira, 25 de Julho de 2007 18:00:21 Assunto: Re: [usuarios OOo] Macro atingir meta Segue um exemplo, que calcula 4 veses (for i=3 to 9 step 2) o Goal seek (atingir meta) na primeira folha (sheet(0)). Os indices começam sempre em zero. (a msg pode ter quebrado algumas das linhas de código) Sub GS dim cell as object dim resultfound as new com.sun.star.sheet.GoalResult '(divergence,result structure) dim formula_address as new com.sun.star.table.CellAddress '(sheet,column, Row structure) dim variable_address as new com.sun.star.table.CellAddress dim targetresult as string 'goal value sought as STRING dim i as integer oDoc=thiscomponent sheet = oDoc.Sheets(0) 'set location of formula to be evaluated to give goal value formula_address.sheet = 0 'index values - zero based formula_address.Row=14 variable_address.sheet = 0 variable_address.Row=7 for i=3 To 9 Step 2 cell = Sheet.getCellByPosition(i,7) formula_address.Column = i ' set location of variable to be changed variable_address.Column = i ' set goal value targetresult = "0" ' run goalseek resultfound = oDoc.seekgoal(formula_address,variable_address,targetresult) ' do something with result rem msgbox resultfound.result cell.Value=resultfound.result Next i end sub João Ribeiro Amorim escreveu: > > > Amigos, não estou conseguindo criar uma macro para automatizar a função > atingir meta. Alguém sabe me ajudar. > > > > > > João > > > > > > > > > > > > > > > Flickr agora em português. Você cria, todo mundo vê. > http://www.flickr.com.br/ -- Olivier Hallot Scinergy Consulting Tel (021) 8822-8812 Rio de Janeiro, Brasil http://www.scinergy.com.br --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] Alertas do Yahoo! Mail em seu celular. Saiba mais em http://br.mobile.yahoo.com/mailalertas/
