Notifications
Clear all

Vba - estrutura de repetição

5 Posts
1 Usuários
0 Reactions
951 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite pessoal,

Sou iniciante em vba e tenho um projeto da faculdade que necessita dessa feramenta . to precisando de uma ajuda quanto a criação de um codigo.

a planilha é essa: http://www.4shared.com/file/Xmf7931L/Pasta1.html

Nesta planilha disponibilizada é só um rascunho e fara parte de outra planilha, portante coloquei nela as celulas em verde, sendo as que não irei mexer,
enquanto as brancas são numeros que irei alimentar nela, e a rosa é só para exemplificar que em outros momentos esse numero vai mudar, mas ñ vem ao caso agora!

Obejtivo: voces podem ver na planilha que a medida que muda os numeros da coluna C.C o valor da coluna ERRO tambem irá mudar, o objetivo desta planilha
é achar com qual valor C.C o meu valor da coluna ERRO é menor (não considerando os valores negativos), ou seja, mais proximo de 0 ou se possivel 0!!

então é desejavel que em uma celula só (na coluna C.C) o codigo coloque numeros ate o erro for 0 ou o mais proximo disso (minimizar o erro), ou se alguem tiver outra
sugestão sera bem-vinda, o que eu preciso é do respectivo numero C.C cujo o erro é o menor!

obs: lembrando que o C.C vai mudar pois as colunas 1 e 3 podem mudar seus valores, por isso o codigo é tão essencial!

desde já agradeço!

 
Postado : 20/08/2012 5:49 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

pessoal talvez vc ñ tenha intendido o porque tem q fazer isso. É porque na planilha que sera inserida esta tabela os dados poderão mudar, que são os da 1ª e 3ª coluna, então sempre quando estes mudaram o valor de C.C que teria o menor ERRO será diferente do anterior , portanto este codigo facilitaria, pois só com um clique (botão macro) teria o valor de C.C com menor erro possivel!

 
Postado : 20/08/2012 8:03 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal já foi resolvido, obrigado aos que tentaram ajudar!

 
Postado : 20/08/2012 8:46 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ricardo,

Seria importante avisar como resolveu.

http://info.abril.com.br/forum/viewtopic.php?f=149&t=17747&sid=c69ea3c22234869bcb2996e5a2822611

 
Postado : 21/08/2012 8:03 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Verdade joseA obrigado por lembrar ...
segue ae o codigo aos interessados:

Sub ZerarErro()
'
' Desenvolvido por Canguru para o Forum Info em 20/08/12
'
Dim Ult As Long
Dim Lin As Long
Dim nTeste As Single
Dim Erro As Single
Ult = Plan1.Range("E" & 2 ^ 20).End(xlUp).Row
'R7 = erro
'R7 = F7 - P7
'R7 = F7 - (H7 - J7 + C7 + E7)

For Lin = 7 To Ult
Plan1.Range("E" & Lin).Value = Plan1.Range("F" & Lin).Value - Plan1.Range("H" & Lin).Value + Plan1.Range("J" & Lin).Value - Plan1.Range("C" & Lin).Value
Next Lin

MsgBox "Pronto!"

End Sub

 
Postado : 21/08/2012 8:08 am