Macro para insertar una fórmula en varias celdas con una característica creciente según la celda
Necesito una macro que me inserte una formula en diferentes celdas que sume uno mas ("+1") en cada celda de la selección, mi selección de celdas es la siguiente:
("Y20, AR20, BK20, CD20, F42, Y42, AR42, BK42, CD42, F62, Y62, AR62, BK62, CD62, F84, Y84, AR84, BK84, CD84, F104, Y104, AR104, BK104, CD104")
Yo quiero que el valor de AR20 sea igual al valor de Y20 + 1, y que el valor BK20 sea igual al valor de AR20+1 y así sucesivamente... Todo esto hacerlo con una macro al presionar un botón.
La verdad no se si esto es posible, inclusive supongo que se pude usar la instrucción "For... Next", pero no logro aplicarla ya que mi selección no son celdas adjuntas.
1 Respuesta
H o l a:
Te anexo la macro
Sub Insertar1()
'Por.Dante Amor
On Error Resume Next
cs = Array("Y20", "AR20", "BK20", "CD20", _
"F42", "Y42", "AR42", "BK42", "CD42", _
"F62", "Y62", "AR62", "BK62", "CD62", _
"F84", "Y84", "AR84", "BK84", "CD84", _
"F104", "Y104", "AR104", "BK104", "CD104")
For i = LBound(cs) To UBound(cs)
Range(cs(i + 1)) = "=" & cs(i) & "+1"
Next
MsgBox "Fin"
End SubVeo, según la lógica de tus celdas que te faltó la F20, si es así, solamente agrégala en el array:
Sub Insertar1()
'Por.Dante Amor
On Error Resume Next
cs = Array("F20", "Y20", "AR20", "BK20", "CD20", _
"F42", "Y42", "AR42", "BK42", "CD42", _
"F62", "Y62", "AR62", "BK62", "CD62", _
"F84", "Y84", "AR84", "BK84", "CD84", _
"F104", "Y104", "AR104", "BK104", "CD104")
For i = LBound(cs) To UBound(cs)
Range(cs(i + 1)) = "=" & cs(i) & "+1"
Next
MsgBox "Fin"
End Sub':) 'S aludos. D a n t e A m o r . R ecuerda valorar la respuesta. G racias ':)R ecuerda valorar la respuesta. G r a c i a s
Muchas Gracias,
Me sirvió de mucho, perdón por la tardanza, estaba de viaje, muy amable y de verdad agradezco mucho tu ayuda siempre, la verdad no conozco para nada la función pero me sirvió justo como necesitaba, feliz noche!
Jose Armando
