Variable con el método range
Hola valedor tengo un problema necesito
Manejar algunos contadores con range
Ejemplo
dim i as integer
for i=1 to 100
Sheets("Sheet1").Select
range("VARIABLE i:H(VARIABLE i).Select
Selection.Copy
Sheets("CYLINDER").Activate
Range(" VARIABLE i ").Activate
ActiveSheet.Paste
next i
estoseria un brebe ejemplo de lo que quiero hacer pero o me reconoce las variable ¿Que puedo hacer amigo Valedor?
Manejar algunos contadores con range
Ejemplo
dim i as integer
for i=1 to 100
Sheets("Sheet1").Select
range("VARIABLE i:H(VARIABLE i).Select
Selection.Copy
Sheets("CYLINDER").Activate
Range(" VARIABLE i ").Activate
ActiveSheet.Paste
next i
estoseria un brebe ejemplo de lo que quiero hacer pero o me reconoce las variable ¿Que puedo hacer amigo Valedor?
1 respuesta
Respuesta de valedor
1
'El error que estas cometiendo es que el rango lo tienes que
'establecer como una cadena de texto, estas concatenando de
'forma erronea, ve el siguiente ejemplo que cambia de color
'el fondo de las celdas desde la fila 1 hasta la 5
Public Sub RangosVariables1()
Dim strRango As String
Dim co1 As Integer
For co1 = 1 To 5
strRango = "A" & Format(co1) & ":E" & Format(co1)
Range(strRango).Interior.ColorIndex = Int(Rnd() * 10) + 1
Next co1
End Sub
'Esta es una variante solo que ahora usamos el objeto Cells
'que es mas flexible para usar variables
Public Sub RangosVariables2()
Dim co1 As Integer
For co1 = 1 To 5
Range(Cells(co1, 1), Cells(co1, 5)).Interior.ColorIndex = Int(Rnd() * 10) + 1
Next co1
End Sub
'establecer como una cadena de texto, estas concatenando de
'forma erronea, ve el siguiente ejemplo que cambia de color
'el fondo de las celdas desde la fila 1 hasta la 5
Public Sub RangosVariables1()
Dim strRango As String
Dim co1 As Integer
For co1 = 1 To 5
strRango = "A" & Format(co1) & ":E" & Format(co1)
Range(strRango).Interior.ColorIndex = Int(Rnd() * 10) + 1
Next co1
End Sub
'Esta es una variante solo que ahora usamos el objeto Cells
'que es mas flexible para usar variables
Public Sub RangosVariables2()
Dim co1 As Integer
For co1 = 1 To 5
Range(Cells(co1, 1), Cells(co1, 5)).Interior.ColorIndex = Int(Rnd() * 10) + 1
Next co1
End Sub
