Visual Basic para Aplicaciones - Pasar funcion EXCEL a codigo VBA

Life is soft - evento anual de software empresarial
   
Vista:

Pasar funcion EXCEL a codigo VBA

Publicado por Ramon piqueramon@gmail.com (9 intervenciones) el 29/07/2017 11:42:52
Buenas dias a tod@s;

Quiero convertir el cálculo hecho en la columna "K" a código VBA excel y me da error.
Espero que para el Maestro Antoni Masana esto será un aperitivo.
Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

Pasar funcion EXCEL a codigo VBA

Publicado por Antoni Masana (154 intervenciones) el 30/07/2017 10:03:42
La macro tal que así:

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Sub porcentajes()
    Dim ultimaFila As Long, conta As Long
 
    Sheets("Hoja1").Select
    ultimaFila = Range("J" & Rows.Count).End(xlUp).Row
 
    For conta = 7 To ultimaFila
        Range("K" & conta).FormulaR1C1 = "=R" & conta & "C10/ SUM(R7C10:R1000000C10)"
        Range("K" & conta).NumberFormat = "0.00%"
    Next
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Pasar funcion EXCEL a codigo VBA

Publicado por Ramon (9 intervenciones) el 30/07/2017 14:26:03
Buenos dias, Maestro. No esperaba menos de vd. Muchas gracias, como siempre.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar