Código para macro, incrementando el valor de una variable en 1 y copiar
En la Hoja 1 tengo una tabla con una variable en C1 y fórmulas en (A2:B3):
C1=24
A2=C1+3 B2=A2/2
A3=C1-2 B3=A3/3
Necesito generar en la Hoja 2 una tabla para valores incrementales en 1 (desde 24 a 26) de C1 de la Hoja 1, dando como resultado:
A1=24 C1=25 E1=26
A2=27 B2=13,5 C2=28 D2=14 E2=29 F2=14,5
A3=22 B3=7,33 C3=23 D3=7,67 E3=24 F3=8
¿Cómo sería el código de la Macro?
Visita:
Cursos de Excel y Macros - YouTube
---
Cursos de Excel:
Curso de excel. Formato condicional dinamico - YouTube
Curso de excel. Consejos y trucos de excel para mejorar la presentación de tus datos. - YouTube
Cursos de Macros:
Curso de macros. Consejos para empezar a programar. - YouTube
Curso de macros. Declarar variables en vba excel. - YouTube
Prueba el siguiente código:
Sub incrementar()
Dim i As Long, col As Long, inicio As Long
'
'toma el valor de la celda C1, en el ejemplo toma 24
inicio = Sheets("Hoja1").Range("C1").Value
'
col = 1
For i = inicio To 26 'desde 24 hasta 26
With Sheets("Hoja2")
.Cells(1, col).Value = i
.Cells(2, col).Value = i + 3
.Cells(2, col + 1).Value = (i + 3) / 2
.Cells(3, col).Value = i - 2
.Cells(3, col + 1).Value = (i - 2) / 3
End With
col = col + 2
Next
End SubDescarga el archivo con la macro:
https://drive.google.com/file/d/1hKY4NGSy_nlZOOFEtL5PDpWJVbpF-Ovm/view?usp=sharing
---
Sal u dos Dante Amor
