For Next
Mi problema es el siguiente: Tengo una subrutina, en la que después de un "loop" con for.. Next, los resultados aparezcan en un rango de una columna. La rutina es la siguiente:
Sub Converge()
'
' Converge Macro
'
For I = 1 to 12
Range("B11").Select
ActiveCell.FormulaR1C1 = I
Range("K23").Select
Selection.Copy
Aquí, necesito que este loop, se pegue en la columna J, desde la 25, hasta la 36..
Range("J25" to "j36").Select
Selection.PasteSpecial Paste:=xlPasteValues
Por su respuesta, gracias anticipadas...
Sub Converge()
'
' Converge Macro
'
For I = 1 to 12
Range("B11").Select
ActiveCell.FormulaR1C1 = I
Range("K23").Select
Selection.Copy
Aquí, necesito que este loop, se pegue en la columna J, desde la 25, hasta la 36..
Range("J25" to "j36").Select
Selection.PasteSpecial Paste:=xlPasteValues
Por su respuesta, gracias anticipadas...
1 Respuesta
Respuesta
1
Si el rango es fijo directamente puedes hacer
Range("J25:J36").Select
Y si el rango puede variar (en general es lo que pasa en VBA) podes hacer
Range(Cells(filaDesde, colDesde), Cells(filaHasta, colHasta)).Select
donde filaDesde, filaHasta, colDesde, colHasta son variables numéricas
en este ejemplo sería
Range(Cells(25,10), Cells(36,10)).Select
Range("J25:J36").Select
Y si el rango puede variar (en general es lo que pasa en VBA) podes hacer
Range(Cells(filaDesde, colDesde), Cells(filaHasta, colHasta)).Select
donde filaDesde, filaHasta, colDesde, colHasta son variables numéricas
en este ejemplo sería
Range(Cells(25,10), Cells(36,10)).Select