Selección de un rango de celdas usando el Trim(Str())
Hola experto,
Tengo un codigo que uso para copiar una celda a otro lugar dependiendo de ciertas condiciones, es el siguiente;
x=1
If condicion.....
Range("B" & Trim(Str(x)) & "").Select
Selection.Copy
Range("M5" & Trim(Str(y)) & "").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C" & Trim(Str(x)) & "").Select
( Y vuelvo a repteri codigo..... )
En If
Como hacerle para seleccionar un rango de celdas y no de una por una, he intentado el siguiente, pero nada;
Range("B" & Trim(Str(x)) & "").Select
De antemano gracias. Saludos!
Tengo un codigo que uso para copiar una celda a otro lugar dependiendo de ciertas condiciones, es el siguiente;
x=1
If condicion.....
Range("B" & Trim(Str(x)) & "").Select
Selection.Copy
Range("M5" & Trim(Str(y)) & "").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C" & Trim(Str(x)) & "").Select
( Y vuelvo a repteri codigo..... )
En If
Como hacerle para seleccionar un rango de celdas y no de una por una, he intentado el siguiente, pero nada;
Range("B" & Trim(Str(x)) & "").Select
De antemano gracias. Saludos!
Respuesta de Abraham Valencia
1
Y si asignas a tu variable un numero, ¿cuál es la necesidad del Trim y del Str? ¿Y cuál es la necesidad de las ultimas comillas?
Bastaría con un simple, por ejemplo:
Range("B" & x &":C" & x).Copy
Abraham
Bastaría con un simple, por ejemplo:
Range("B" & x &":C" & x).Copy
Abraham
Que tal Abraham
Viéndolo así me la estaba complicando bastante, solo que teniendo ese código la finalidad era simplemente saber como funcionaría de ese modo, igual es una buena respuesta.
Muchos saludos, gracias por el interés.
Viéndolo así me la estaba complicando bastante, solo que teniendo ese código la finalidad era simplemente saber como funcionaría de ese modo, igual es una buena respuesta.
Muchos saludos, gracias por el interés.
