
20/04/2009, 15:12
|
| | Fecha de Ingreso: enero-2008
Mensajes: 111
Antigüedad: 17 años Puntos: 0 | |
Duda resuelta Hola,vereis,tengo una columna con precios y tengo que restarle un porcentaje a cada precio y luego dividlo entre un numero.He intentado hacerlo pero no me ha salido nada.¿me podeis ayudar?
Un saludo
Edito:
He recordado que tenia por ahi olvidada una macro de excel de hace años y la he modificado un poco.De todas formas os la pongo aqui por si os sirve de utilidad
La macro resta el 50% y divide entre 0,6 todas las celdas de la primera columna(1) y de la fila 39 a la 44(las letras se las salta y con celdas vacias pone un cero en ellas.
Espero que os ayude
Sub beta()
Dim f As Integer
Dim multi As Integer
multi = 0
For f = 39 To 44
If IsNumeric(Worksheets("hoja1").Cells(f, 1)) Then
multi = (Worksheets("hoja1").Cells(f, 1) - ((Worksheets("hoja1").Cells(f, 1) * 50) / 100)) / 0.6
Worksheets("hoja1").Cells(f, 1) = multi
End If
Next f
End Sub
Última edición por Slayer_sephiroth; 20/04/2009 a las 16:00 |